checkreg.asp

来自「设计考虑校园电子商务模式」· ASP 代码 · 共 17 行

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="ddtaobao.asp"-->
<%
dim User_Name,FoundErr,ErrMsg
User_Name=HTMLEncode(trim(request("User_Name")))
if User_Name="" or strLength(User_Name)>14 or strLength(User_Name)<4 then
	founderr=true
	errmsg=errmsg & "<br><li>请输入用户名(不能大于14小于4)</li>"
else
  	if Instr(User_Name,"=")>0 or Instr(User_Name,"%")>0 or Instr(User_Name,chr(32))>0 or Instr(User_Name,"?")>0 or Instr(User_Name,"&")>0 or Instr(User_Name,";")>0 or Instr(User_Name,",")>0 or Instr(User_Name,"'")>0 or Instr(User_Name,",")>0 or Instr(User_Name,chr(34))>0 or Instr(User_Name,chr(9))>0 or Instr(User_Name,"