📄 admin_message.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp"-->
<!--#include file="../inc/NC_HtmlEditCls.Asp" -->
<%
Dim i
Dim CurrentPage
Dim maxperpage
Dim totalnumber
Dim Pcount
Dim totalPut
Dim isEdit
Dim intMessageid
Dim selMessageid
Dim strTitle
Dim NC_Edit
Dim keyword
Dim TxtContent
Set Rs = Server.CreateObject("ADODB.Recordset")
Set NC_Edit = New HtmlEditor_Cls
NC_Admin.AdminChk = "04"
NC_Admin.Check
DownsysClass.admin_header

Select Case Trim(Request("action"))
	Case "modify"
		Call ModifyMessage
	Case "save"
		Call SaveMessage
	Case "add"
		isEdit = False
		Call EditMessage
	Case "edit"
		isEdit = True
		Call EditMessage
	Case "delall"
		Call DelAllMessage
	Case Else
		Call MessageMain
End Select
If Founderr = True Then
	NC_Admin.Error_Msg (ErrMsg)
End If
Set NC_Edit = Nothing
DownsysClass.admin_footer
NothingObject
'**********************************************
'过程作用：公告首页
'**********************************************
Private Sub MessageMain()
	Dim findword
	Dim bookmark
	If Not IsEmpty(Request("selMessageid")) Then
		selMessageid = Request("selMessageid")
		Select Case Request("type")
			Case "del"
				Call DelMessage
			Case "isTop"
				Call isTop
			Case "noTop"
				Call noTop
			Case Else
				Response.Write "无效参数！"
				Response.End
		End Select
	End If
	Response.Write "<script language=""JavaScript"">" & Chr(13) & Chr(10)
	Response.Write "<!--//" & Chr(13) & Chr(10)
	Response.Write "function SelectAll() {" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "for (var i=0;i<document.selform.selMessageid.length;i++) {" & Chr(13) & Chr(10)
	Response.Write Chr(9) & Chr(9) & "var e=document.selform.selMessageid[i];" & Chr(13) & Chr(10)
	Response.Write Chr(9) & Chr(9) & "e.checked=!e.checked;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "}" & Chr(13) & Chr(10)
	Response.Write "}" & Chr(13) & Chr(10)
	Response.Write "function Juge(myform)" & Chr(13) & Chr(10)
	Response.Write "{" & Chr(13) & Chr(10)
	Response.Write "if (myform.keyword.value == """")" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "{" & Chr(13) & Chr(10)
	Response.Write Chr(9) & Chr(9) & "alert(""请输入要查询的关键字!"");" & Chr(13) & Chr(10)
	Response.Write Chr(9) & Chr(9) & "myform.keyword.focus();" & Chr(13) & Chr(10)
	Response.Write Chr(9) & Chr(9) & "return (false);" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "}" & Chr(13) & Chr(10)
	Response.Write "}" & Chr(13) & Chr(10)
	Response.Write "//-->"
	Response.Write "</script>" & Chr(13) & Chr(10)
	Response.Write "<TABLE width=""99%"" border=0 cellpadding=3 cellspacing=1 align=center class=tableBorder>" & Chr(13) & Chr(10)
	Response.Write "<TR>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH colspan=5>公告管理</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR><form method=Post name=""myform"" action=""admin_message.asp"" onSubmit=""return Juge(this)"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD colspan=5 height=""28"" class=forumRow>查询： <input align=""absmiddle"" name=""keyword"" type=""text"" id=""keyword"" size=""30""> &nbsp;查询方法:" & Chr(13) & Chr(10)
	Response.Write " <select size=""1"" name=""key"">" & Chr(13) & Chr(10)
	Response.Write " <option value=""title"">公告标题</option>" & Chr(13) & Chr(10)
	Response.Write " <option value=""content"">公告内容</option>" & Chr(13) & Chr(10)
	Response.Write " <option value="""">不限条件</option>" & Chr(13) & Chr(10)
	Response.Write " </select>" & Chr(13) & Chr(10)
	Response.Write " <input type=""submit"" name=""Submit"" align=""absmiddle"" value=""查 询..."" class=button></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR></form>" & Chr(13) & Chr(10)
	Response.Write "<TR>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH noWrap>选择</TH>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH width=""70%"">公告标题</TH>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH noWrap>编辑公告</TH>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH noWrap>公告位置</TH>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TH noWrap>更新时间</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	If Not IsEmpty(Request("page")) Then
		CurrentPage = CLng(Request("page"))
	Else
		CurrentPage = 1
	End If
	maxperpage = 20 '###每页显示数
	keyword = Request("keyword")
	If Not IsNumeric(Request("page")) And Request("page") <> "" Then
		Response.Write "错误的系统参数!请输入整数"
		Response.End
	End If
	If Not IsNull(keyword) And keyword <> "" Then
		keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "&lt;"), ">", "&gt;")
		If Request("key") = "title" Then
			findword = "title like '%" & keyword & "%'"
		ElseIf Request("key") = "content" Then
			findword = "content like '%" & keyword & "%'"
		Else
			findword = "title like '%" & keyword & "%' or content like '%" & keyword & "%'"
		End If
		SQL = "select * from NC_Message where " & findword & " "
		SQL = SQL & " order by postime desc,id desc"
	Else
		SQL = "select * from NC_Message order by isTop desc,postime desc,id desc"
	End If
	Rs.Open SQL, Conn, 1, 1
	DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td colspan=5 class=forumrow>还没有找到任何公告信息！</td></tr>"
	Else
		totalnumber = Rs.recordcount
		If (totalnumber Mod maxperpage) = 0 Then
			Pcount = totalnumber \ maxperpage
		Else
			Pcount = totalnumber \ maxperpage + 1
		End If
		Rs.MoveFiRst
		If CurrentPage > Pcount Then CurrentPage = Pcount
		If CurrentPage < 1 Then CurrentPage = 1
		Rs.Move (CurrentPage - 1) * maxperpage
		bookmark = Rs.bookmark
		i = 0
		Response.Write "<TR height=""28"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "<TD colspan=5 class=forumRowHighlight align=center>"
		Call showpage
		Response.Write "</TD>" & Chr(13) & Chr(10)
		Response.Write "</TR>" & Chr(13) & Chr(10)
		Response.Write "<form name=""selform"" method=""post"" action="""">" & Chr(13) & Chr(10)
		Do While Not Rs.EOF And i < CLng(maxperpage)
			Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
			Response.Write Chr(9) & "<TD class=forumRowHighlight><input type=checkbox name=selMessageid value="""
			Response.Write Rs("id")
			Response.Write """ title=""管理："
			Response.Write Rs("title")
			Response.Write """></TD>" & Chr(13) & Chr(10)
			Response.Write Chr(9) & "<TD class=forumRow>"
			If Rs("istop") = 0 Then
				Response.Write "<IMG SRC=""images/folder.gif"" WIDTH=""16"" HEIGHT=""16"" BORDER=0 ALT=""开放的影片"">"
			Else
				Response.Write "<FONT color=#000000><IMG SRC=""images/istop.gif"" WIDTH=""15"" HEIGHT=""17"" BORDER=0 ALT=""置顶的影片""></FONT>"
			End If
			Response.Write " <a href=../Message.asp?id="
			Response.Write Rs("id")
			Response.Write " target=_blank> "
			Response.Write Rs("title")
			Response.Write "</a></TD>" & Chr(13) & Chr(10)
			Response.Write Chr(9) & "<TD class=forumRowHighlight align=center><a href=?action=edit&id="
			Response.Write Rs("id")
			Response.Write " title=""点击修改："
			Response.Write Rs("title")
			Response.Write """>编 辑</a></TD>" & Chr(13) & Chr(10)
			Response.Write Chr(9) & "<TD class=forumRow align=center>"
			If Rs("statid") = 0 Then Response.Write "所有位置"
			If Rs("statid") = 1 Then Response.Write "信息首页"
			If Rs("statid") = 2 Then Response.Write "文章首页"
			Response.Write "</TD>" & Chr(13) & Chr(10)
			Response.Write Chr(9) & "<TD class=forumRowHighlight noWrap align=center>"
			If Rs("postime") >= Date Then
				Response.Write "<font color=""#FF3300"">"
				Response.Write FormatDateTime(Rs("postime"), 2)
				Response.Write "</font>"
			Else
				Response.Write FormatDateTime(Rs("postime"), 2)
			End If
			Response.Write "</TD>" & Chr(13) & Chr(10)
			Response.Write "</TR>" & Chr(13) & Chr(10)
			Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Response.Write "<TR height=""30"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD class=forumRow>管理</TD>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD colspan=3 class=forumRow><a href=""javascript:SelectAll()"" title=""管理选项：全选/反选"">全选/反选</a><input type=""checkbox"" name=""checkbox"" value=""checkbox"" onClick=""javascript:SelectAll()""> " & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""del"" title=""管理选项：批量删除选中的公告"">批量删除" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""isTop"" title=""管理选项：批量设置选中的公告置顶"">置顶" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<input type=""radio"" name=""type"" value=""noTop"" title=""管理选项：批量取消选中的公告置顶"">取消置顶" & Chr(13) & Chr(10)
	Response.Write Chr(9) & " [<a href=?action=delall onclick=""{if(confirm('此操作将删除全部的公告,不能恢复\n您确定执行此操作吗?')){return true;}return false;}"">清空所有公告</a>]" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD class=forumRow><input type=submit name=Submit value=""执行操作"" class=button onclick=""{if(confirm('您确定执行此操作吗?')){this.document.selform.submit();return true;}return false;}""></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR></form>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""28"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD colspan=5 class=forumRowHighlight align=center>"
	Call showpage
	Response.Write "</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "</TABLE>" & Chr(13) & Chr(10)
	Response.Write Chr(9)
End Sub

'**********************************************
'过程作用：编辑公告
'**********************************************

Private Sub EditMessage()
	Dim MessageTitle
	If isEdit Then
		SQL = "select * from NC_Message where id=" & Request("id")
		Rs.Open SQL, Conn, 1, 1
		DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
		MessageTitle = "编辑公告"
	Else
		MessageTitle = "添加公告"
	End If
	Response.Write "<div onkeydown=CtrlEnter()>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TABLE width=""99%"" border=0 cellpadding=3 cellspacing=1 align=center class=tableBorder>" & Chr(13) & Chr(10)
	Response.Write "<TR><form name=""myform"" method=""post"" action=""admin_message.asp"">" & Chr(13) & Chr(10)
	If CInt(DownsysClass.Setting(19)) = 1 Then
		Response.Write "<input type=""hidden"" name=""content1"" id=body value="""
		If isEdit Then
			Response.Write Server.HTMLEncode(Rs("Content"))
		End If
		Response.Write """>" & Chr(13) & Chr(10)
	End If
	Response.Write " <input type=""Hidden"" name=""action"" value='"
	If isEdit Then
		Response.Write "modify"
	Else
		Response.Write "save"
	End If
	Response.Write "'>" & Chr(13) & Chr(10)
	Response.Write " "
	If isEdit Then
		Response.Write " <input type=""Hidden"" name=""id"" value='"
		Response.Write CStr(Request("id"))
		Response.Write "'>" & Chr(13) & Chr(10)
		Response.Write " "
	End If
	Response.Write " " & Chr(9) & "<TH colspan=2>"
	Response.Write MessageTitle
	Response.Write "</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD noWrap align=""right"" class=forumRowHighlight>公告标题：</TD>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD width=""85%"" class=forumRow><input type=text name=title size=50 value="""
	If isEdit Then
		Response.Write Rs("title")
	End If
	Response.Write """></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD noWrap align=""right"" class=forumRowHighlight>显示位置：</TD>" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "<TD class=forumRow><select size=""1"" name=""statid"">" & Chr(13) & Chr(10)
	Response.Write " <option value=""0"" "
	If isEdit Then
12 下一页
⌨️ 快捷键说明

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