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

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

Class Template
        Private KSCMS
		'===========================================================================
		Private i, totalPut, CurrentPage, TemplateSql, TemplateRS
		Private TemplateType, ChannelID
		Private FolderObj, FileObj, FileItem, CurrPath, MaxPerPage
		'=============================================================================
		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
		
		TemplateType = Request("TemplateType")
		'IF TemplateType="" Then TemplateType=9999  '没有得到参数时,仅显示首页模板
		ChannelID = Request("ChannelID")
		 MaxPerPage = 18
		If Request("page") <> "" Then
			  CurrentPage = CInt(Request("page"))
		Else
			  CurrentPage = 1
		End If
		
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<title>模板管理</title>"
		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"">"
		Response.Write "var Page='" & CurrentPage & "';" & vbCrLf
		Response.Write "var ChannelID='" & ChannelID & "';" & vbCrLf
		Response.Write "var TemplateType='" & TemplateType & " ';" & vbCrLf
		Response.Write "</script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/ContextMenu.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../JS/SelectElement.js""></script>"
		Response.Write "<script language=""JavaScript"" src=""../Common/TemplateFunction.JS""></script>"
		Response.Write "</head>"
		Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"" onclick=""SelectElement();"" onkeydown=""GetKeyDown();"" onselectstart=""return false;"">"
		Response.Write "<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
		Response.Write "  <tr align=""center"">"
		Response.Write "    <td width=""280"" height=""25"" class=""sortbutton""> <div align=""center""><font color=""#990000"">模板名称</font></div></td>"
		Response.Write "    <td width=""71"" class=""sortbutton"">是否默认</td>"
		Response.Write "    <td width=""147"" class=""sortbutton"">模板类型</td>"
		Response.Write "    <td width=""143"" class=""sortbutton"">导入数据库时间</td>"
		Response.Write "    <td width=""167"" class=""sortbutton"">最后更新时间</td>"
		Response.Write "  </tr>"
		
		TemplateSql = "SELECT * FROM KS_Template WHERE 1=1"
		If TemplateType <> "" Then
		 TemplateSql = TemplateSql & "  AND TemplateType=" & TemplateType
		End If
		If ChannelID <> "" Then
		 TemplateSql = TemplateSql & "  AND ChannelID=" & ChannelID
		End If
		TemplateSql = TemplateSql & " ORDER BY TemplateType,IsDefault DESC"
		Set TemplateRS = Server.CreateObject("AdoDb.RecordSet")
		 TemplateRS.Open TemplateSql, Conn, 1, 1
				 If TemplateRS.EOF And TemplateRS.BOF Then
				 Else
					totalPut = TemplateRS.RecordCount
							If CurrentPage < 1 Then
								CurrentPage = 1
							End If
							If (CurrentPage - 1) * MaxPerPage > totalPut Then
								If (totalPut Mod MaxPerPage) = 0 Then
									CurrentPage = totalPut \ MaxPerPage
								Else
									CurrentPage = totalPut \ MaxPerPage + 1
								End If
							End If
		
							If CurrentPage = 1 Then
								Call showContent
							Else
								If (CurrentPage - 1) * MaxPerPage < totalPut Then
									TemplateRS.Move (CurrentPage - 1) * MaxPerPage
									
									Call showContent
								Else
									CurrentPage = 1
									Call showContent
								End If
							End If
							
			End If
		
		  
			Response.Write "  </div></td>"
		  Response.Write "</tr>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		
		End Sub
		Sub showContent()
		  Dim TemplateFilenameStr
		Do While Not TemplateRS.EOF
							   
		  Response.Write "<tr>"
		  Response.Write "  <td width=""280""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		  Response.Write "      <tr>"
		  Response.Write "        <td height=""20"">"
		  Response.Write "         <span SelectObjID=" & TemplateRS("TemplateID") & " onDblClick=""EditTemplate('',this.SelectObjID);"">"
		  Response.Write "         <img src=""../Images/Template.gif"" align=""absmiddle"">"
		  Response.Write "          <span style=""cursor:default"">" & Left(TemplateRS("TemplateName"), 28) & "</span></span></td>"
		  Response.Write "      </tr>"
		  Response.Write "    </table></td>"
		  Response.Write "  <td width=""71"" align=""center"">"
		   If TemplateRS("TemplateType") <> 9993 Then
			  If TemplateRS("IsDefault") = 1 Then
			  Response.Write ("<font color=red><strong>√</strong></font>")
			  Else
			   Response.Write ("<strong>×</strong>")
			 End If
		  End If
		  Response.Write "  </td>"
			 Response.Write ("<td width='117' align='center'>")
			 Dim TempTypeStr
			 Select Case CInt(TemplateRS("TemplateType"))
			  Case 9999
			  TempTypeStr = "网站首页模板"
			  Case 9998
			  TempTypeStr = "公告内容页模板"
			  Case 9997
			  TempTypeStr = "友情链接页模板"
			  Case 9996
				TempTypeStr = "会员注册协议页模板"
			  Case 9995
				TempTypeStr = "会员注册表单页模板"
			  Case 9994
				TempTypeStr = "会员注册结果页模板"	
			  Case 9993
			  TempTypeStr = "通用网页模板"
			  Case 9992
		      TempTypeStr = "会员列表页模板"
			  Case 9991
		      TempTypeStr = "会员信息页模板"
			  Case 8999
			  TempTypeStr = "音乐频道首页模板"
			  Case 8998
			  TempTypeStr = "歌手页模板"
			  Case 8997
			  TempTypeStr = "歌手专辑列表模板"
			  Case 8996
			  TempTypeStr = "最终专辑信息页模板"
			  Case 1
			  TempTypeStr = "频道首页模板"
			  Case 2
			  TempTypeStr = "栏目模板"
			  Case 3
			  TempTypeStr = "内容页模板"
			  Case 4
			  TempTypeStr = "专题首页模板"
			  Case 5
			  TempTypeStr = "频道专题汇总模板"
			  Case 6
			  TempTypeStr = "专题页模板"
			  End Select
			 Response.Write TempTypeStr
			Response.Write ("</td>")
		
			 Response.Write ("<td width='147' align='center'>" & TemplateRS("AddDate") & " </td>")
			 Response.Write ("<td width='158' align='center'><font color=red>" & TemplateRS("LastModifyTime") & "</font> </td>")
		  Response.Write "</tr>"
		  i = i + 1
								If i >= MaxPerPage Then Exit Do
							   TemplateRS.MoveNext
							   Loop
						   TemplateRS.Close
						   Conn.Close
						  
		  Response.Write "<tr>"
		  Response.Write "  <td  colspan=""7"" align=""right"">"
		  
			   Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Template.asp", True, "个", CurrentPage, "TemplateType=" & TemplateType & "&ChannelID=" & ChannelID)
			 End Sub
 End Class
%>

⌨️ 快捷键说明

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