userreg_step1.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_RegStep1
KSCls.Execute()
Set KSCls = Nothing

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

		   FileContent = KSRFObj.LoadTemplate(9996)
		   Application(Cstr(KSCMS.SiteSN & "RefreshType"))="UserRegStep1"
		   If Trim(FileContent) = "" Then FileContent = "会员注册阅读并同意协议的模板不存在!"
		   
		  FileContent = ReplaceUserRegContent(FileContent) '替换通用标签 如{$GetWebmaster}

          FileContent = KSRFObj.ReplaceLableFlag(KSRFObj.ReplaceAllLabel(FileContent)) '替换函数标签
          '如果采用根相对路径,则替换绝对路径为根相对路径
          FileContent = KSRFObj.ReplaceRA(FileContent, "")
		   
		  
		   
		   Response.Write FileContent  
		
		End Sub
		'*********************************************************************************************************
		'函数名：ReplaceUserRegContent
		'作  用：替换会员注册标签为内容
		'参  数：FileContent待替换的内容
		'*********************************************************************************************************
		Function ReplaceUserRegContent(FileContent)
		      '注册协议
			  ' FileContent = Replace(FileContent, "{$GetUserRegLicense}", "<table border=""0"" width=""100%"" bgcolor=""#ffffff""><tr><td align=center><div class=""RegLicense"" style=""overflow:yes;"">"&KSCMS.GetConfig("RegLicense"))&"</div></td></tr>" & vbcrlf &" <tr><td align=left height=25 bgcolor=""#ffffff"">&nbsp;&nbsp;<input onClick=""if (this.checked==true){document.all.argeebutton.disabled=false;}else{document.all.argeebutton.disabled=true;}"" type=""checkbox"" value=""1"" name=""agree"">我接受许可协议的条款</td></tr>" & vbcrlf & "<tr><td height=25 align=center bgcolor=""#ffffff""><input type=""button"" value="" 我 同 意 "" disabled onClick=""javascript:location.href='UserReg_Step2.asp';"" name=""argeebutton"">&nbsp;<input onClick=""javascript:window.close()"" type=""button"" value=""我不接受""></td></tr></table>"
			   FileContent = Replace(FileContent, "{$GetUserRegLicense}", "<table border=""0"" width=""100%"" bgcolor=""#ffffff""><tr><td align=center><div class=""RegLicense"" style=""overflow:yes;"">"&KSCMS.GetConfig("RegLicense")&"</div></td></tr>" & vbcrlf &" <tr><td align=left height=25 bgcolor=""#ffffff"">&nbsp;&nbsp;<input onClick=""if (this.checked==true){document.all.argeebutton.disabled=false;}else{document.all.argeebutton.disabled=true;}"" type=""checkbox"" value=""1"" name=""agree"">我接受许可协议的条款</td></tr>" & vbcrlf & "<tr><td height=25 align=center bgcolor=""#ffffff""><input type=""button"" value="" 我 同 意 "" disabled onClick=""javascript:location.href='UserReg_Step2.asp';"" name=""argeebutton"">&nbsp;<input onClick=""javascript:window.close()"" type=""button"" value=""我不接受""></td></tr></table>")
			   ReplaceUserRegContent= KSRFObj.ReplaceGeneralLabelContent(FileContent)
	   End Function
End Class
%>