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

📄 collect_itemmodify2.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		   Else
		
		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"">"
		Response.Write "<!--" & vbCrLf
		Response.Write ".STYLE1 {color: #0000CC}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style>" & vbCrLf
		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"" 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=""70%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >"
		Response.Write "<form method=""post"" action=""Collect_ItemModify3.asp"" name=""form1"">"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""30"" align=""center"">列表索引页面：</td>"
		Response.Write "      <td width=""75%"">"
		Response.Write "        <input name=""ListStr"" type=""text"" size=""50"" maxlength=""200"" value=""" & ListStr & """>"
		Response.Write "&nbsp;&nbsp;列表的第一页 </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		 Response.Write "     <td width=""20%"" align=""center"" >列表开始标记：</td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "     <textarea name=""LsString"" cols=""49"" rows=""7"">" & LsString & "</textarea><br>      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr>"
		 Response.Write "     <td width=""20%"" align=""center"" >列表结束标记：</td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "     <textarea name=""LoString"" cols=""49"" rows=""7"">" & LoString & "</textarea><br>      </td>"
		 Response.Write "   </tr>"
		
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""30"" align=""center""> 列表索引分页：</td>"
		Response.Write "      <td width=""75%"">"
		 Response.Write "       <input type=""radio"" value=""0"" name=""ListPageType"" "
		 If ListPageType = 0 Then Response.Write "checked"
		 Response.Write " onClick=""ListPage1.style.display='none';ListPage12.style.display='none';ListPage2.style.display='none';ListPage3.style.display='none'"">不作设置&nbsp;"
		 Response.Write "       <input type=""radio"" value=""1"" name=""ListPageType"""
				 If ListPageType = 1 Then Response.Write "checked"
				 Response.Write " onClick=""ListPage1.style.display='';ListPage12.style.display='';ListPage2.style.display='none';ListPage3.style.display='none'"">设置标签&nbsp;"
		 Response.Write "       <input type=""radio"" value=""2"" name=""ListPageType"" "
		 If ListPageType = 2 Then Response.Write "checked"
		 Response.Write " onClick=""ListPage1.style.display='none';ListPage12.style.display='none';ListPage2.style.display='';ListPage3.style.display='none'"">批量生成&nbsp;"
		 Response.Write "       <input type=""radio"" value=""3"" name=""ListPageType"" "
		 If ListPageType = 3 Then Response.Write "checked"
		 Response.Write " onClick=""ListPage1.style.display='none';ListPage12.style.display='none';ListPage2.style.display='none';ListPage3.style.display=''"">手动添加      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr id=""ListPage1"" style=""display:'"
		 If ListPageType <> 1 Then Response.Write "none"
		 Response.Write "'"">"
		Response.Write "      <td width=""20%"" align=""center"" class=""tdbg  STYLE1"">下页开始标记："
		 Response.Write "       <p>　</p><p>　</p>"
		 Response.Write "       下页结束标记： </td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "       <textarea name=""LPsString"" cols=""49"" rows=""7"">" & LPsString & "</textarea><br>"
		 Response.Write "       <textarea name=""LPoString"" cols=""49"" rows=""7"">" & LPoString & "</textarea>      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr id=""ListPage12"" style=""display:'"
		 If ListPageType <> 1 Then Response.Write "none"
		 Response.Write "'"">"
		 Response.Write "     <td width=""20%"" align=""center""><span class=""STYLE1"">索引分页重定向： </span></td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "       <input name=""ListPageStr1"" type=""text"" size=""58"" maxlength=""200"" value=""" & ListPageStr1 & """>      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr id=""ListPage2"" style=""display:'"
		 If ListPageType <> 2 Then Response.Write "none"
		 Response.Write "'"">"
		 Response.Write "     <td width=""20%"" align=""center""><span class=""STYLE1"">批量生成：</span></td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "       原字符串：<br>"
		  Response.Write "      <input name=""ListPageStr2"" type=""text"" size=""58"" maxlength=""200"" value=""" & ListPageStr2 & """><br>"
		  Response.Write "              格式：http://www.xxxxxx.com/list.asp?page={$ID}<br><br>"
		  Response.Write "      生成范围：<br>"
		 Response.Write "       <input name=""ListPageID1"" type=""text"" size=""8"" maxlength=""200"" value=""" & ListPageID1 & """><span lang=""en-us""> To </span><input name=""ListPageID2"" type=""text"" size=""8"" maxlength=""200"" value=""" & ListPageID2 & """><br>"
		 Response.Write "              格式：只能是数字，可升序或者降序。      </td>"
		 Response.Write "   </tr>"
		 Response.Write "   <tr id=""ListPage3"" style=""display:'"
		 If ListPageType <> 3 Then Response.Write "none"
		 Response.Write "'"">"
		 Response.Write "     <td width=""20%"" align=""center""><span class=""STYLE1"">手动添加： </span></td>"
		 Response.Write "     <td width=""75%"">"
		 Response.Write "     <textarea name=""ListPageStr3"" cols=""49"" rows=""7"">" & ListPageStr3 & "</textarea><br>"
		 Response.Write "     格式：输入一个网址后按回车，再输入下一个。      </td>"
		 Response.Write "   </tr>"
		
		 Response.Write "   <tr>"
		 Response.Write "     <td height=""30"" 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  type=""submit"" name=""Submit"" value=""下&nbsp;一&nbsp;步""></td>"
		 Response.Write "   </tr>"
		Response.Write "</form>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		End If
		End Sub
		Sub SaveEdit()
		   ItemName = Trim(Request.Form("ItemName"))
		   WebName = Trim(Request.Form("WebName"))
		   WebUrl = Trim(Request.Form("WebUrl"))
		   ChannelID = Trim(Request.Form("ChannelID"))
		   ClassID = Trim(Request.Form("ClassID"))
		   SpecialID = Trim(Request.Form("SpecialID"))
		   LoginType = Trim(Request.Form("LoginType"))
		   LoginUrl = Trim(Request.Form("LoginUrl"))
		   LoginPostUrl = Trim(Request.Form("LoginPostUrl"))
		   LoginUser = Trim(Request.Form("LoginUser"))
		   LoginPass = Trim(Request.Form("LoginPass"))
		   LoginFalse = Trim(Request.Form("LoginFalse"))
		   ItemDemo = Request.Form("ItemDemo")
			  If ItemName = "" Then
				 FoundErr = True
				 ErrMsg = ErrMsg & "<br><li>项目名称不能为空</li>"
			  End If
			  If WebName = "" Then
				 FoundErr = True
				 ErrMsg = ErrMsg & "<br><li>网站名称不能为空</li>"
			  End If
			  If WebUrl = "" Then
				 FoundErr = True
				 ErrMsg = ErrMsg & "<br><li>网站网址不能为空</li>"
			  End If
			  If ChannelID = "" Or ChannelID = 0 Then
				 FoundErr = True
				 ErrMsg = ErrMsg & "<br><li>未指定频道</li>"
			  Else
				 ChannelID = CLng(ChannelID)
			  End If
		
				If ClassID = "" Then
				   FoundErr = True
				   ErrMsg = ErrMsg & "<br><li>未指定栏目</li>"
				Else
				   ClassID = ClassID
				   Set Rs = conn.Execute("select * From KS_Class Where ID='" & ClassID & "'")
				   If Rs.BOF And Rs.EOF Then
						 FoundErr = True
						 ErrMsg = ErrMsg & "<br><li>找不到指定的栏目</li>"
					End If
					strChannelDir = Rs("Folder")
					Set Rs = Nothing
				End If
			  
				 SpecialID = 0
		
			  If LoginType = "" Then
				 FoundErr = True
				 ErrMsg = ErrMsg & "<br><li>请选择网站登录类型</li>"
			  Else
				 LoginType = CLng(LoginType)
				 If LoginType = 1 Then
					If LoginUrl = "" Or LoginPostUrl = "" Or LoginUser = "" Or LoginPass = "" Or LoginFalse = "" Then
					   FoundErr = True
					   ErrMsg = ErrMsg & "<br><li>网站登录信息不完整</li>"
					End If
				 End If
			  End If
		   If FoundErr <> True Then
			  SqlItem = "Select top 1 *  From KS_CollectItem Where ItemID=" & ItemID
			  Set RsItem = Server.CreateObject("adodb.recordset")
			  RsItem.Open SqlItem, ConnItem, 2, 3
			  RsItem("ItemName") = ItemName
			  RsItem("WebName") = WebName
			  RsItem("WebUrl") = WebUrl
			  RsItem("ChannelID") = ChannelID
			  RsItem("ChannelDir") = strChannelDir
			  RsItem("ClassID") = ClassID
			  RsItem("SpecialID") = SpecialID
			  RsItem("LoginType") = LoginType
			  If LoginType = 1 Then
				 RsItem("LoginUrl") = LoginUrl
				 RsItem("LoginPostUrl") = LoginPostUrl
				 RsItem("LoginUser") = LoginUser
				 RsItem("LoginPass") = LoginPass
				 RsItem("LoginFalse") = LoginFalse
			  End If
			  RsItem("ItemDemo") = ItemDemo
			  RsItem.Update
			  RsItem.Close
			  Set RsItem = Nothing
		   End If
		End Sub
End Class
%>
12

⌨️ 快捷键说明

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