collection.asp

这是一套基于WEB的网站管理系统

			RemoteListUrl = Replace(Replace(Rs("RemoteListUrl"), "{$PageCode}", 2, 1, -1, 1), "*", 2)
		End If
		RemoteListStr = Split(Rs("RemoteListStr"), "$$$")
		RemoteContent = Split(Rs("RemoteContent"), "$$$")
		Rs.Close
		Set Rs = Nothing
		RemoteHtmlCode = GetHTTPPage(RemoteListUrl)
		RemoteListCode = CutFixContent(RemoteHtmlCode, RemoteListStr(0), RemoteListStr(1), 0)
		RemoteListCode = CutMatchContent(RemoteListCode, RemoteListStr(2), RemoteListStr(3), 0)
		If RemoteListCode = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>在截取文章" & RemoteListUrl & "发生错误；</li>"
			ErrMsg = ErrMsg + "<li>请查看你的截取代码是否正确！</li>"
			Exit Sub
		End If
		strContentUrl = Split(RemoteListCode, "|||")
		ContentUrl = FormatRemoteUrl(strContentUrl(0), RemoteListUrl)
		ContentUrl = Trim(Replace(Replace(Replace(ContentUrl, vbNewLine, ""), Chr(9), ""), Chr(39), ""))
		HtmlContent = GetHTTPPage(ContentUrl)
		Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <th colspan=2>编辑采集项目 第四步</th>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Call SettingStep(Request("ItemID"))
		Response.Write "<form name=myform method=post action='admin_collect.asp?action=itemstep5'>" & vbNewLine
		Response.Write "<input type=hidden name=ItemID value='"
		Response.Write ItemID
		Response.Write "'>" & vbNewLine
		Response.Write "<input type=hidden name=ChannelID value='"
		Response.Write ChannelID
		Response.Write "'>" & vbNewLine
		Response.Write "<input type=hidden name=done value='done'>" & vbNewLine
		Response.Write "<tr align=center>" & vbNewLine
		Response.Write " <td class=TableTitle colspan=2>采集项目编辑----采集目标网站源码</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1 colspan=2><textarea name='content' style='width:100%;height:300px'>"
		Response.Write Server.HTMLEncode(HtmlContent)
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td colspan=2 class=tablerow1>采集目标地址 -- "
		Response.Write "<a href='" & ContentUrl & "' target=_blank><font color=red>" & ContentUrl & "</font></a>  "
		Response.Write " -- 请查看是否正确</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr align=center>" & vbNewLine
		Response.Write " <td class=TableTitle colspan=2>采集项目编辑----采集列表设置</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td width='25%' class=tablerow1><strong>文章标题开始代码：</strong></td>" & vbNewLine
		Response.Write " <td width='75%' class=tablerow1><textarea name=RemoteContent0 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(0))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>文章标题结束代码：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent1 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(1))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>文章内容开始代码：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent2 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(2))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>文章内容结束代码：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent3 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(3))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>文章作者设置：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input type=""radio"" value=""0"" name=RemoteContent4"
		If CInt(RemoteContent(4)) = 0 Then Response.Write " checked"
		Response.Write " onClick=""Author1.style.display='none';Author2.style.display='none'"">不作设置&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""1"" name=RemoteContent4"
		If CInt(RemoteContent(4)) = 1 Then Response.Write " checked"
		Response.Write " onClick=""Author1.style.display='';Author2.style.display='none'"">设置标签&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""2"" name=RemoteContent4"
		If CInt(RemoteContent(4)) = 2 Then Response.Write " checked"
		Response.Write " onClick=""Author1.style.display='none';Author2.style.display=''"">指定作者" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=Author1"
		If CInt(RemoteContent(4)) <> 1 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>作者开始标记：</font></strong><br><br><br><br>" & vbNewLine
		Response.Write " <strong>作者结束标记：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <textarea name=RemoteContent5 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(5))
		Response.Write "</textarea><br>" & vbNewLine
		Response.Write " <textarea name=RemoteContent6 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(6))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=Author2"
		If CInt(RemoteContent(4)) <> 2 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>请指定作者：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input name=RemoteContent7 type=""text"" value="""
		Response.Write Server.HTMLEncode(RemoteContent(7))
		Response.Write """>" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>文章来源设置：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input type=""radio"" value=""0"" name=RemoteContent8"
		If CInt(RemoteContent(8)) = 0 Then Response.Write " checked"
		Response.Write " onClick=""CopyFrom1.style.display='none';CopyFrom2.style.display='none'"">不作设置&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""1"" name=RemoteContent8"
		If CInt(RemoteContent(8)) = 1 Then Response.Write " checked"
		Response.Write " onClick=""CopyFrom1.style.display='';CopyFrom2.style.display='none'"">设置标签&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""2"" name=RemoteContent8"
		If CInt(RemoteContent(8)) = 2 Then Response.Write " checked"
		Response.Write " onClick=""CopyFrom1.style.display='none';CopyFrom2.style.display=''"">指定来源" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=CopyFrom1"
		If CInt(RemoteContent(8)) <> 1 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>来源开始标记：</font></strong><br><br><br><br>" & vbNewLine
		Response.Write " <strong>来源结束标记：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <textarea name=RemoteContent9 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(9))
		Response.Write "</textarea><br>" & vbNewLine
		Response.Write " <textarea name=RemoteContent10 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(10))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=CopyFrom2"
		If CInt(RemoteContent(8)) <> 2 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>请指定来源：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input name=RemoteContent11 type=""text"" value="""
		Response.Write Server.HTMLEncode(RemoteContent(11))
		Response.Write """>" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>相关文章设置：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input type=""radio"" value=""0"" name=RemoteContent12"
		If CInt(RemoteContent(12)) = 0 Then Response.Write " checked"
		Response.Write " onClick=""Related1.style.display='none';Related2.style.display='none'"">不作设置&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""1"" name=RemoteContent12"
		If CInt(RemoteContent(12)) = 1 Then Response.Write " checked"
		Response.Write " onClick=""Related1.style.display='';Related2.style.display='none'"">设置标签&nbsp;" & vbNewLine
		Response.Write " <input type=""radio"" value=""2"" name=RemoteContent12"
		If CInt(RemoteContent(12)) = 2 Then Response.Write " checked"
		Response.Write " onClick=""Related1.style.display='none';Related2.style.display=''"">指定相关文章" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=Related1"
		If CInt(RemoteContent(12)) <> 1 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>相关文章开始标记：</font></strong><br><br><br><br>" & vbNewLine
		Response.Write " <strong>相关文章结束标记：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <textarea name=RemoteContent13 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(13))
		Response.Write "</textarea><br>" & vbNewLine
		Response.Write " <textarea name=RemoteContent14 cols=""70"" rows=""5"">"
		Response.Write Server.HTMLEncode(RemoteContent(14))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr id=Related2"
		If CInt(RemoteContent(12)) <> 2 Then Response.Write " style=""display:'none'"""
		Response.Write "> " & vbNewLine
		Response.Write " <td class=tablerow1><strong>请指定相关文章：</font></strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input name=RemoteContent15 type=""text"" value="""
		Response.Write Server.HTMLEncode(RemoteContent(15))
		Response.Write """>" & vbNewLine
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>过虑其它字符：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent16 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(16))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>过虑内容字符一：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent17 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(17))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>过虑内容字符二：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent18 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(18))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>过虑内容字符三：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent19 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(19))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1><strong>过虑内容字符四：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><textarea name=RemoteContent20 rows=5 cols=70>"
		Response.Write Server.HTMLEncode(RemoteContent(20))
		Response.Write "</textarea></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr align=center>" & vbNewLine
		Response.Write " <td class=tablerow1></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write " <input type=button name=Submit4 onclick=""javascript:history.go(-1)"" value='返回上一页' class=Button>&nbsp;&nbsp;" & vbNewLine
		Response.Write " <input type=submit value='下一步' class=button></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "</form>" & vbNewLine
		Response.Write "</table>" & vbNewLine
	End Sub
	'=================================================
	'过程名：ItemStep5
	'作  用：项目设置第五步
	'=================================================
	Private Sub ItemStep5()
		Dim RemoteListStr
		Dim RemoteListUrl
		Dim RemoteHtmlCode
		Dim RemoteListCode
		Dim RemoteContent
		Dim strContentUrl
		Dim ContentUrl
		Dim HtmlContent
		Dim WebSiteUrl
		Dim TempRemoteContent
		Dim Rs
		Dim SQL
		If Trim(Request("ItemID")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
		End If
		If FoundErr = True Then Exit Sub
		On Error Resume Next
		If Trim(Request("done")) = "done" Then
			For i = 0 To 20
				TempRemoteContent = TempRemoteContent & Request.Form("RemoteContent" & i & "") & "$$$"
			Next
			TempRemoteContent = TempRemoteContent & "0$$$0$$$0$$$0"
		End If
		Set Rs = CreateObject("ADODB.Recordset")
		SQL = "select * from NC_CollectArticle where id=" & CLng(Request("ItemID"))
		Rs.Open SQL, MyConn, 1, 3
		If Trim(Request("done")) = "done" Then
			Rs("RemoteContent") = TempRemoteContent
			Rs.Update
		End If
		ItemID = Rs("id")
		WebSiteUrl = Rs("WebSiteUrl")
		RemoteListUrl = Replace(Replace(Rs("RemoteListUrl"), "{$PageCode}", 1, 1, -1, 1), "*", 1)
		If Not CheckRemoteUrl(RemoteListUrl) Then
			RemoteListUrl = Replace(Replace(Replace(Replace(Rs("RemoteListU