admin_article.asp

大型黄页系统,精美黄页flash演示,10m

<!--#include file="setup.asp"-->
<!--#include file="../inc/Create_ArticleCls.Asp"-->
<!--#include file="../inc/NC_HtmlEditCls.Asp" -->
<%
Dim DelArticleHtml
Dim isEdit
Dim Rs1
Dim Rs2
Dim ArticleTitle
Dim ClassName
Dim classid
Dim rootid
Dim selarticleid
Dim keyword
Dim findword
Dim ArticleID
Dim datNowTime
Dim strClassid
Dim ParentID
Dim strParent
Dim Child
Dim depth
Dim strclassname
Dim j
Dim TxtContent
Dim maxperpage
Dim CurrentPage
Dim totalnumber
Dim TotalPageNum
Dim i
Dim ii
Dim pagestart
Dim pageend
Dim maxpagecount
Dim pagination
Dim GotoPageType
Dim ArticleType
Dim WhereSQL
Dim writer,source
Server.ScriptTimeout = 9999
NC_Admin.AdminChk = "21"
NC_Admin.Check
DownsysClass.admin_header
pagination = 0
GotoPageType = 0
Set Rs = Server.CreateObject("adodb.recordset")
Set Rs1 = Server.CreateObject("adodb.recordset")
Set Rs2 = Server.CreateObject("adodb.recordset")
Select Case Trim(Request("Action"))
	Case "add"
		isEdit = False
		Call setclass(isEdit)
	Case "edit"
		isEdit = True
		Call setclass(isEdit)
	Case "save"
		Call saveAdd
	Case "modify"
		Call savemodify
	Case Else
		Call InfoMain
End Select
If Founderr = True Then
	NC_Admin.Error_Msg (ErrMsg)
End If
DownsysClass.admin_footer
NothingObject

Private Sub InfoMain()
	Dim srtClassMenu
	Dim bookmark
	Dim srtClassList
	If Not IsEmpty(Request("selarticleid")) Then
		selarticleid = Request("selarticleid")
		Select Case Request("type")
			Case "del"
				Call batdel
			Case "dele"
				Call batdele
			Case "move"
				Call batmove
			Case "indate"
				Call upindate
			Case "isCommend"
				Call isCommend
			Case "noCommend"
				Call noCommend
			Case "istop"
				Call isTop
			Case "notop"
				Call noTop
			Case "CreateHtml"
				Call BatCreateHtml
			Case Else
				Response.Write "无效参数！"
		End Select
	End If
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write "function SelectAll() {" & vbCrLf
	Response.Write Chr(9) & "for (var i=0;i<document.selform.selarticleid.length;i++) {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var e=document.selform.selarticleid[i];" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "e.checked=!e.checked;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write "function Juge(myform)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "if (myform.keyword.value == """")" & vbCrLf
	Response.Write Chr(9) & "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入要查询的关键字!"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "myform.keyword.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return (false);" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write " <th colspan=""5"">文章管理</th></tr>"
	Response.Write " <tr><form method=Post name=""myform"" action=""admin_article.asp"" onSubmit=""return Juge(this)"">"
	Response.Write " <td class=forumrow height=""22"" colspan=""5"">"
	Response.Write "查询： <input align=""absmiddle"" name=""keyword"" type=""text"" id=""keyword"" size=""30""> &nbsp;查询方法:"
	Response.Write " <select size=""1"" name=""key"">"
	Response.Write " <option value=""topic"">文章标题</option>"
	Response.Write " <option value=""body"">文章内容</option>"
	Response.Write " <option value="""">不限条件</option>"
	Response.Write " </select>"
	Response.Write " <input type=""submit"" name=""Submit"" align=""absmiddle"" value=""查 询..."" class=button>"
	Response.Write " </td></tr></form>"
	Response.Write " <tr>"
	Response.Write " <th width=""5%"" nowrap>选择</th><th width=""70%"">文章标题　"
	srtClassMenu = ClassJumpMenu
	srtClassMenu = Replace(srtClassMenu, "{ClassID=" & Request("clasid") & "}", "selected")
	Response.Write srtClassMenu
	Response.Write Chr(9) & " </th><th nowrap>修改文章</th><th nowrap>推 荐</th><th nowrap>整理时间</th></tr>"
	If Request("clasid") <> "" Then
		SQL = "select classid,classname,rootid,depth,ParentID,strParent,Child from [NC_Class] where classid=" & Request("clasid")
		Rs.Open SQL, Conn, 1, 1
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！没有找到任何文章。或者您选择了错误的系统参数!"
			Response.End
		Else
			strclassname = Rs("classname")
			classid = Rs("classid")
			rootid = Rs("rootid")
			depth = Rs("depth")
			ParentID = Rs("ParentID")
			strParent = Rs("strParent")
			Child = Rs("Child")
		End If
		Rs.Close
	Else
		strclassname = "全部文章"
	End If
	maxperpage = 20 '###每页显示数
	keyword = Server.HTMLEncode(Request("keyword"))
	If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
		Response.Write ("错误的系统参数!请输入整数")
		Response.Write
	End If
	If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
		CurrentPage = CInt(Request("page"))
	Else
		CurrentPage = 1
	End If
	If CInt(CurrentPage) = 0 Then CurrentPage = 1
	If Not IsNull(keyword) And keyword <> "" Then
		keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "&lt;"), ">", "&gt;")
		If Request("key") = "topic" Then
			findword = "Where title like '%" & keyword & "%' and isLock=0"
		ElseIf Request("key") = "body" Then
			findword = "Where content like '%" & keyword & "%'and isLock=0"
		Else
			findword = "Where title like '%" & keyword & "%' or content like '%" & keyword & "%'and isLock=0"
		End If
		WhereSQL = findword
	Else
		If Request("clasid") <> "" Then
			If depth <> 0 Then
				Dim Rs_c, AllClassID,ParentStr
				Set Rs_c = DownsysClass.Execute("select * from NC_Class where strParent like '%"& classid &"%'")
				If Rs_c.EOF And Rs_c.BOF Then
					AllClassID = classid
				Else
					Do While Not Rs_c.EOF
						ParentStr = Split(Rs_c("strParent"), ",")
						For i = 0 To UBound(ParentStr)
							If CLng(ParentStr(i)) = classid Then
								AllClassID = AllClassID & Rs_c("classid") &","
								Exit For
							End If
						Next
						Rs_c.movenext
					Loop
					AllClassID = AllClassID & classid
				End If
				Rs_c.Close
				Set Rs_c = Nothing
				WhereSQL = "where isLock=0 and classid in (" & AllClassID & ")"
			Else
				WhereSQL = "where isLock=0 and rootid=" & rootid & ""
			End If
		Else
			WhereSQL = "where isLock=0"
		End If
	End If
	TotalNumber = Conn.Execute("Select count(id) from [NC_Article] "& WhereSQL &"")(0)
	TotalPageNum = CInt(TotalNumber / maxperpage)  '得到总页数
	If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
	SQL = "select * from NC_Article "& WhereSQL &" order by isTop desc, infotime desc ,id desc"
	Rs.Open SQL, Conn, 1
	DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td colspan=5 class=forumrow>还没有找到任何文章！</td></tr>"
	Else
		If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
		i = 0
		j = (CurrentPage - 1) * maxperpage + 1
		Response.Write " <tr>"
		Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
		Call showpage
		Response.Write "</td></tr>"
		Response.Write "<form name=""selform"" method=""post"" action="""">"
		Do While Not Rs.EOF And i < CInt(maxperpage)
			Response.Write " <tr>"
			Response.Write " <td class=forumrow nowrap align=""center""><input type=""checkbox"" name=""selarticleid"" value="""
			Response.Write Rs("id")
			Response.Write """>"
			Response.Write j
			Response.Write "</td>"
			Response.Write " <td height=""22"" class=""forumrow"">"
			If Rs("istop") = 0 Or Rs("istop") = Empty Then
				Response.Write "<IMG SRC=""images/folder.gif"" WIDTH=""16"" HEIGHT=""16"" BORDER=0 ALT=""开放的文章"">"
			Else
				Response.Write "<IMG SRC=""images/istop.gif"" WIDTH=""15"" HEIGHT=""17"" BORDER=0 ALT=""置顶的文章"">"
			End If
			Response.Write Chr(9) & " [<a href=?clasid="
			Response.Write Rs("Classid")
			Response.Write ">"
			Response.Write Rs("classname")
			Response.Write "</a>] <a href='"
			If CInt(DownsysClass.Setting(5)) = 0 Then
				Response.Write "../article/catalog"
				Response.Write Rs("classid")
				Response.Write "/"
				Response.Write Rs("id")
				Response.Write ".html"
			Else
				Response.Write "../article.asp?id="
				Response.Write Rs("id")
			End If
			Response.Write "' target=_blank>"
			Response.Write Rs("title")
			Response.Write "</a></td>"
			Response.Write " <td class=forumrow align=""center""><a href=?action=edit&id="
			Response.Write Rs("id")
			Response.Write "&classid="
			Response.Write Rs("Classid")
			Response.Write ">编 辑</a></td>"
			Response.Write " <td class=forumrow align=""center"">"
			Response.Write Chr(9) & " "
			If Rs("isCommend") = 0 Then
				Response.Write Chr(9) & " <IMG SRC=""images/folder.gif"" WIDTH='16' HEIGHT='16' BORDER=0 ALT='开放文章'>"
				Response.Write Chr(9) & " "
			Else
				Response.Write Chr(9) & " <IMG SRC='images/jing.gif'  BORDER=0 ALT='推荐文章'>"
				Response.Write Chr(9) & " "
			End If
			Response.Write "</td>"
			Response.Write " <td class=forumrow align=""center"" nowrap>"
			If Rs("infotime") >= Date Then
				Response.Write "<font color=""#FF3300"">"
				Response.Write FormatDateTime(Rs("infotime"), 2)
				Response.Write "</font>"
			Else
				Response.Write FormatDateTime(Rs("infotime"), 2)
			End If
			Response.Write "</td></tr>"
			Rs.movenext
			i = i + 1
			j = j + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Response.Write " <tr>"
	Response.Write " <td height=""22"" class=""forumrow"">管理</td>"
	Response.Write " <td height=""22"" colspan=""3"" class=""forumrow""><a href=""javascript:SelectAll()"">全选/反选</a><input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()"">"
	Response.Write " <input type=""radio"" name=""type"" value=""move"">批量移动 ->"
	srtClassList = DownsysClass.ClassJumpList
	srtClassList = Replace(srtClassList, "{ClassID=" & Request("classid") & "}", "selected")
	Response.Write srtClassList
	If CInt(DownsysClass.Setting(5)) = 0 Then Response.Write "<input type=""radio"" name=""type"" value=""CreateHtml"">批量生成(HTML)"
	Response.Write "　<BR>"
	Response.Write "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""del"">彻底删除"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""dele"">放入回收站"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""isCommend"">设置推荐"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""noCommend"">取消推荐"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""istop"">文章置顶"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""notop"">取消置顶"
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""indate"">更新时间"