regchk.asp

人才招聘系统,用asp做的

<!--#include file="../conn.asp"-->
<!--#include file="../person/chkput.asp"-->
<!--#include file="../person/chang.asp"-->
<!--#include file="top.asp"-->
<!--#include file="sendemail.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="img/jobcn.css">
<%
dim rs,sql,companyname
Function isbytes(vIn) 
	dim strReturn,ThisCharCode,i
	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
isbytes(request("username"))
if session("reg1")=1 then 
		response.write "<br>"+"<li>对不起,你重复提交数据。"
		response.end
end if
if request("UserName")="" or strLength(request("UserName"))>20 then
	response.write "<br>"+"<li>请输入您的用户名(长度不能大于20)。"
	response.end
end if
if 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"),"