📄 system_siteconfig.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New System_SiteConfig
KSCls.Execute()
Set KSCls = Nothing

Class System_SiteConfig
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.DelCaches(KSCMS.SiteSn & "SiteConfig")
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub


		Public Sub Execute()
		Dim SqlStr, RS, InstallDir, FsoIndexFile, FsoIndexExt
		Dim SetType,UserRegMustFill
		SetType = KSCMS.G("SetType")
		With Response
			Select Case SetType
			  Case 1
					If Not KSCMS.ReturnPowerResult(0, "KMST10001") Then          '检查是否有基本信息设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			  Case 2
					If Not KSCMS.ReturnPowerResult(0, "KMST10003") Then          '检查是否有目录信息设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			  Case 3
					If Not KSCMS.ReturnPowerResult(0, "KMST10006") Then          '检查是否有附加选项设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			  Case 4
					If Not KSCMS.ReturnPowerResult(0, "KMST10004") Then          '检查是否有开关选项设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			 Case 5
					If Not KSCMS.ReturnPowerResult(0, "KMST10002") Then          '检查是否有会员选项设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			 Case 6
					If Not KSCMS.ReturnPowerResult(0, "KMST100010") Then          '检查是否有留言选项设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			 Case 7
					If Not KSCMS.ReturnPowerResult(0, "KMST100011") Then          '检查是否有RSS选项设置的权限
					 .Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back()';</script>")
					 Call KSCMS.ReturnErr(1, "")
					 .End
					 End If
			End Select
	
			'InstallDir = Request.ServerVariables("APPL_MD_PATH")
			'InstallDir = Right(InstallDir, Len(InstallDir) - InStr(InstallDir, "Root") - 3)
			'If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then
			'   InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC")-1)
			'End If
			
			dim strDir,strAdminDir
			strDir=Trim(request.ServerVariables("SCRIPT_NAME"))
			strAdminDir=split(strDir,"/")(Ubound(split(strDir,"/"))-2) & "/"&split(strDir,"/")(Ubound(split(strDir,"/"))-1) & "/"
			InstallDir=left(strDir,instr(lcase(strDir),"/"&Lcase(strAdminDir)))
			
			If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then
			   InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC"))
			End If
	
	
			SqlStr = "select * from KS_Config"
			Set RS = Server.CreateObject("ADODB.recordset")
			RS.Open SqlStr, Conn, 1, 3
			 FsoIndexFile = Split(RS("FsoIndex"), ".")(0)
			 FsoIndexExt = Split(RS("FsoIndex"), ".")(1)
			If KSCMS.G("Action") = "Edit" Then
				RS("WebName") = Trim(KSCMS.G("WebName"))
				RS("WebTitle") = Trim(KSCMS.G("WebTitle"))
				RS("WebLogo") = Trim(KSCMS.G("WebLogo"))
				RS("WebUrl") = Trim(KSCMS.G("WebUrl"))
				RS("InstallDir") = Trim(KSCMS.G("InstallDir"))
				RS("DefaultUpFilesSize") = Trim(KSCMS.G("DefaultUpFilesSize"))
				RS("DefaultAllowUpFilesType") = Trim(KSCMS.G("DefaultAllowUpFilesType"))
				RS("Webmaster") = Trim(KSCMS.G("Webmaster"))
				RS("WebmasterEmail") = Trim(KSCMS.G("WebmasterEmail"))
				RS("MailServer") = Trim(KSCMS.G("MailServer"))
				RS("MailUserName") = Trim(KSCMS.G("MailUserName"))
				RS("MailUserPass") = Trim(KSCMS.G("MailUserPass"))
				RS("Copyright") = Trim(KSCMS.G("Copyright"))
				RS("FsoIndex") = KSCMS.G("IndexFile") & KSCMS.G("FsoIndexExt")
				RS("AdminDir") = KSCMS.G("AdminDir")
				RS("TemplateDir") = KSCMS.G("TemplateDir")
				RS("JSDir") = KSCMS.G("JSDir")
				RS("SpecialDir") = KSCMS.G("SpecialDir")
				RS("SaveImgByDate") = CInt(KSCMS.G("SaveImgByDate"))
				RS("FsoWay") = CInt(KSCMS.G("FsoWay"))
				RS("BeyondPicDir") = KSCMS.G("BeyondPicDir")
				RS("CommonDir") = KSCMS.G("CommonDir")
				RS("ArticleDir") = KSCMS.G("ArticleDir")
				RS("PicDir") = KSCMS.G("PicDir")
				RS("DownDir") = KSCMS.G("DownDir")
				RS("FlashDir") = KSCMS.G("FlashDir")
				RS("SessionTimeout") = KSCMS.G("SessionTimeout")
				RS("SoftKeyBoardTF") = KSCMS.G("SoftKeyBoardTF")
				RS("ShowDetail") = KSCMS.G("ShowDetail")
				RS("DisplayMode") = KSCMS.G("DisplayMode")
				RS("NonPowerShowStyle") = KSCMS.G("NonPowerShowStyle")
				RS("FsoObjName") = Trim(KSCMS.G("FsoObjName"))
				RS("MaxPerPage") = KSCMS.G("MaxPerPage")
				
				'上传相关目录
				RS("UpFilesDir") = KSCMS.G("UpFilesDir")
				
				'-----------------------会员参数配置------------
				
				RS("UserRegTF")=KSCMS.G("UserRegTF")
				RS("EmailCheckTF")=KSCMS.G("EmailCheckTF")
				RS("AdminCheckTF")=KSCMS.G("AdminCheckTF")
				RS("VerificCodeTF")=KSCMS.G("VerificCodeTF")
				RS("EmailMultiRegTF")=KSCMS.G("EmailMultiRegTF")
				RS("UserNameLimitChar")=KSCMS.G("UserNameLimitChar")
				RS("UserNameMaxChar")=KSCMS.G("UserNameMaxChar")
				RS("EnabledRegUserName")=KSCMS.G("EnabledRegUserName")
				RS("MustInputDetailTF")=KSCMS.G("MustInputDetailTF")
				RS("UserRegMustFill")=KSCMS.G("UserRegMustFill")
				RS("LoginVerificCodeTF")=KSCMS.G("LoginVerificCodeTF")
				RS("LoginPerTimeAddScore")=KSCMS.G("LoginPerTimeAddScore")
				RS("NewRegUserMoney")=KSCMS.G("NewRegUserMoney")
				RS("NewRegUserScore")=KSCMS.G("NewRegUserScore")
				RS("NewRegUserPoint")=KSCMS.G("NewRegUserPoint")
				RS("ScoreExchangePoint")=KSCMS.G("ScoreExchangePoint")
				RS("PointName")=KSCMS.G("PointName")
				RS("PointUnit")=KSCMS.G("PointUnit")
				RS("UserRegSendMail")=KSCMS.G("UserRegSendMail")
				RS("RegLicense")=KSCMS.G("RegLicense")
				
				'------------------------会员参数配置结束--------------------
	
				'-------------------------留言参数设置开始--------------------
				RS("GuestListNum")=KSCMS.G("GuestListNum")
				RS("GuestCheckTF")=KSCMS.G("GuestCheckTF")
				RS("GuestVerificTF")=KSCMS.G("GuestVerificTF")
				RS("GuestNum")=KSCMS.G("GuestNum")
				RS("GuestSplitStr")=KSCMS.G("GuestSplitStr")
				'------------------------留言参数配置结束--------------------
				
				'--------------------------RSS参数配置开始-------------------
				RS("RSSTF")=KSCMS.G("RSSTF")
				RS("RssCode")=KSCMS.G("RssCode")
				RS("RssTemplateTF")=KSCMS.G("RssTemplateTF")
				RS("RssHomeNum")=KSCMS.G("RssHomeNum")
				RS("RssChannelNum")=KSCMS.G("RssChannelNum")
				RS("RssDescriptNum")=KSCMS.G("RssDescriptNum")
				'--------------------------RSS参数配置结束-------------------
				
				
				RS.Update
				.Write ("<script>alert('网站配置信息修改成功！');location.href='System_SiteConfig.asp?SetType=" & SetType & "';</script>")
			End If
			UserRegMustFill=RS("UserRegMustFill")
12 3 4 5 下一页
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

#shtml #ASPX #html #采集
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -