📄 template_main.asp

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

Class Template_Main
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Public Sub Execute()
			 If Not KSCMS.ReturnPowerResult(0, "KMTL10005") Then                '模板管理的权限检查
			  Call KSCMS.ReturnErr(1, "")
			  Exit Sub
			 End If
		Dim el, TemplateID, TemplateRS, TemplateSql, ChangeFolderID, Action, Page
		Dim ChannelID, TemplateType
		ChannelID = Request("ChannelID")
		TemplateType = Request("TemplateType")
		TemplateID = Trim(Request("TemplateID"))
		Page = Request.QueryString("Page")
		Action = Trim(Request("Action"))
		el = Trim(Request("EL"))
		
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
		Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
		
		Response.Write "</head>"
		Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" scroll=no oncontextmenu=""return false"">"
		Response.Write "<div align=""center""><center>"
		Response.Write "    <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#111111"" style=""border-collapse: collapse"">"
		Response.Write "      <tr>"
		Response.Write "        <td width=""100%"" height=""25"" nowrap ><div align=""right"">"
		Response.Write "            <table width=""100%"" height=""20"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "              <tr>"
		Response.Write "                <td width=""60"" height=""26"" align=""center""  class=""Selected"" id=""TemplateList"" onClick=""ChangeFolder(this,1);"">模板列表</td>"
		Response.Write "                <td width=""5"" height=""26"" align=""center"" class=""ToolBarButtonLine"" style=""cursor:default;"">&nbsp;</td>"
		Response.Write "                <td width=""60"" height=""26"" align=""center"" class=""Default"" id=""TemplateAdd"" onClick=""ChangeFolder(this,2);"">"
						  
						  If Action = "Modify" Then
								Response.Write "修改模板"
							   Else
								 Response.Write "导入模板"
								End If
								
		Response.Write "                </td>"
		Response.Write "                <td height=""26"" class=""ToolBarButtonLine""> <div align=""right"">"
		Response.Write "                    &nbsp; </div></td>"
		Response.Write "              </tr>"
		Response.Write "            </table>"
		Response.Write "          </div></td>"
		Response.Write "      </tr>"
		Response.Write "      <tr  id=""TemplateListArea"">"
		Response.Write "        <td width=""100%"" height=""100%"" valign=""top"" nowrap>"
		Response.Write "          <iframe src=""Template.asp?Page=" & Page & "&ChannelID=" & ChannelID & "&TemplateType=" & TemplateType & """ name=""TemplateListFrame"" width=""100%"" height=""100%"" frameborder=""0"" scrolling=""no""></iframe>"
		Response.Write "        </td>"
		Response.Write "      </tr>"
		Response.Write "      <tr id=""AddTemplateArea"" style=""display:none;"">"
		Response.Write "        <td width=""100%"" height=""100%"">"
		Response.Write "          <iframe src=""about:blank"" name=""AddTemplateFrame"" marginheight=""1"" marginwidth=""1"" width=""100%"" height=""100%"" frameborder=""0"" scrolling=""yes""></iframe>"
		Response.Write "        </td>"
		Response.Write "      </tr>"
		Response.Write "    </table>"
		Response.Write "  </center>"
		Response.Write "    </div>"
		Response.Write "<script language=""JavaScript"">"
		Response.Write "function document.onreadystatechange()"
		Response.Write "{"
		If el <> "" Then
		Select Case (el)
			Case "TemplateList"
			  ChangeFolderID = 1
			Case "TemplateAdd"
			  ChangeFolderID = 2
			Case "TemplateEdit"
			  ChangeFolderID = 3
			Case Else
			  ChangeFolderID = 0
		   End Select
		Response.Write ("ChangeFolder(" & el & "," & ChangeFolderID & ")")
		End If
		
		Response.Write "}"
		Response.Write "function ChangeFolder(el, id)"
		Response.Write "{   if (id==1)"
		Response.Write "      window.parent.frames['BottomFrame'].location.href='../split.asp?ButtonSymbol=TemplateList';"
		Response.Write "    if (id==2)"
		Response.Write "     {"
		Response.Write "      frames['AddTemplateFrame'].location.href='Template_Add.asp?ChannelID=" & ChannelID & "&TemplateType=" & TemplateType & "&Action=" & Action & "&TemplateID=" & TemplateID & "';"
			  
			   If Action = "Modify" Then
					Response.Write ("SelectObjItem('','模板管理中心 >> 编辑模板','TemplateAdd','');")
				Else
					Response.Write ("SelectObjItem('','模板管理中心 >> 导入模板','TemplateAdd','');")
				End If
				
		'Response.Write "      //window.parent.frames['BottomFrame'].location.href='../split.asp?ButtonSymbol=TemplateAdd';"
		Response.Write "      }"
		Response.Write "    if (el.className=='Selected') return;"
		Response.Write "    var OperObj=null;"
		Response.Write "    var FolderIDArray=new Array('TemplateList','TemplateAdd');"
		Response.Write "    var EditAreaIDArray=new Array('TemplateListArea','AddTemplateArea');"
		Response.Write "    el.className='Selected';"
		Response.Write "    for (var i=0;i<FolderIDArray.length;i++)"
		 Response.Write "   {"
		Response.Write "        OperObj=document.getElementById(FolderIDArray[i]);"
		Response.Write "        AreaObj=document.getElementById(EditAreaIDArray[i]);"
		Response.Write "        if (OperObj!=null)"
		Response.Write "        {"
		 Response.Write "           if (OperObj.id!=el.id)"
		 Response.Write "           {"
		 Response.Write "               OperObj.className='Default';"
		 Response.Write "               OperObj.bgColor='#FFFFFF';"
		 Response.Write "               if (AreaObj!=null) AreaObj.style.display='none';"
		 Response.Write "           }"
		 Response.Write "           else if (AreaObj!=null) AreaObj.style.display='';"
		 Response.Write "       }"
		 Response.Write "   }"
		Response.Write "}"
		
		Response.Write "</script>"
		
		Response.Write "</html>"
		End Sub
End Class
%>
⌨️ 快捷键说明

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