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

📄 collect_itemattribute.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="../../SysCls/KS_CollectCommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628个人Access版
'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 Collect_ItemAttribute
KSCls.Execute()
Set KSCls = Nothing

Class Collect_ItemAttribute
        Private KSCMS
		Private KMCObj
		Private ConnItem
		Private SqlItem, RsItem, Action, FoundErr, ErrMsg
		Private ItemID, ItemName, ChannelID, ClassID, SpecialID
		Private PaginationType, MaxCharPerPage, ReadLevel, Stars, ReadPoint, Hits, UpDateType, UpDateTime, Strip, Rolls
		Private Comment, Recommend, Popular, FnameType, TemplateID
		Private Script_Iframe, Script_Object, Script_Script, Script_Div, Script_Class, Script_Span, Script_Img, Script_Font, Script_A, Script_Html, Script_Table, Script_Tr, Script_Td
		Private CollecListNum, CollecNewsNum, IntoBase, BeyondSavePic, CollecOrder, Verific, InputerType, Inputer, EditorType, Editor, ShowComment
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		  Set KMCObj=New CollectCommonCls
		  Set ConnItem = KSCMS.ConnItem()
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConnItem()
		 Call KSCMS.Closeconn
		 Set KSCMS=Nothing
		 Set KMCObj=Nothing
		End Sub
		Sub Execute()
			FoundErr = False
			ItemID = Trim(Request("ItemID"))
			Action = Trim(Request("Action"))
			Verific = 1
			IntoBase = 0
			
			If ItemID = "" Then
			   FoundErr = True
			   ErrMsg = ErrMsg & "<br><li>参数错误，项目ID不能为空！</li>"
			Else
			   ItemID = CLng(ItemID)
			End If
			
			If FoundErr <> True Then
				  Call GetTest
			End If
			If FoundErr <> True Then
			   Call KMCObj.GetClassList
			   Call Main
			End If
			Response.Write "<script>"
			Response.Write "function SelectClass(ChannelID)"
			Response.Write "{"
			Response.Write " document.all.ClassArea.innerHTML='<select ID=""ClassID"" name=""ClassID"" style=""Width:200"">'+ClassArr[ChannelID]+'</select>';"
			Response.Write "}"
			Response.Write "function CheckForm(myform)"
			Response.Write "{ if (myform.ItemName.value=='')"
			Response.Write "  {"
			Response.Write "   alert('请输入项目名称');"
			Response.Write "   myform.ItemName.focus();"
			Response.Write "   return false;"
			Response.Write "  }"
			Response.Write " if (myform.ChannelID.value=='0')"
			Response.Write "  {"
			Response.Write "    alert('请选择系统模块!');"
			Response.Write "    return false;"
			Response.Write "  }"
			 Response.Write "  if (myform.ClassID.value=='0')"
			Response.Write "  {"
			Response.Write "    alert('请选择栏目!');"
			Response.Write "    return false;"
			Response.Write "  }"
			Response.Write "  if (myform.WebName.value=='')"
			 Response.Write " {"
			Response.Write "   alert('请输入网站名称');"
			Response.Write "   myform.WebName.focus();"
			Response.Write "   return false;"
			Response.Write "  }"
			 Response.Write "return true;"
			Response.Write "}"
			Response.Write "</script>"
			End Sub
			
			Sub Main()
			
			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 rel=""stylesheet"" type=""text/css"" href=""../inc/Admin_Style.css"">"
			Response.Write "<style type=""text/css"">" & vbCrLf
			Response.Write "<!--" & vbCrLf
			Response.Write ".STYLE1 {color: #FF0000}" & vbCrLf
			Response.Write ".STYLE4 {color: #0000FF}" & vbCrLf
			Response.Write "-->" & vbCrLf
			Response.Write "</style>"
			Response.Write "</head>"
			Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" oncontextmenu=""return false"">"
			Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""sortbutton"">"
			Response.Write "  <tr>"
			Response.Write "    <td  height=""22"" align=""center"" class=""topbg""><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
			Response.Write "      <tr>"
			Response.Write "        <td align=""center""><strong>操作步骤：</strong>添加项目 >> 基本设置 >> 列表设置 >> 链接设置 >> 正文设置 >> 采样测试 >> <span class=""STYLE1"">属性设置</span> >> 完成</td>"
			Response.Write "      </tr>"
			Response.Write "    </table></td>"
			Response.Write "  </tr>"
			Response.Write "</table>"
			Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
			Response.Write "<form method=""post"" action=""Collect_ItemSuccess.asp"" name=""myform"">"
			 Response.Write " <br>"
			 Response.Write "   <tr>"
			 Response.Write "     <td height=""20"" width=""20%"" align=""right"">项目名称：</td>"
			 Response.Write "     <td><input name='ItemName' type='text' id='ItemName' value='" & ItemName & "' size='27' maxlength='30'></td>"
			 Response.Write "   </tr>"
			  Response.Write "  <tr>"
			  Response.Write "    <td height=""20"" width=""20%"" align=""right""> 所属系统：</td>"
			   Response.Write "   <td height=""20""><input ID=""ChannelID"" name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"" style=""Width:200"">"
			   Response.Write "   <font color=""red"">" & KMCObj.Collect_ShowChannel_Name(ChannelID) & "</font>     </td>"
			   Response.Write " </tr>"
			  Response.Write "  <tr>"
			  Response.Write "    <td height=""20"" width=""20%"" align=""right""> 所属栏目：</td>"
			  Response.Write "    <td height=""20"" ID=""ClassArea""><select name=""ClassID"" ID=""ClassID"" style=""Width:200"">" & KSCMS.ReturnTree(ClassID, ChannelID) & "</select>      </td>"
			  Response.Write "  </tr>"
			  Response.Write "  <tr style=""display:none"">"
			  Response.Write "    <td height=""20"" width=""20%"" align=""right""> 所属专题：</td>"
			  Response.Write "    <td><input type=""hidden"" value=""0"" name=""specialid"">"
			  'call KMCObj.Collect_ShowSpecial_Option(ChannelID,SpecialID)
			  Response.write"     </td>"
			  Response.Write "   </tr>"
			  Response.Write "      <tr>"
			  Response.Write "    <td height=""22"" width=""20%"" align=""right"">文章录入时间：</td>"
			   Response.Write "   <td><input name=""UpdateType"" type=""radio"" value=""0"" "
			   If UpDateType = 0 Then Response.Write "checked"
			   Response.Write ">当前时间"
			   Response.Write "    &nbsp;<input name=""UpdateType"" type=""radio"" value=""1"" "
			   If UpDateType = 1 Then Response.Write "checked"
			   Response.Write ">标签中的时间"
			   Response.Write "    &nbsp;<input name=""UpdateType"" type=""radio"" value=""2"" "
			   If UpDateType = 2 Then Response.Write "checked"
			   Response.Write ">自定义："
			   Response.Write "    <input name=""UpdateTime"" type=""text"" value=""" & UpDateTime & """>"
			   Response.Write "   　</td>"
			   Response.Write " </tr>"
			   Response.Write " <tr>"
			   Response.Write "   <td height=""22"" width=""20%"" align=""right"">文章录入：</td>"
			   Response.Write "   <td><input name=""InputerType"" type=""radio"" value=""0"" "
			   If InputerType = 0 Then Response.Write "checked"
			   Response.Write ">当前用户"
			   Response.Write "    &nbsp;<input name=""InputerType"" type=""radio"" value=""1"" "
			   If InputerType = 1 Then Response.Write "checked"
			   Response.Write ">指定用户"
				Response.Write "   <input name=""Inputer"" type=""text"" value=""" & Inputer & """>"
				Response.Write "  　</td>"
			   Response.Write " </tr>"
			   Response.Write " <tr>"
				Response.Write "  <td height=""22"" width=""20%"" align=""right"">责任编辑：</td>"
			   Response.Write "   <td><input name=""EditorType"" type=""radio"" value=""0"" "
			   If EditorType = 0 Then Response.Write "checked"
			   Response.Write ">当前用户"
			   Response.Write "    &nbsp;<input name=""EditorType"" type=""radio"" value=""1"" "
			   If EditorType = 1 Then Response.Write "checked"
			   Response.Write ">指定用户"
			   Response.Write "    <input name=""Editor"" type=""text"" value=""" & Editor & """>"
			   Response.Write "   　</td>"
			   Response.Write " </tr>"
			   Response.Write " <tr>"
			   Response.Write "   <td height=""22"" width=""20%"" align=""right"">文章属性：</td>"
			   Response.Write "   <td>"
			   Response.Write "     <input name=""Strip"" type=""checkbox"" value=""1"" "
			   If Strip = 1 Then Response.Write "checked"
			   Response.Write ">"
			   Response.Write "     头条文章"
			   Response.Write "     <input name=""Rolls"" type=""checkbox"" value=""1"" "
			   If Rolls = 1 Then Response.Write "checked"
			   Response.Write ">"
			   Response.Write "     滚动文章"
			   Response.Write "     <input name=""Comment"" type=""checkbox"" value=""1"" "
			   If Comment = 1 Then Response.Write "checked"
			   Response.Write ">"
			   Response.Write "     允许评论"
			   Response.Write "     <input name=""Recommend"" type=checkbox value=""1"" "
			   If Recommend = 1 Then Response.Write "checked"
			   Response.Write ">"
			   Response.Write "     推荐文章"
			   Response.Write "     <input name=""Popular"" type=""checkbox"" value=""1"" "
			   If Popular = 1 Then Response.Write "checked"
			   Response.Write ">"
			   Response.Write "     热门文章"
			   Response.Write "     <input name=""Verific"" type=""checkbox"" value=""1"" "
			   If Verific = 1 Then Response.Write "checked"
			   Response.Write ">"
			Response.Write "已审核</td>"
			 Response.Write "   </tr>"
			 Response.Write "   <tr>"
			 Response.Write "     <td height=""22"" width=""20%"" align=""right"">标题旁显示评论链接：</td>"
			 Response.Write "     <td>"
			 Response.Write "        <input name=""ShowComment"" type=""radio"" id=""ShowComment"" value=""1"" "
			 If ShowComment = 1 Then Response.Write "Checked"
			 Response.Write ">"
			 Response.Write "        显示"
			 Response.Write "        <input name=""ShowComment"" type=""radio"" id=""ShowComment"" value=""0"" "
			 If ShowComment = 0 Then Response.Write "Checked"
			 Response.Write ">         不显示      </td>"
			 Response.Write "   </tr>"
12

⌨️ 快捷键说明

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