<Script language="javascript">
.......
function chkspc(a)
{
var i=a.length;
var j = 0;
var k = 0;
while (k <i)
{
if (a.charAt(k) != " ")
j = j+1;
k = k+1;
}
if (j==0)
{
return 0;
}
If InStr(string,"")<>0 OR InStr(string,"%")<>0 then '禁止特殊符号空格
Response.Write"<body bgcolor=#FFCC99><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“E-mail”</font>非法!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If
If InStr(stremail,"@")=0 then
Response.Write"<body bgcolor=#FFCC99><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“E-mail”</font>非法!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If
If Right(stremail,3)<>"com" and Right(stremail,3)<>"net" And Right(stremail,3)<>"edu" Right(stremail,3)<>"org"and then
Response.Write"<body bgcolor=#FFCC99><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“E-mail”</font>非法!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If
if not isnumeric(strnum) then
Response.Write"<body bgcolor=#ffffff><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“学号”</font>只能为纯数字!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If
intstr=strnum-int(strnum)
if strnum<0 or intstr<>0 then
Response.Write"<body bgcolor=#ffffff><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“学号”</font>不能为小数或为负!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If
if Len(strnum)<>8 then
Response.Write"<body bgcolor=#ffffff><p> </p><p align='center'>"&_
"出错提示:<font color=#FF0000>“学号”位数</font>有误!</p>"
Response.Write"<p align='center'><a href='javascript:history.go(-1);'>"&_
"点击这里重新申请</a></p></body></html>"
Response.End
End If