reg1.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=chkput.asp-->
<!--#include file=chang.asp-->

<!--#include file=top.asp-->
<%
dim username,Password1,Password2,Password,rs,sql,useremail,zazhi,i
Function isbytes(vIn) 
	dim strReturn,ThisCharCode
	strReturn = "" 
	For i = 1 To LenB(vIn) 
		ThisCharCode = AscB(MidB(vIn,i,1)) 
		If ThisCharCode < &H80 Then 
			strReturn = strReturn & Chr(ThisCharCode) 
		Else 
			response.write "<li>登陆帐号只能填入英文或数字" 
			response.end
		End If 
	Next 
	isbytes = strReturn 
End Function
if request("UserName")="" and strLength(request("UserName"))>20 then
	response.write "<br>"+"<li>请输入您的用户名(长度不能大于20)。"
	response.end
else
	username=isbytes(trim(request("UserName")))
end if
if Instr(request("UserName"),"=")>0 or Instr(request("UserName"),"@")>0 or Instr(request("UserName"),"%")>0 or Instr(request("UserName"),chr(32))>0 or Instr(request("UserName"),"?")>0 or Instr(request("UserName"),"&")>0 or Instr(request("UserName"),";")>0 or Instr(request("UserName"),",")>0 or Instr(request("UserName"),"'")>0 or Instr(request("UserName"),"^")>0 or Instr(request("UserName"),chr(34))>0 or Instr(request("UserName"),chr(9))>0 or Instr(request("UserName"),"