ajax_check.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="User_conn.asp"-->


<%
	
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.CharSet="gb2312"
Dim ArtCls
Set ArtCls = New Ajax_Check
ArtCls.Artuserchk()
Set ArtCls = Nothing

Class Ajax_Check
		
		Public Sub Artuserchk()		  
		  Select Case S("Action")
		   Case "checkusername"
		    Call CheckUserName()
		   Case "checkemail"
		    Call CheckEmail()
		 
		   Case "checkcode"
		    Call CheckCode()
			
		  End Select
		End Sub
		
		Sub CheckUserName()
			dim username:username=S("username")
			if username="" then
			 response.write "err|请输入会员名！"
			elseif InStr(UserName, "=") > 0 Or 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, "