user_checkusername.asp

来自「WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼」· ASP 代码 · 共 26 行

<!--#include file=INC/skin.asp-->
<!--#include file=INC/txl_userfun.asp-->


<%
'on error resume next
dim const_txl_HomeUrl,errstr,usernameflag,GBL_CHK_TempStr,username
errstr=""
username=Request.QueryString("username")
const_txl_HomeUrl=""
OpenDatabase
usernameflag=checkfrmusername(username)
if not  usernameflag  then
	printmsg GBL_CHK_TempStr
else
	if checkusername(username) then
		GBL_CHK_TempStr="<font color=green>恭喜您,该用户名可以注册!</font>"
		printmsg GBL_CHK_TempStr
	else
		GBL_CHK_TempStr="<font color=red>对不起,该用户名已经被别人注册了!</font>"
		printmsg GBL_CHK_TempStr
	end if
end if
CloseDatabase
%>