If Request.Form.Count>0 Then
'姓名限制
dim Username
UserName=request("Name")
if UserName="" then
%>
alert("主考人姓名不能为空！请输入姓名！");
history.go(-1);
response.end
else
if Len(UserName)50 then
%>
alert("姓名长度必须大于0小于50个字符或小于25个汉字！");
history.go(-1);
response.End()
end if
if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"
