reg.asp

新闻发布系统

<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
%>
<!--#include file="conn.asp"-->
<!--#include file="Fsmanage/Inc/function.asp"-->
<!--#include file="Fsmanage/Admin_EnPas.asp"-->
<%
if request.Form("action")="add" then
	UserName=trim(request("UserName"))
	Password=trim(request("userpass"))
	PwdConfirm=trim(request("PwdConfirm"))
	Sex=trim(Request("Sex"))
	Email=trim(request("Email"))
	Homepage=trim(request("Homepage"))
	OICQ=trim(request("OICQ"))
	
if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then
		response.write("<script>alert('请输入用户名：大于4小于14个字符');history.go(-1)</script>")
		response.end
	else
  		if 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,"