collection.asp

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

		Set rsSpecial = Newasp.Execute("select SpecialName from NC_Special where SpecialID=" & SpecialID)
		If rsSpecial.BOF And rsSpecial.EOF Then
			Read_Special_Name = "没有指定专题"
			Set rsSpecial = Nothing
			Exit Function
		End If
		Read_Special_Name = rsSpecial(0)
		Set rsSpecial = Nothing
	End Function
	'=================================================
	'过程名：Delitem
	'作  用：删除项目
	'=================================================
	Private Sub Delitem()
		If Trim(Request("ItemID")) <> "" Then
			MyConn.Execute ("delete from NC_CollectArticle where id in (" & Request("ItemID") & ")")
			OutHintScript ("删除操作成功！")
		Else
			OutHintScript ("请选择正确的系统参数！")
		End If
	End Sub
	'=================================================
	'过程名：ItemStep1
	'作  用：项目设置第一步
	'=================================================
	Private Sub ItemStep1()
		Dim sClassSelect
		Session("RemoteSetting") = ""
		Session("AllRemoteUrl") = ""
		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
		Response.Write "<form name=myform method=post action='admin_collect.asp?action=itemstep2'>" & vbNewLine
		Response.Write "<input type=hidden name=ItemID value='0'>" & vbNewLine
		Response.Write "<input type=hidden name=change value='yes'>" & vbNewLine
		Response.Write "<tr>" & vbNewLine
		Response.Write " <td align=""right"" width='25%' class=tablerow1><strong>项目名称：</strong></td>" & vbNewLine
		Response.Write " <td width='75%' class=tablerow1><input type=text name=ItemName size=20 value=''></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=''></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='http://'></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=ItemStep1&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 "<option value=""" & RsObj("ChannelID") & """"
			If RsObj("ChannelID") = ChannelID Then Response.Write " selected"
			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=" & 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 "<option value=""" & RsObj("SpecialID") & """"
			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'> 关闭&nbsp;&nbsp;" & vbNewLine
		Response.Write " <input type=radio name=Estate value='1' checked> 打开</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=RemoteListUrl size=70 value=''> 分页代码： {$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=''></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 RsObj("Grades") = 0 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='0'> " & 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='0'></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>★★★★★</option>" & vbNewLine
		Response.Write " <option value=4>★★★★</option>" & vbNewLine
		Response.Write " <option value=3 selected>★★★</option>" & vbNewLine
		Response.Write " <option value=2>★★</option>" & vbNewLine
		Response.Write " <option value=1>★</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"">" & vbNewLine
		Response.Write " 置顶 " & vbNewLine
		Response.Write " <input name=""isBest"" type=""checkbox"" id=""isBest"" value=""1""> " & vbNewLine
		Response.Write " 推荐" & vbNewLine
		Response.Write " <input name=""ForbidEssay"" type=""checkbox"" id=""ForbidEssay"" value=""1""> " & 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' checked> 关闭&nbsp;&nbsp;" & vbNewLine
		Response.Write " <input type=radio name=SaveRemotePic value='1'> 打开</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
	'=================================================
	'过程名：CheckSave
	'作  用：项目保存判断
	'=================================================
	Private Sub CheckSave()

		If Trim(Request("ItemID")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>错误的系统参数！</li>"
		End If
		If Trim(Request.Form("ItemName")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>项目名称不能为空！</li>"
		End If
		If Trim(Request.Form("WebSiteName")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>网站名称不能为空！</li>"
		End If
		If Trim(Request.Form("WebSiteUrl")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>网站URL不能为空！</li>"
		End If
		If Trim(Request.Form("RemoteListUrl")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>远程文章列表网址不能为空！</li>"
		End If
		strWebSiteUrl = Replace(Replace(Replace(Request.Form("WebSiteUrl"), "\", "/"), " ", ""), "'", "")
		If Right(strWebSiteUrl, 1) <> "/" Then
			strWebSiteUrl = strWebSiteUrl
		Else
			strWebSiteUrl = Left(strWebSiteUrl, Len(strWebSiteUrl) - 1)
		End If
		If Left(strWebSiteUrl, 1) = "/" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>网站URL填写错误！</li>"
		End If
		If Not IsNumeric(Request.Form("star")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>星级不能为空。</li>"
		End If
		If Not IsNumeric(Request.Form("UserGroup")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>阅览等级参数错误！</li>"
		End If
		If Not IsNumeric(Request.Form("ClassID")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>该一级分类已经有下属分类，不能采集！</li>"
		End If
		If Trim(Request.Form("ClassID")) = 0 Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>该分类是外部连接，不能采集！</li>"
		End If
		If Not IsNumeric(Request("AllHits")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>初始点击数请输入整数！</li>"
		End If
		If Not IsNumeric(Request("SpecialID")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>专题ID参数错误！</li>"
		End If
		If Trim(Request.Form("PointNum")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>阅览所需的点数不能为空！如果不想设置请输入零。</li>"
		End If
		If Not IsDate(Request.Form("WriteTime")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>日期参数错误！</li>"
		End If
		If Not IsNumeric(Request.Form("MaxListPage")) Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>列表最多页数输入错误，如果不想限制页数，请填0！</li>"
		End If
		If CInt(Request.Form("isTop")) = 1 Then
			ArticleTop = 1
		Else
			ArticleTop = 0
		End If
		If CInt(Request.Form("isBest")) = 1 Then
			ArticleBest = 1
		Else
			ArticleBest = 0
		End If
		If CInt(Request.Form("ForbidEssay")) = 1 Then
			ForbidEssay = 1
		Else
			ForbidEssay = 0
		End If
	End Sub
	'=================================================
	'过程名：ItemStep2
	'作  用：项目设置第二步
	'=================================================
	Private Sub ItemStep2()
		Dim RemoteListStr
		Dim RemoteListUrl
		Dim RemoteHtmlCode
		Dim MaxListPage
		Dim Rs
		Dim SQL
		If Trim(Request("change")) = "yes" Then