checkusername.asp

个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站

<%@LANGUAGE="VBSCRIPT.Encode" CODEPAGE="936"%>
<!-- #include file="../Inc/config.asp" -->
<!-- #include file="../Inc/ch2utf8.asp" -->
<%
	dbstr="../"
	username=Trim(request("username"))
	dim conn,rs,sql
	set conn=getconn()
	set rs=getrs()
	
	sql="select * from users where username='"&username&"'"
	rs.open sql,conn,1,1
	if rs.bof and rs.eof then 
		errormsg="此用户名可用！"
		Call chinese2unicode(errormsg)
	else
		errormsg="对不起，此用户名已被注册！"
		Call chinese2unicode(errormsg)
	end if
	
	if errormsg<>"" then response.write("<p class='midBlue'>"&errormsg&"</p>")
	
	rs.close
	closeconn(conn)	
%>