userreg_post.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<!--#include file="../SysCls/KS_RefreshCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628免费正式版
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :[e-mail] [e-mail]
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New User_RegPost
KSCls.Execute()
Set KSCls = Nothing

Class User_RegPost
        Private KSCMS,KSRFObj
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		  Set KSRFObj=New Refresh
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		 Set KSRFObj=Nothing
		End Sub
		Public Sub Execute()
		 '系统配置参数
		 Dim EmailCheckTF:EmailCheckTF=KSCMS.GetConfig("EmailCheckTF")
		 Dim AdminCheckTF:AdminCheckTF=KSCMS.GetConfig("AdminCheckTF")
		 Dim Locked:Locked=0
		 Dim VerificCodeTF:VerificCodeTF=KSCMS.GetConfig("VerificCodeTF")
		 Dim EmailMultiRegTF:EmailMultiRegTF=KSCMS.GetConfig("EmailMultiRegTF")
		 Dim UserNameLimitChar:UserNameLimitChar=KSCMS.GetConfig("UserNameLimitChar")
		 Dim UserNameMaxChar:UserNameMaxChar=KSCMS.GetConfig("UserNameMaxChar")
		 Dim EnabledUserName:EnabledUserName=KSCMS.GetConfig("EnabledUserName")
		 Dim UserRegSendMail:UserRegSendMail=KSCMS.GetConfig("UserRegSendMail")
		 Dim NewRegUserMoney:NewRegUserMoney=KSCMS.GetConfig("NewRegUserMoney")
		 Dim NewRegUserScore:NewRegUserScore=KSCMS.GetConfig("NewRegUserScore")
		 Dim NewRegUserPoint:NewRegUserPoint=KSCMS.GetConfig("NewRegUserPoint")
         
		 
		 
		 '收集用户资料
		 Dim Verifycode:Verifycode=KSCMS.G("Verifycode")
		   IF Trim(Verifycode)<>Trim(Session("Verifycode")) And VerificCodeTF=1 then 
		   	 Response.Write("<script>alert('验证码有误，请重新输入！');history.back(-1);</script>")
		     Exit Sub
		  End IF
		  
		 Dim UserName:UserName=KSCMS.ReplaceBadChar(KSCMS.G("UserName"))
		 If UserName = "" Or KSCMS.strLength(UserName) > UserNameMaxChar Or KSCMS.strLength(UserName) < UserNameLimitChar Then
		   	 Response.Write("<script>alert('请输入用户名(不能大于" & UserNameMaxChar & "小于" & UserNameLimitChar & ")');history.back();</script>")
			 Exit Sub
         ElseIF KSCMS.FoundInArr(EnabledUserName, UserName, "|") = True Then
		   	 Response.Write("<script>alert('您输入的用户名为系统禁止注册的用户名');history.back();</script>")
			 Exit Sub
		 ElseIF 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, "