userreg_step2.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 SP2 Free
'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_RegStep2
KSCls.Execute()
Set KSCls = Nothing

Class User_RegStep2
        Private KSCMS
		Private 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()
		   IF KSCMS.GetConfig("UserRegTF")=0 Then
		    Response.Write "<div align=center>对不起，本站暂停新会员注册!</div>"
		    Response.End
		   End IF

		'Response.Expires = 0
		'Response.AddHeader "Pragma", "no-cache"
		'Response.AddHeader "cache-control", "no-store"
		Dim FileContent
		Dim RefreshRS
		
		   FileContent = KSRFObj.LoadTemplate(9995)
		   Application(Cstr(KSCMS.SiteSN & "RefreshType"))="UserRegStep2"
		   If Trim(FileContent) = "" Then FileContent = "会员注册填写表单页的模板不存在!"
		   
		  FileContent = ReplaceRegLable(FileContent) '替换通用标签 如{$GetWebmaster}
          FileContent = KSRFObj.ReplaceLableFlag(KSRFObj.ReplaceAllLabel(FileContent)) '替换函数标签
          '如果采用根相对路径,则替换绝对路径为根相对路径
          FileContent = KSRFObj.ReplaceRA(FileContent, "")
		   
		  
		   
		   Response.Write FileContent  
		
		End Sub
		Function ReplaceRegLable(FileContent)
		
		 Dim UserRegMustFill:UserRegMustFill=KSCMS.GetConfig("UserRegMustFill")
		 Dim ShowCheckEmailTF:ShowCheckEmailTF=true
		 Dim ShowFillDetailTF:ShowFillDetailTF=false
		 Dim ShowVerifyCodeTF:ShowVerifyCodeTF=false
		 
		 IF KSCMS.GetConfig("EmailMultiRegTF")=1 Then 
		   ShowCheckEmailTF=false
		 End IF
		 IF KSCMS.GetConfig("MustInputDetailTF")=1 Then
		  ShowFillDetailTF=true
		 End IF
		
		 IF KSCMS.GetConfig("VerificCodeTF")=1 then
		   ShowVerifyCodeTF=true
		 End IF
		 FileContent=Replace(FileContent,"{$Show_UserNameLimitChar}",KSCMS.GetConfig("UserNameLimitChar"))
		 FileContent=Replace(FileContent,"{$Show_UserNameMaxChar}",KSCMS.GetConfig("UserNameMaxChar"))
		 FileContent=Replace(FileContent,"{$Show_VerifyCode}","<IMG style=""cursor:hand"" src=""{$GetSiteUrl}inc/verifycode.asp?"" onClick=""this.src=this.src;""  align=""absmiddle"">")
		  FileContent = Replace(FileContent, "{$Show_CheckEmail}", IsShow(ShowCheckEmailTF))
		  FileContent = Replace(FileContent, "{$Show_FillDetail}", IsShow(ShowFillDetailTF))
		  FileContent = Replace(FileContent, "{$Show_VerifyCodeTF}", IsShow(ShowVerifyCodeTF))

		  FileContent = Replace(FileContent, "{$Show_RealName}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "RealName", ","))) 
		  FileContent = Replace(FileContent, "{$Show_Sex}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Sex", ",")))
		  FileContent = Replace(FileContent, "{$Show_Birthday}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Birthday", ",")))
		  FileContent = Replace(FileContent, "{$Show_IDCard}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "IDCard", ",")))
		  FileContent = Replace(FileContent, "{$Show_OfficeTel}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "OfficeTel", ",")))
		  FileContent = Replace(FileContent, "{$Show_HomeTel}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "HomeTel", ",")))
		  FileContent = Replace(FileContent, "{$Show_Mobile}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Mobile", ",")))
		  FileContent = Replace(FileContent, "{$Show_Fax}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Fax", ",")))
		  FileContent = Replace(FileContent, "{$Show_Province}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Province", ",")))
		  FileContent = Replace(FileContent, "{$Show_Address}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Address", ",")))
		  FileContent = Replace(FileContent, "{$Show_ZIP}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "ZIP", ",")))
		  FileContent = Replace(FileContent, "{$Show_HomePage}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "HomePage", ",")))
		  FileContent = Replace(FileContent, "{$Show_UserFace}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "UserFace", ",")))
		  FileContent = Replace(FileContent, "{$Show_FaceWidthAndHeight}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "FaceWidthAndHeight", ",")))
		  FileContent = Replace(FileContent, "{$Show_QQ}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "QQ", ",")))
		  FileContent = Replace(FileContent, "{$Show_ICQ}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "ICQ", ",")))
		  FileContent = Replace(FileContent, "{$Show_MSN}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "MSN", ",")))
		  FileContent = Replace(FileContent, "{$Show_UC}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "UC", ",")))
		  FileContent = Replace(FileContent, "{$Show_Sign}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Sign", ",")))
		  FileContent = Replace(FileContent, "{$Show_Privacy}", IsShow(KSCMS.FoundInArr(UserRegMustFill, "Privacy", ",")))

		 ReplaceRegLable=KSRFObj.ReplaceGeneralLabelContent(FileContent)
		End Function
		Function IsShow(Show)
		If Show =true Then
			IsShow = ""
		Else
			IsShow = " Style='display:none'"
		End If
End Function
End Class
%>