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

📄 collect_itemmodify.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="../../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_ItemModify
KSCls.Execute()
Set KSCls = Nothing

Class Collect_ItemModify
        Private KSCMS
		Private KMCObj
		Private ConnItem
		Private SqlItem, RsItem, FoundErr, ErrMsg
		
		Private ItemID, ItemName, WebName, WebUrl, ChannelID, ClassID, SpecialID, LoginType, LoginUrl, LoginPostUrl, LoginUser, LoginPass, LoginFalse, ItemDemo
		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()
		ItemID = Trim(Request("ItemID"))
		If ItemID = "" Then
		   FoundErr = True
		   ErrMsg = ErrMsg & "<br><li>参数错误，项目ID不能为空！</li>"
		Else
		   ItemID = CLng(ItemID)
		End If
		If FoundErr <> True Then
		   SqlItem = "select ItemID,ItemName,WebName,WebUrl,ChannelID,ClassID,SpecialID,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,ItemDemo From KS_CollectItem where ItemID=" & ItemID
		   Set RsItem = Server.CreateObject("adodb.recordset")
		   RsItem.Open SqlItem, ConnItem, 1, 1
		   If RsItem.EOF And RsItem.BOF Then
			  FoundErr = True
			  ErrMsg = ErrMsg & "<br><li>参数错误，没有找到该项目！</li>"
		   Else
			  ItemName = RsItem("ItemName")
			  ItemDemo = RsItem("ItemDemo")
			  WebName = RsItem("WebName")
			  WebUrl = RsItem("WebUrl")
			  ChannelID = RsItem("ChannelID")
			  ClassID = RsItem("ClassID")
			  SpecialID = RsItem("SpecialID")
			  LoginType = RsItem("LoginType")
			  LoginUrl = RsItem("LoginUrl")
			  LoginPostUrl = RsItem("LoginPostUrl")
			  LoginUser = RsItem("LoginUser")
			  LoginPass = RsItem("LoginPass")
			  LoginFalse = RsItem("LoginFalse")
		   End If
		   RsItem.Close
		   Set RsItem = Nothing
		End If
		
		If FoundErr = True Then
		   Call KMCObj.WriteErrMsg(ErrMsg)
		Else
		   Call KMCObj.GetClassList
		   Call Main
		End If
		
		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 "</head>"
		Response.Write "<body oncontextmenu=""return false"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
		Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1""  class=""sortbutton"">"
		Response.Write "  <tr>"
		 Response.Write "   <td height=""22"" colspan=""2"" align=""center""><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
		 Response.Write "     <tr>"
		 Response.Write "       <td align=""center""><strong>操作步骤：</strong>编辑项目 >> <font color=red>基本设置</font> >> 列表设置 >> 链接设置 >> 正文设置 >> 采样测试 >> 属性设置 >> 完成</td>"
		 Response.Write "     </tr>"
		Response.Write "    </table></td>"
		Response.Write "  </tr>"
		Response.Write "</table>"
		Response.Write "<br>"
		Response.Write "<table width=""55%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >"
		Response.Write "<form method=""post"" action=""Collect_ItemModify2.asp"" name=""myform""  onSubmit=""return(CheckForm(this))"">"
		Response.Write "    <tr>"
		 Response.Write "     <td width=""20%"" height=""25"" align=""center"">项目名称：</td>"
		 Response.Write "     <td width=""796"">"
		 Response.Write "     <input name=""ItemName"" type=""text"" size=""27"" maxlength=""30"" value=""" & ItemName & """>&nbsp;&nbsp;<font color=red>*</font>如：新浪网－新闻中心</td>"
		  Response.Write "  </tr>"
		  Response.Write "  <tr>"
		  Response.Write "    <td width=""20%"" height=""25"" align=""center""> 所属频道：</td>"
		  Response.Write "    <td width=""796""><select ID=""ChannelID"" name=""ChannelID"" onChange=""SelectClass(this.value)"" style=""Width:200"">"
		  Response.Write KMCObj.Collect_ShowChannel_Option(ChannelID) & "</select>      </td>"
		  Response.Write "  </tr>"
		 Response.Write "   <tr>"
		 Response.Write "     <td width=""20%"" height=""25"" align=""center""> 所属栏目：</td>"
		 Response.Write "     <td width=""796"" ID=""ClassArea""><select name=""ClassID"" ID=""ClassID"" style=""Width:200"">"
		 Response.Write KSCMS.ReturnTree(ClassID, ChannelID) & "</select>      </td>"
		 Response.Write "   </tr>"
		Response.Write "    <tr style=""display:none"">"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 所属专题：</td>"
		Response.Write "      <td width=""796""><input type=""hidden"" value=""0"" name=""specialid"">"
		'call KMCObj.Collect_ShowSpecial_Option(1,0)
		Response.Write "      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr>"
		 Response.Write "     <td width=""20%"" height=""25"" align=""center""> 网站名称：</td>"
		 Response.Write "     <td width=""796"">"
		  Response.Write "      <input name=""WebName"" type=""text"" size=""27"" maxlength=""30"" value=""" & WebName & """>      </td>"
		  Response.Write "  </tr>"
		  Response.Write "  <tr style=""display:none"">"
		  Response.Write "    <td width=""20%"" height=""25"" align=""center""> 网站网址：</td>"
		  Response.Write "    <td width=""796""><input name=""WebUrl"" type=""text"" size=""49"" maxlength=""150"" value=""" & WebUrl & """>      </td>"
		  Response.Write "  </tr>"
		  Response.Write " <tr>"
		  Response.Write "    <td width=""20%"" height=""25"" align=""center""> 网站登录：</td>"
		  Response.Write "    <td>"
		  Response.Write "      <input type=""radio"" value=""0"" name=""LoginType"" "
		  If LoginType = 0 Then Response.Write "checked"
		  Response.Write " onClick=""Login.style.display='none'"">不需要登录<span lang=""en-us"">&nbsp;"
		  Response.Write "      </span>"
		  Response.Write "      <input type=""radio"" value=""1"" name=""LoginType"" "
		  If LoginType = 1 Then Response.Write "checked"
		  Response.Write " onClick=""Login.style.display=''"">设置参数      </td>"
		  Response.Write "   </tr>"
		  Response.Write " <tr id=""Login"" style="""
		  If LoginType = 0 Then Response.Write "display:none"" > "
		 Response.Write "     <td width=""20%"" height=""25"" align=""center""> 登录参数：</td>"
		 Response.Write "     <td>"
		 Response.Write "       登录地址：<input name=""LoginUrl"" type=""text"" size=""40"" maxlength=""150"" value=""" & LoginUrl & """><br>"
		 Response.Write "       提交地址：<input name=""LoginPostUrl"" type=""text"" size=""40"" maxlength=""150"" value=""" & LoginPostUrl & """><br>"
		 Response.Write "       用户参数：<input name=""LoginUser"" type=""text"" size=""30"" maxlength=""150"" value=""" & LoginUser & """><br>"
		 Response.Write "       密码参数：<input name=""LoginPass"" type=""text"" size=""30"" maxlength=""150"" value=""" & LoginPass & """><br>"
		 Response.Write "       失败信息：<input name=""LoginFalse"" type=""text"" size=""30"" maxlength=""150"" value=""" & LoginFalse & """></td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr>"
		  Response.Write "    <td width=""20%"" height=""25"" align=""center"">模板备注：</td>"
		 Response.Write "     <td width=""796""><textarea name=""ItemDemo"" cols=""49"" rows=""5"">" & ItemDemo & "</textarea></td>"
		 Response.Write "   </tr>"
		  Response.Write "  <tr>"
		  Response.Write "    <td height=""35"" colspan=""2"" align=""center"">"
		  Response.Write "      <input name=""ItemID"" type=""hidden"" id=""ItemID"" value=""" & ItemID & """>"
		   Response.Write "     <input name=""Action"" type=""hidden"" id=""Action"" value=""SaveEdit"">"
		   Response.Write "     <input name=""Cancel"" type=""button"" id=""Cancel"" value="" 返&nbsp;&nbsp;回 "" onClick=""window.location.href='javascript:history.back();'"">"
		   Response.Write "     &nbsp;"
		   Response.Write "   <input  type=""submit"" name=""Submit"" value=""下&nbsp;一&nbsp;步""></td>"
		   Response.Write " </tr>"
		Response.Write "</form>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		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
End Class
%>

⌨️ 快捷键说明

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