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

Class Template_Add
        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 Action, TemplateID, ChannelID, TemplateType, TemplateName, FsoFileName, FnameType, TemplateContent, TemplateFileName, TemplateFromFileContent
		Dim ObjRS, CurrPath, InstallDir, TemplateDIr
		InstallDir = KSCMS.GetConfig("InstallDir")
		TemplateDIr = KSCMS.GetConfig("TemplateDir")
		TemplateDIr = Left(TemplateDIr, Len(TemplateDIr) - 1)
		Action = Trim(Request("Action"))
		If Action = "" Then Action = "Add"
		ChannelID = Request("ChannelID")
		CurrPath = InstallDir & TemplateDIr
		If ChannelID = "" Then ChannelID = 0
		TemplateType = Request("TemplateType")
		TemplateFileName = Trim(Request("TemplateFileName")) '导入模板文件名及相对路径
		If Action = "Modify" Then
		  '当是编辑模板,重新赋值操作
		TemplateID = Request.QueryString("TemplateID")
		Set ObjRS = Server.CreateObject("Adodb.Recordset")
		  ObjRS.Open "Select * From [KS_Template] WHERE TemplateID=" & TemplateID, Conn, 1, 1
		 If Not ObjRS.EOF Then
		   TemplateFileName = Trim(ObjRS("TemplateFileName"))
		   TemplateType = Trim(ObjRS("TemplateType"))
		   TemplateName = Trim(ObjRS("TemplateName"))
		   If TemplateType = 9993 Then
		   FnameType = Trim(Mid(Trim(ObjRS("FsoFileName")), InStrRev(Trim(ObjRS("FsoFileName")), ".")))
		   FsoFileName = Replace(ObjRS("FsoFileName"), FnameType, "")
		   End If
		   TemplateContent = Trim(ObjRS("TemplateContent"))
		   ChannelID = ObjRS("ChannelID")
		 Else
		   Call KSCMS.alert("错误提示:\n\n模板参数传递出错!", "Template.asp")
		   Set KSCMS = Nothing
		 End If
		 ObjRS.Close
		End If
		Response.Write "<html><head><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 src='../js/romnumber.js' type=text/javascript></script>" & vbNewLine
		Response.Write "<script language=""JavaScript"" type=""text/JavaScript"" src=""../JS/Common.js""></script>"
		Response.Write "</head>"
		Response.Write "<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>"
		Response.Write "<table width='100%'border='0' align='center' cellpadding='0' cellspacing='2'>"
		Response.Write "  <form name=""TemplateLoadForm"">"
		Response.Write "    <input type=""hidden"" value=""" & ChannelID & """ name=""ChannelID"">"
		Response.Write "    <input type=""hidden"" value=""" & TemplateType & """ name=""TemplateType"">"
		Response.Write "    <input type=""hidden"" value=""" & Action & """ name=""action"">"
		Response.Write "    <input name=""TemplateName"" type=""hidden"" id=""TemplateName"" size=""30"" Value=""" & TemplateName & """>"
		Response.Write "    <tr>"
		Response.Write "      <td height=""16"" colspan=""2""><strong>模板文件："
		Response.Write "        <input style=""border-style: solid; border-width: 1"" name=""TemplateFileName"" "
		 
		 If Action = "Modify" Then
		 Response.Write ("disabled=false")
		 End If
		Response.Write " readonly=""true"" type=""text"" id=""TemplateFileName"" size=""28"" Value=""" & TemplateFileName & """>"
		Response.Write "        <input type=""submit"" "
		
		If Action = "Modify" Then
		Response.Write ("disabled=false")
		End If
		Response.Write " name=""Submit"" value=""选择模板并导入"" onClick=""OpenThenSetValue('../Dialog/Frame.asp?FileName=SelectTemplate.asp&PageTitle=导入模板&CurrPath=" & CurrPath & "',450,350,window,document.TemplateLoadForm.TemplateFileName);document.TemplateLoadForm.TemplateFileName.focus();"">"
		Response.Write "        　　　　　　　　　　</strong></td>"
		Response.Write "    </tr>"
			If TemplateFileName <> "" Then
				Set ObjRS = Conn.Execute("Select * From KS_Template Where TemplateFileName='" & TemplateFileName & "'")
				If Not ObjRS.EOF And Action <> "Modify" Then
				 Call KSCMS.AlertHistory("对不起，此模板在数据库中已存在，不能再导入！", -1)
				 Set KSCMS = Nothing
				 Response.End
				End If
				ObjRS.Close
				If KSCMS.CheckFile(TemplateFileName) Then
				  TemplateFromFileContent = KSCMS.ReadFromFile(TemplateFileName)
				 'TemplateFromFileContent = Replace(Replace(KSCMS.ReadFromFile(TemplateFileName),"""","%22"),"'","%27")
				Else
				 TemplateFromFileContent = TemplateContent
				End If
				'Call Alert("成功提示:\n\n1.模板成功导入当前编辑器;\n\n2.请编辑后按下[保存模板]写入数据库!","")
			End If
			
		 Response.Write " </form>"
		 response.write "</table>"
		 Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
		 Response.Write " <form name=""TemplateForm"" method=""post"" action=""Template_Add_Save.asp"" onSubmit=""return(CheckForm())"">"
		 Response.Write "   <input name=""TemplateFileName"" type=""hidden"" id=""TemplateFileName"" size=""30"" Value=""" & TemplateFileName & """>"
		 Response.Write "   <input type=""hidden"" value=""" & Action & """ name=""action"">"
		 Response.Write "   <input type=""hidden"" value=""" & TemplateID & """ name=""TemplateID"">"
		 Response.Write "   <tr>"
		 Response.Write "     <td height=""16""><strong>"
		 If ChannelID = 0 Then
		  Response.Write (" <input type=""hidden"" value=""" & ChannelID & """ name=""ChannelID"">")
		 Else
		  Response.Write " 归属频道： " & KSCMS.ReturnChannelList(CInt(ChannelID), False)
		 End If
		 Response.Write "模板类型：<input name=""TemplateType"" type=""hidden"" value=""" & TemplateType & """><font color=red>"
		  
		  Select Case CInt(TemplateType)
		   Case 9999
			 Response.Write " 网站首页模板"
		   Case 9998
			Response.Write " 公告内容页模板"
		   Case 9997
			Response.Write " 友情链接页模板"
		   Case 9996
		    Response.Write "会员注册协议页模板"
		   Case 9995
		    Response.Write "会员注册填写表单页模板"
		   Case 9994
		    Response.Write "会员注册结果页模板"	
		   Case 9993
		   Response.Write " 通用页面模板"
		   Case 9992
		   Response.Write "会员列表页模板"
		    Case 9991
		   Response.Write "会员信息页模板"
12 下一页
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

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

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