K.length)
{
allValid = false;
break;
}
}

if (theForm.email.value.length < 6)
{
allValid = false;
}

if (!allValid)
{
alert("您输入的 \"电子邮件地址\" 无效!");
theForm.email.focus();
return (false);
}

address=theForm.email.value;
if(address.length>0)
{
i=address.indexOf("@");
if(i==-1)
{
window.alert("对不起！您输入的电子邮件地址是错误的！")
theForm.email.focus();
return false
}
ii=address.indexOf(".")
if(ii==-1)
{
window.alert("对不起！您输入的电子邮件地址是错误的！")
theForm.email.focus();
return false
}

}
if (checktext(theForm.email.value))
{
alert("请您输入有效的\"email\"!");
theForm.email.select();
theForm.email.focus();
return (false);
}

}


function checktext(text)
{
allValid = true;

for (i = 0; i < text.length; i++)
{
if (text.charAt(i) != " ")
{
allValid = false;
break;
}
}

return allValid;
}

//-->
</script>
</TD>
</TR></TBODY></TABLE></TD></TR>
<TR class=table003>
<TD colSpan=2>
<DIV align=center>
<INPUT class=input2 type=submit value=提交>
&nbsp;&nbsp;&nbsp;
<INPUT class=input2 type=reset value=重填>
</DIV></TD></TR></TBODY></TABLE>
</FORM>
<%end sub%>
</DIV>

showrec 显示记录子程序
<%sub showrec()
page=1
if request("page")<>"" then
page=cint(request("page"))
end if

opendb my
sql="select * from main order by user_time desc"
searchtable my,sql,rs
if rs.eof then
closetable rs
closedb my
response.write "<center>还没有人留言呢！</center>"
exit sub
end if
rs.pagesize=perpage
rs.absolutepage=page
totalpage=rs.pagecount
%>
<DIV align=center>
<table class=jnfont5 cellspacing=1 cellpadding=3 width=650 bgcolor=#000000>
<tbody>
<tr class=table003>
<form action=index.asp method=get>
<td align=middle width="40%">
<div align=center>关键字：
<input type=hidden value=search name=action22>
<input class=input2 size=15 name=key2>
&nbsp;
<input class=input2 type=submit value="搜索" name="submit2">
</div>
</td>
</form>
<form name="change1" action=index.asp method=get>
<td valign=center align="center">
<%if page=1 then
response.write ("【首页】【上页】 ")
else
response.write ("【<a href=index.asp?page=1"&str&">首页</a>】")
response.write ("【<a href=index.asp?page="& page-1 & str & ">上页</a>】")
end if%>
转到第
<select name="page" onChange="change1.submit()">
<%for i=1 to totalpage
if page=i then
response.write "<option selected>"&i&"<

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页