collection.asp

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

			Response.Write "<b class=style2>恭喜您！采集文章完成..."
			Response.Write "已成功采集文章<font color=""#FF0000"">" & Session("SucceedCount") & "</font>篇，总费时<font color=""#FF0000"">" & FormatNumber((Timer() - Request("D")), 2, -1) & "</font>秒,完成时间" & Now() & "</b>"
			Response.Write "</td>"
			Response.Write "</tr>"
		End If
		Session("RemoteSetting") = ""
		Session("AllRemoteUrl") = ""
		Response.Write "</table>"
	End Sub
	Private Sub SettingStep(ByVal ItemID)
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td colspan=2 align=center class=tablerow2>"
		Response.Write "<a href='?ChannelID=" & ChannelID & "' style=""color: green;"">管理首页</a> | "
		Response.Write "<a href='?action=edit&ChannelID=" & ChannelID & "&id=" & ItemID & "' class=showmenu>设置第一步</a> | "
		Response.Write "<a href='?action=itemstep2&ChannelID=" & ChannelID & "&ItemID=" & ItemID & "' class=showmenu>设置第二步</a> | "
		Response.Write "<a href='?action=itemstep3&ChannelID=" & ChannelID & "&ItemID=" & ItemID & "' class=showmenu>设置第三步</a> | "
		Response.Write "<a href='?action=itemstep4&ChannelID=" & ChannelID & "&ItemID=" & ItemID & "' class=showmenu>设置第四步</a> | "
		Response.Write "<a href='?action=demo&ChannelID=" & ChannelID & "&ItemID=" & ItemID & "' class=showmenu>设置第五步</a> | "
		Response.Write "<a href='?action=collect&ChannelID=" & ChannelID & "&ItemID=" & ItemID & "' style=""color: red;"">开始采集</a>"
		Response.Write "</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
	End Sub
	'=================================================
	'过程名：EditItem
	'作  用：编辑项目
	'=================================================
	Private Sub EditItem()
		Dim sClassSelect
		Dim Rs
		If Trim(Request("id")) = "" Then
			Response.Write "错误的系统参数"
			Response.End
		End If
		Session("RemoteSetting") = ""
		Session("AllRemoteUrl") = ""
		Set Rs = MyConn.Execute("select * from NC_CollectArticle where id=" & CLng(Request("id")))
		If Rs.BOF And Rs.EOF Then
			Response.Write "错误的系统参数"
			Set Rs = Nothing
			Exit Sub
		End If
		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("id"))
		Response.Write "<form name=myform method=post action='admin_collect.asp?action=itemstep2'>" & vbNewLine
		Response.Write "<input type=hidden name=ItemID value='"
		Response.Write Rs("id")
		Response.Write "'>" & vbNewLine
		Response.Write "<input type=hidden name=change value='yes'>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" width='20%' class=tablerow1><strong>项目名称：</strong></td>" & vbNewLine
		Response.Write " <td width='80%' class=tablerow1><input type=text name=ItemName size=20 value='"
		Response.Write Rs("ItemName")
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow2><strong>网站名称：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow2><input type=text name=WebSiteName size=20 value='"
		Response.Write Rs("WebSiteName")
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow1><strong>网站地址：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><input type=text name=WebSiteUrl size=40 value='"
		Response.Write Rs("WebSiteUrl")
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow2><strong>所属频道：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow2><select name='ChannelID' onChange=""javascript:location.href='admin_collect.asp?action=edit&id="
		Response.Write Request("id")
		Response.Write "&ChannelID=' + (this.options[this.selectedIndex].value)"">" & vbNewLine
		Set RsObj = Newasp.Execute("select ChannelID,ChannelName from NC_Channel where modules=1")
		Do While Not RsObj.EOF
			Response.Write Chr(9) & "<option value=""" & RsObj("ChannelID") & """"
			If Trim(Request("ChannelID")) <> "" Then
				If RsObj("ChannelID") = ChannelID Then Response.Write " selected"
			Else
				If Rs("ChannelID") = RsObj("ChannelID") Then Response.Write " selected"
			End If
			Response.Write ">"
			Response.Write RsObj("ChannelName")
			Response.Write "</option>" & vbCrLf
			RsObj.MoveNext
		Loop
		RsObj.Close
		Set RsObj = Nothing
		Response.Write "</select>"
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow1><strong>所属分类：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1>" & vbNewLine
		Response.Write "<select name=""ClassID"" id=""ClassID"">"
		sClassSelect = Newasp.LoadSelectClass(ChannelID)
		sClassSelect = Replace(sClassSelect, "{ClassID=" & Rs("ClassID") & "}", "selected")
		Response.Write sClassSelect
		Response.Write "</select>"
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow2><strong>所属专题：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow2><select name=""SpecialID"" id=""SpecialID"">" & vbNewLine
		Response.Write " <option value=""0"">不指定专题</option>" & vbNewLine
		Set RsObj = Newasp.Execute("select SpecialID,SpecialName from NC_Special Where ChannelID = " & ChannelID & " order by orders")
		Do While Not RsObj.EOF
			Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
			If Rs("SpecialID") = RsObj("SpecialID") Then Response.Write " selected"
			Response.Write ">"
			Response.Write RsObj("SpecialName")
			Response.Write "</option>" & vbCrLf
			RsObj.MoveNext
		Loop
		Set RsObj = Nothing
		Response.Write "</select>"
		Response.Write " </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow1><strong>项目状态：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><input type=radio name=Estate value='0'"
		If Rs("Estate") = 0 Then Response.Write (" checked")
		Response.Write "> 关闭&nbsp;&nbsp;" & vbNewLine
		Response.Write " <input type=radio name=Estate value='1'"
		If Rs("Estate") <> 0 Then Response.Write (" checked")
		Response.Write "> 打开</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" noWrap class=tablerow2><strong>远程文章列表网址：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow2><input type=text name=RemoteListUrl size=70 value='"
		Response.Write Rs("RemoteListUrl")
		Response.Write "'> 分页代码： {$PageCode}</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow1><strong>列表最多页数：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow1><input type=text name=MaxListPage size=6 value='"
		Response.Write Rs("MaxListPage")
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow2""><strong>浏览等级：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow2""><select name=""UserGroup"">" & vbNewLine
		Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid")
		Do While Not RsObj.EOF
			Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & """"
			If Rs("UserGroup") = RsObj("Grades") Then Response.Write " selected"
			Response.Write ">"
			Response.Write RsObj("GroupName")
			Response.Write "</option>" & vbCrLf
			RsObj.MoveNext
		Loop
		Set RsObj = Nothing
		Response.Write " </select></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow1""><strong>所需点数：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow1""><input name=""PointNum"" type=""text"" size=""10"" value='"
		Response.Write Rs("PointNum")
		Response.Write "'> " & vbNewLine
		Response.Write " 对匿名用户和管理员无效 </td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow2""><strong>初始点击数：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow2""><input name=""AllHits"" type=""text"" id=""AllHits"" size=""15"" value='"
		Response.Write Rs("AllHits")
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow1""><strong>添加文章的时间：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow1""><input name=""WriteTime"" type=""text"" id=""WriteTime"" size=""30"" value='"
		Response.Write Now
		Response.Write "'></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow2""><strong>文章星级：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow2""><select name=""star"">" & vbNewLine
		Response.Write " <option value=5"
		If Rs("star") = 5 Then Response.Write (" selected")
		Response.Write ">★★★★★</option>" & vbNewLine
		Response.Write " <option value=4"
		If Rs("star") = 4 Then Response.Write (" selected")
		Response.Write ">★★★★</option>" & vbNewLine
		Response.Write " <option value=3"
		If Rs("star") = 3 Then Response.Write (" selected")
		Response.Write ">★★★</option>" & vbNewLine
		Response.Write " <option value=2"
		If Rs("star") = 2 Then Response.Write (" selected")
		Response.Write ">★★</option>" & vbNewLine
		Response.Write " <option value=1"
		If Rs("star") = 1 Then Response.Write (" selected")
		Response.Write ">★</option>" & vbNewLine
		Response.Write " </select></td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=""TableRow1""><strong>其它选项：</strong></td>" & vbNewLine
		Response.Write " <td class=""TableRow1""><input name=""isTop"" type=""checkbox"" id=""isTop"" value=""1"""
		If Rs("isTop") <> 0 Then Response.Write (" checked")
		Response.Write ">" & vbNewLine
		Response.Write " 置顶 " & vbNewLine
		Response.Write " <input name=""isBest"" type=""checkbox"" id=""isBest"" value=""1"""
		If Rs("isBest") <> 0 Then Response.Write (" checked")
		Response.Write "> " & vbNewLine
		Response.Write " 推荐" & vbNewLine
		Response.Write " <input name=""ForbidEssay"" type=""checkbox"" id=""ForbidEssay"" value=""1"""
		If Rs("ForbidEssay") <> 0 Then Response.Write (" checked")
		Response.Write "> " & vbNewLine
		Response.Write " 禁止发表评论</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" class=tablerow2><strong>保存远程图片：</strong></td>" & vbNewLine
		Response.Write " <td class=tablerow2><input type=radio name=SaveRemotePic value='0'"
		If Rs("SaveRemotePic") = 0 Then Response.Write (" checked")
		Response.Write "> 关闭&nbsp;&nbsp;" & vbNewLine
		Response.Write " <input type=radio name=SaveRemotePic value='1'"
		If Rs("SaveRemotePic") <> 0 Then Response.Write (" checked")
		Response.Write "> 打开</td>" & vbNewLine
		Response.Write "</tr>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td class=tablerow1></td>" & vbNewLine
		Response.Write " <td class=tablerow1 align=center>" & 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
	'=================================================
	'函数名：Read_Channel_Name
	'作  用：读取频道名称
	'=================================================
	Private Function Read_Channel_Name(ByVal ChannelID)
		Dim rsChannel
		On Error Resume Next
		Set rsChannel = Newasp.Execute("select ChannelName from NC_Channel where ChannelID=" & ChannelID)
		If rsChannel.BOF And rsChannel.EOF Then
			Read_Channel_Name = "频道错误"
			Set rsChannel = Nothing
			Exit Function
		End If
		Read_Channel_Name = rsChannel(0)
		Set rsChannel = Nothing
	End Function
	'=================================================
	'函数名：Read_Class_Name
	'作  用：读取分类名称
	'=================================================
	Private Function Read_Class_Name(ByVal ClassID)
		Dim rsClass

		On Error Resume Next
		Set rsClass = Newasp.Execute("select ClassName from NC_Classify where ClassID=" & ClassID)
		If rsClass.BOF And rsClass.EOF Then
			Read_Class_Name = "没有分类"
			Set rsClass = Nothing
			Exit Function
		End If
		Read_Class_Name = rsClass(0)
		Set rsClass = Nothing
	End Function
	'=================================================
	'函数名：Read_Special_Name
	'作  用：读取专题名称
	'=================================================
	Private Function Read_Special_Name(ByVal SpecialID)
		Dim rsSpecial
		On Error Resume Next