神马品牌网怎样开手动挡汽车视频:怎么样可以让我的主页自动发邮件到我信箱 还有我改的程序那里改错了 怎么不检测别人输入的内容
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 08:56:45
类似于信息收集一类
<html>
<head>
<scriptlanguage="JavaScript"type="text/JavaScript">
<!--
functiondisagreement(){
alert("你不接受，还来干吗^_^");
return;
}
functiongetfocus(name){
if(window.event.keyCode==13||window.event.keyCode==9)
document.logonform[name].focus();
}
functiongetfocus1(name){
if(window.event.keyCode==13)
document.logonform[name].focus();
}
functionmySubmit(){
try{
varcardNum=document.logonform.logonCardNum.value;
if(cardNum.length>16&&cardNum.length!=19){
alert("请输入用户名!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(cardNum.length==0){
alert("用户名不能为空!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(cardNum.length<6){
alert("用户名为6-15位呢!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(document.logonform.safeEdit1.getLength()<4){
alert("密码长度最少四位哦~~!");
logonform.safeEdit1.focus();
return;
}
if(!document.logonform.safeEdit1.isValid()){
alert("输入的密码不合法，请重新输入！");
return;
}
//-->
</script>
<title>兰兰的家</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GBK">
<linkrel="stylesheet"type="text/css"href="css.css">
<styletype=text/css>.deepred{background:#ECA8BB}</style>
</head>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<tablewidth="99%"border="0"cellspacing="0"cellpadding="0"align="center">
<tr>
<tdwidth="57%"height="30"align="left">请输入注册名</td>
<tdwidth="43%">
<inputtype="text"name="logonCardNum"size="19"maxlength="19"onKeyUp=getfocus("safeEdit1")></td>
</tr>
<tr>
<tdheight="30"align="left">请输入密码：</td>
<td><inputtype="password"name="logonCardNum2"size="19"maxlength="19"onKeyUp=getfocus("safeEdit1")>
<br>
</td>
</tr>
<tr>
<tdheight="13"colspan="2"> </td>
</tr>
<tr>
<tdheight="34"colspan="2">
<divalign="center">
<ahref="javascript:mySubmit();"><imgsrc="agree.gif"width="57"height="18"border="0"></a>
<imgsrc="disagree.gif"width="57"height="18"border="0">
</div>
</td>
</tr>
</table>
<html>
<head>
<scriptlanguage="JavaScript"type="text/JavaScript">
<!--
functiondisagreement(){
alert("你不接受，还来干吗^_^");
return;
}
functiongetfocus(name){
if(window.event.keyCode==13||window.event.keyCode==9)
document.logonform[name].focus();
}
functiongetfocus1(name){
if(window.event.keyCode==13)
document.logonform[name].focus();
}
functionmySubmit(){
try{
varcardNum=document.logonform.logonCardNum.value;
if(cardNum.length>16&&cardNum.length!=19){
alert("请输入用户名!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(cardNum.length==0){
alert("用户名不能为空!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(cardNum.length<6){
alert("用户名为6-15位呢!");
logonform.logonCardNum.select();
logonform.logonCardNum.focus();
return;
}
if(document.logonform.safeEdit1.getLength()<4){
alert("密码长度最少四位哦~~!");
logonform.safeEdit1.focus();
return;
}
if(!document.logonform.safeEdit1.isValid()){
alert("输入的密码不合法，请重新输入！");
return;
}
//-->
</script>
<title>兰兰的家</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GBK">
<linkrel="stylesheet"type="text/css"href="css.css">
<styletype=text/css>.deepred{background:#ECA8BB}</style>
</head>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<tablewidth="99%"border="0"cellspacing="0"cellpadding="0"align="center">
<tr>
<tdwidth="57%"height="30"align="left">请输入注册名</td>
<tdwidth="43%">
<inputtype="text"name="logonCardNum"size="19"maxlength="19"onKeyUp=getfocus("safeEdit1")></td>
</tr>
<tr>
<tdheight="30"align="left">请输入密码：</td>
<td><inputtype="password"name="logonCardNum2"size="19"maxlength="19"onKeyUp=getfocus("safeEdit1")>
<br>
</td>
</tr>
<tr>
<tdheight="13"colspan="2"> </td>
</tr>
<tr>
<tdheight="34"colspan="2">
<divalign="center">
<ahref="javascript:mySubmit();"><imgsrc="agree.gif"width="57"height="18"border="0"></a>
<imgsrc="disagree.gif"width="57"height="18"border="0">
</div>
</td>
</tr>
</table>
你没有form标记,所以不能发送,另外需要asp支持才能发信,具体的去网上搜下吧:
\'参数说明
\'strFrom : 发件人Email
\'strTo : 收件人Email
\'strSubject : 信件主题
\'strBody : 信件正文
\'lngImportance : 信件重要性
\' : 0 - 低重要性
\' : 0 - 中等重要性（默认）
\' : 0 - 高重要性
\'lngAType : 信件格式
\' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
\'strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail
.From = strFrom
.To = strTo
.Subject = strSubject
.Body = strBody
.Importance = lngImportance
If lngAType = 1 Then
.BodyFormat = 0
.MailFormat = 0
End If
If IsEmpty(strAttach) = False And IsNull(strAttach) = False Then
.AttachFile strAttach
End If
.Send
End With
Set objMail = Nothing
End Sub
在2000服务器下好用.2003服务器改组建了