⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 split.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@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 CommandStatus
KSCls.Execute()
Set KSCls = Nothing

Class CommandStatus
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Set KSCMS=Nothing
		End Sub
		Public Sub Execute()
			Dim ButtonSymbol, Opstr, ShowOpStr
			Dim FolderRS, FolderID, ParentID, TSArr, I
			Dim LabelFolderID
			
			FolderID = Request.QueryString("FolderID")
			LabelFolderID = Request.QueryString("LabelFolderID")
			ButtonSymbol = Trim(Request("ButtonSymbol"))
			Opstr = Request.QueryString("OpStr")
			ShowOpStr = Opstr
			If FolderID = "" Then FolderID = "0"
			If LabelFolderID = "" Then LabelFolderID = "0"
			If FolderID <> "0" Then
					 ShowOpStr = GetFolderName(FolderID)
					If Opstr <> "" Then
					  ShowOpStr = ShowOpStr & " >> <Font Color=Red>" & Opstr & "</Font>"
					End If
				
			End If
			If LabelFolderID <> "0" Then
			   Set FolderRS = Conn.Execute("Select TS,FolderType From KS_LabelFolder Where ID='" & LabelFolderID & "'")
				If Not FolderRS.EOF Then
				   If FolderRS(1) = 1 Then
					  ShowOpStr = "标签管理 >> 自由标签"
				   ElseIf FolderRS(1) = 0 Then
					  ShowOpStr = "标签管理 >> 系统函数标签"
				   ElseIf FolderRS(1) = 2 Then
					  ShowOpStr = "JS 管理 >> 系统 JS"
				 ElseIf FolderRS(1) = 3 Then
					  ShowOpStr = "JS 管理 >> 自由 JS"
				   End If
				   TSArr = Split(FolderRS(0), ",")
				  For I = LBound(TSArr) To UBound(TSArr) - 1
						ShowOpStr = ShowOpStr & " >> " & GetLabelFolderName(TSArr(I))
				  Next
				  ShowOpStr = Right(ShowOpStr, 30)
				End If
				FolderRS.Close
				Set FolderRS = Nothing
				
			End If
			With Response
			    .Write "<html>"
				.Write "<head>"
				.Write "<meta http-equiv=""Content-Language"" content=""zh-cn"">"
				.Write "<meta HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=gb2312"">"
				.Write "<link href=""Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
				.Write "<script language=""JavaScript"" src=""JS/SetFocus.js""></script>"
				.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
				.Write "<table border=""0"" width=""100%"" bgcolor=""#E6E6E6"" cellspacing=""1"" style=""border-collapse: collapse"">"
				.Write "  <tr>"
				.Write "    <td width=""8%"" height=""26"" align=""right"" nowrap class=""sortbutton""><strong>操作导航:</strong></td>"
				.Write "    <td width=""60%"" align=""left"" nowrap class=""sortbutton"" id=""daohang""><img src=""Images/HardWare.gif"" width=""18"" height=""18"" align=""absmiddle"">：" & ShowOpStr & "</td>"
				.Write "    <td width=""32%"" align=""center"" nowrap class=""sortbutton"">"
				.Write "      <input type=""button"" name=""Button1""  value=""添加文章"" onClick=""ClickButton1();"" class=""buttonstyle"">"
				.Write "      &nbsp;"
				.Write "      <input type=""button"" name=""Button2""  value=""编辑文章""  onClick=""ClickButton2();"" class=""buttonstyle"">"
				.Write "       &nbsp;"
				.Write "      <input type=""button"" name=""Button3""  value=""删除文章"" onClick=""ClickButton3();"" class=""buttonstyle"">"
				.Write "      &nbsp;"
				.Write "      <input type=""button"" name=""Button4""  value=""查看帮助"" onClick=""window.open('http://help.kesion.com/');"" class=""buttonstyle"">"
				.Write "      &nbsp; </td>"
				.Write "  </tr>"
				.Write "</table>"
				.Write ("<SCRIPT language=javascript>")
				.Write ("   function ClickButton1(){ ")
				   Select Case (UCase(ButtonSymbol))
							Case "VIEWFOLDER", "ARTICLESEARCH"
								 .Write ("window.parent.frames['MainFrame'].CreateNews('Article/');")
							Case "VIEWPICTUREFOLDER"
								 .Write ("window.parent.frames['MainFrame'].CreateNews('Picture/');")
							Case "VIEWDOWNFOLDER"
								 .Write ("window.parent.frames['MainFrame'].CreateNews('DownLoad/');")
							Case "VIEWFLASHFOLDER"
								 .Write ("window.parent.frames['MainFrame'].CreateNews('Flash/');")
							Case "SETSYSTEM", "SETDOWNPARAM"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "TEMPLATE"
								 .Write ("window.parent.frames['MainFrame'].frames['TemplateListFrame'].AddTemplate('Template/');")
							Case "TEMPLATEADD"
								 .Write ("window.parent.frames['MainFrame'].frames['AddTemplateFrame'].CheckForm();")
							Case "ADDARTICLE", "ADDPICTURE", "ADDDOWN", "ADDFLASH"
								 .Write ("window.parent.frames['MainFrame'].SubmitFun();")
							Case "EDITORPAGE"
								 .Write ("window.parent.frames['MainFrame'].EditorAdd('Article/');")
							Case "EDITORADDSAVE","MODIFYUSERARTICLE","MODIFYUSERPICTURE","MODIFYUSERDOWN","MODIFYUSERFLASH","EDITOREDIT"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "AUTHORPAGE"
								 .Write ("window.parent.frames['MainFrame'].AuthorAdd('Article/');")
							Case "PICTUREAUTHORPAGE"
								 .Write ("window.parent.frames['MainFrame'].AuthorAdd('Picture/');")
							Case "DOWNAUTHORPAGE"
								 .Write ("window.parent.frames['MainFrame'].AuthorAdd('DownLoad/');")
							Case "FLASHAUTHORPAGE"
								 .Write ("window.parent.frames['MainFrame'].AuthorAdd('Flash/');")
							Case "AUTHORADDSAVE"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "AUTHOREDIT"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "ORIGINPAGE"
								 .Write ("window.parent.frames['MainFrame'].OriginAdd('Article/');")
							Case "PICTUREORIGINPAGE"
								 .Write ("window.parent.frames['MainFrame'].OriginAdd('Picture/');")
							Case "DOWNORIGINPAGE"
								 .Write ("window.parent.frames['MainFrame'].OriginAdd('DownLoad/');")
							Case "FLASHORIGINPAGE"
								 .Write ("window.parent.frames['MainFrame'].OriginAdd('Flash/');")
							Case "ORIGINADDSAVE"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "ORIGINEDIT"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "KEYWORDPAGE"
								 .Write ("window.parent.frames['MainFrame'].KeyWordAdd('Article/');")
							Case "PICTUREKEYWORDPAGE"
								 .Write ("window.parent.frames['MainFrame'].KeyWordAdd('Picture/');")
							Case "DOWNKEYWORDPAGE"
								 .Write ("window.parent.frames['MainFrame'].KeyWordAdd('DownLoad/');")
							Case "FLASHKEYWORDPAGE"
								 .Write ("window.parent.frames['MainFrame'].KeyWordAdd('Flash/');")
							Case "KEYWORDADDSAVE"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "KEYWORDEDIT"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "VIEWSPECIALARTICLE"
								 .Write ("window.parent.frames['MainFrame'].Delete('Special/');")
							Case "FREELABEL", "FUNCTIONLABEL"
								 .Write ("window.parent.frames['MainFrame'].AddLabel('Template/');")
							Case "LABELADD"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "LABELFOLDERADD"
								 .Write ("window.parent.frames['MainFrame'].frames['CreateLabelFolderFrame'].CheckForm();")
							Case "SYSJSLIST", "FREEJSLIST"
								 .Write ("window.parent.frames['MainFrame'].AddJS('Template/');")
							Case "JSADD", "JSEDIT"
								 .Write ("window.parent.frames['MainFrame'].frames['JSFrame'].CheckForm();")
							Case "SPECIALSEARCH"
								 .Write ("window.parent.frames['MainFrame'].Edit('Special/');")
							Case "VIEWMANAGER"
								 .Write ("window.parent.frames['MainFrame'].Create('User/');")
							Case "SETPOWER"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "ANNOUNCEADDSAVE", "VOTEADDSAVE","INNERADDSAVE", "ANNOUNCEEDIT","VOTEEDIT","DOWNSERVERADDSAVE", "DOWNSERVEREDIT", "INNEREDIT", "FILTERSADD", "FILTERSEDIT"
								 .Write ("window.parent.frames['MainFrame'].CheckForm();")
							Case "FARSERVERPAGE"
								 .Write ("window.parent.frames['MainFrame'].DownServerAdd('DownLoad/');")
							Case "ANNOUNCELIST"
								 .Write ("window.parent.frames['MainFrame'].AnnounceAdd('Convention/');")
							Case "VOTELIST"
								 .Write ("window.parent.frames['MainFrame'].VoteAdd('Convention/');")
							Case "INNERLINKLIST"
								  .Write ("window.parent.frames['MainFrame'].InnerAdd('Convention/');")
							Case "LOGLIST"
								 .Write ("window.parent.frames['MainFrame'].DelLog('Convention/');")
							Case "VIEWLINK"
								 .Write ("window.parent.frames['MainFrame'].CreateLink('Convention/');")
							Case "COLLECTHISTORY"
								 .Write ("window.parent.frames['MainFrame'].DelRecords('Collect/');")
							Case "DATACOLLECT"
								 .Write ("window.parent.frames['MainFrame'].Collect(1);")
					 End Select
				.Write ("   }")
				.Write (" function ClickButton2()")
				.Write (" {")
				 Select Case (UCase(ButtonSymbol))
						 Case "VIEWFOLDER", "ARTICLESEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('Article/');")
						 Case "VIEWPICTUREFOLDER", "PICTURESEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('Picture/');")
						 Case "VIEWDOWNFOLDER", "DOWNSEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('DownLoad/');")
						 Case "VIEWFLASHFOLDER", "FLASHSEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('Flash/');")
						 Case "FUNCTIONLABEL"
							.Write ("window.parent.frames['MainFrame'].Edit('Template/');")
						 Case "TEMPLATE"
							.Write ("window.parent.frames['MainFrame'].frames['TemplateListFrame'].TemplateControl('Template/',1);")
						 Case "ADDARTICLE"
							.Write ("window.parent.frames['MainFrame'].location.href='Article/Article_Main.asp?ID=" & FolderID & "';")
							.Write ("location.href='Split.asp?ButtonSymBol=ViewFolder&FolderID=" & FolderID & "';")
						 Case "ADDPICTURE"
							.Write ("window.parent.frames['MainFrame'].location.href='Picture/Picture_Main.asp?ID=" & FolderID & "';")
							.Write ("location.href='Split.asp?ButtonSymBol=ViewPictureFolder&FolderID=" & FolderID & "';")
						 Case "ADDDOWN"
							.Write ("window.parent.frames['MainFrame'].location.href='DownLoad/Down_Main.asp?ID=" & FolderID & "';")
							.Write ("location.href='Split.asp?ButtonSymBol=ViewDownFolder&FolderID=" & FolderID & "';")
						 Case "ADDFLASH"
							.Write ("window.parent.frames['MainFrame'].location.href='Flash/Flash_Main.asp?ID=" & FolderID & "';")
							.Write ("location.href='Split.asp?ButtonSymBol=ViewFlashFolder&FolderID=" & FolderID & "';")
						Case "EDITORPAGE"
							.Write ("window.parent.frames['MainFrame'].EditorControl('Article/',1);")
						Case "AUTHORPAGE"
							.Write ("window.parent.frames['MainFrame'].AuthorControl('Article/',1);")
						Case "PICTUREAUTHORPAGE"
							.Write ("window.parent.frames['MainFrame'].AuthorControl('Picture/',1);")
						Case "DOWNAUTHORPAGE"
							.Write ("window.parent.frames['MainFrame'].AuthorControl('DownLoad/',1);")
						Case "FLASHAUTHORPAGE"
							.Write ("window.parent.frames['MainFrame'].AuthorControl('Flash/',1);")
						Case "ORIGINPAGE"
							.Write ("window.parent.frames['MainFrame'].OriginControl('Article/',1);")
						Case "PICTUREORIGINPAGE"
							.Write ("window.parent.frames['MainFrame'].OriginControl('Picture/',1);")
						Case "DOWNORIGINPAGE"
							.Write ("window.parent.frames['MainFrame'].OriginControl('DownLoad/',1);")
						Case "FLASHORIGINPAGE"
							.Write ("window.parent.frames['MainFrame'].OriginControl('Flash/',1);")
						Case "KEYWORDPAGE"
							.Write ("window.parent.frames['MainFrame'].KeyWordControl('Article/',1);")
						Case "DOWNKEYWORDPAGE"
							.Write ("window.parent.frames['MainFrame'].KeyWordControl('DownLoad/',1);")
						Case "PICTUREKEYWORDPAGE"
							.Write ("window.parent.frames['MainFrame'].KeyWordControl('Picture/',1);")
						 Case "FLASHKEYWORDPAGE"
							.Write ("window.parent.frames['MainFrame'].KeyWordControl('Flash/',1);")
							
						Case "DOWNEKEYWORDPAGE"
							.Write ("window.parent.frames['MainFrame'].KeyWordControl('DownLoad/',1);")
						Case "FREELABEL"
							.Write ("window.parent.frames['MainFrame'].Edit('Template/');")
						Case "SYSJSLIST", "FREEJSLIST", "SYSLABELSEARCH", "FREELABELSEARCH", "SYSJSSEARCH", "FREEJSSEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('Template/');")
						Case "SPECIALSEARCH"
							.Write ("window.parent.frames['MainFrame'].Delete('Special/');")
						Case "VIEWMANAGER", "MANAGERSEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('User/');")
						Case "FARSERVERPAGE"
							.Write ("window.parent.frames['MainFrame'].DownServerControl('DownLoad/',1);")
						Case "ANNOUNCELIST"
							.Write ("window.parent.frames['MainFrame'].AnnounceControl('Convention/',1);")
						Case "VOTELIST"
							.Write ("window.parent.frames['MainFrame'].VoteControl('Convention/',1);")
						Case "INNERLINKLIST"
							.Write ("window.parent.frames['MainFrame'].InnerControl('Convention/',1);")
						Case "SETPOWER", "DOWNSERVERADDSAVE", "EDITOREDIT", "AUTHOREDIT", "ORIGINEDIT", "KEYWORDEDIT", "ANNOUNCEEDIT","VOTEEDIT","DOWNSERVEREDIT", "EDITORADDSAVE", "AUTHORADDSAVE", "ORIGINADDSAVE", "KEYWORDADDSAVE", "JSADD", "ANNOUNCEADDSAVE","VOTEADDSAVE", "INNERADDSAVE", "INNEREDIT", "FILTERSADD", "FILTERSEDIT","MODIFYUSERARTICLE","MODIFYUSERPICTURE","MODIFYUSERDOWN","MODIFYUSERFLASH"
							.Write ("window.parent.frames['MainFrame'].location.href='javascript:history.back()';")
							.Write ("history.back(-1);")
						Case "LOGLIST"
							.Write ("window.parent.frames['MainFrame'].DelAllLog('Convention/');")
						Case "VIEWLINK", "LINKSEARCH"
							.Write ("window.parent.frames['MainFrame'].Edit('Convention/');")
						Case "COLLECTHISTORY"
								 .Write ("window.parent.frames['MainFrame'].DelAllRecords('Collect/');")
				  End Select
				 .Write (" }")
				 .Write ("   function ClickButton3()")
				  .Write (" {")
				  Select Case (UCase(ButtonSymbol))
						 Case "VIEWFOLDER", "ARTICLESEARCH"
							.Write ("window.parent.frames['MainFrame'].Delete('Article/');")
						Case "VIEWPICTUREFOLDER", "PICTURESEARCH"
							.Write ("window.parent.frames['MainFrame'].Delete('Picture/');")
12

⌨️ 快捷键说明

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