wm.sys_guestbook.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("GuestBook") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
  ChannelID = WRMPS.CheckStr(Request("ChannelID"), 1)
  If ChannelID = "" Then Call WRMPS.ErrView("·请选择频道ID", 0): Exit Sub
  Dim Reh, WM_Key,i,ID,reContent,WMContent,UserName,rFlag
  Call DBConnBegin() 
  Set Rs = server.createobject("adodb.recordset")
  
  Content = "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td>&nbsp;<a href=WM.Sys_GuestBook.asp?ChannelID=" & ChannelID & ">管理首页</a> | <a href=?Action=Through&ChannelID=" & ChannelID & ">待审留言</a> | <a href=?Action=New&ChannelID=" & ChannelID & ">新进留言</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf
  
  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "Through"
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=All&ChannelID=" & ChannelID & "'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan=8><b>待审留言</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='4%'></td>" & vbCrLf
       Content = Content & "<td width='5%'>ID</td>" & vbCrLf
       Content = Content & "<td width='10%'>留言人</td>" & vbCrLf
       Content = Content & "<td width=*>留言标题</td>" & vbCrLf
       Content = Content & "<td width='16%'>留言时间</td>" & vbCrLf
       Content = Content & "<td width='5%'>回复</td>" & vbCrLf
       Content = Content & "<td width='5%'>状态</td>" & vbCrLf
       Content = Content & "<td width='15%'>操作</td></tr>" & vbCrLf
       Rs.Open "Select WM_ID,WM_User,WM_Tit,WM_Content,WM_Re,WM_Time,WM_Key,WM_Contact,WM_Type From WM_GuestBook Where WM_Key=0 Order By WM_ID Desc", Conn, 1, 1
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=8>没有内容</td></tr></table>" & vbCrLf
       Else
         ListNum = 16
         '分页的实现
         Rs.PageSize = ListNum
         Page = WRMPS.CheckStr(Request("Page"), 1)
         If Page = "" Or Page < 1 Then Page = 1
         Rs.AbsolutePage = Page
         i = 0
         Do While Not Rs.EOF And i < ListNum
         Content = Content & "<tr Class=td2 align='center'>" & vbCrLf
         Content = Content & "<td><input type='checkbox' name='ID' value=" & Rs(0) & " style='border:0'></td>" & vbCrLf
         Content = Content & "<td>" & Rs(0) & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(1) & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;" & Rs(2) & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(5) & "</td>" & vbCrLf
         Content = Content & "<td>"
          If Rs(4) <> "" Then Content = Content & "已回" Else Content = Content & "<a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & " onclick=""Top_Key_Open()"" target=Top><font color=font2>回复</font></a>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
          If Rs(8) = 0 Then Content = Content & "<font color=font2>新</font>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & "&Reh=Through>操作</a>"
         If Rs(6) = 0 Then Content = Content & " | <a href=?Action=ThroughKey&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Reh=Through>审核</a>"
         Content = Content & " | <a href=?Action=DelAll&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Reh=Through onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID & "&Action=Through"
         Content = Content & "<tr class=td3><td colspan=4>" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td><td align=right colspan=4><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<input name='Page' type='hidden' value='" & Page & "'><input name='Reh' type='hidden' value='Through'><select name='SaveType'><option value='审核'>审核</option><option value='删除'>删除</option></select>　<input type=submit name='submit' value='批量操作' >&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=8 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "①留言人为空则为游客留言。</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "</table>" & vbCrLf
       End If
    
	Case "New"
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=All&ChannelID=" & ChannelID & "'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan=8><b>新进留言</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='4%'></td>" & vbCrLf
       Content = Content & "<td width='5%'>ID</td>" & vbCrLf
       Content = Content & "<td width='10%'>留言人</td>" & vbCrLf
       Content = Content & "<td width=*>留言标题</td>" & vbCrLf
       Content = Content & "<td width='16%'>留言时间</td>" & vbCrLf
       Content = Content & "<td width='5%'>回复</td>" & vbCrLf
       Content = Content & "<td width='5%'>状态</td>" & vbCrLf
       Content = Content & "<td width='15%'>操作</td></tr>" & vbCrLf
       Rs.Open "Select WM_ID,WM_User,WM_Tit,WM_Content,WM_Re,WM_Time,WM_Key,WM_Contact,WM_Type From WM_GuestBook Where WM_Type = 0 Order By WM_ID Desc", Conn, 1, 1
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=8>没有内容</td></tr></table>" & vbCrLf
       Else
         ListNum = 16
         '分页的实现
         Rs.PageSize = ListNum
         Page = WRMPS.CheckStr(Request("Page"), 1)
         If Page = "" Or Page < 1 Then Page = 1
         Rs.AbsolutePage = Page
         i = 0
         Do While Not Rs.EOF And i < ListNum
         Content = Content & "<tr Class=td2 align='center'>" & vbCrLf
         Content = Content & "<td><input type='checkbox' name='ID' value=" & Rs(0) & " style='border:0'></td>" & vbCrLf
         Content = Content & "<td>" & Rs(0) & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(1) & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;" & Rs(2) & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(5) & "</td>" & vbCrLf
         Content = Content & "<td>"
          If Rs(4) <> "" Then Content = Content & "已回" Else Content = Content & "<a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & " onclick=""Top_Key_Open()"" target=Top><font color=font2>回复</font></a>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>"
          If Rs(8) = 0 Then Content = Content & "<font color=font2>新</font>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & "&Reh=Through>查看</a>"
         Content = Content & " | <a href=?Action=DelAll&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Reh=Through onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID & "&Action=Through"
         Content = Content & "<tr class=td3><td colspan=4>" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td><td align=right colspan=4><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<input name='Page' type='hidden' value='" & Page & "'><input name='Reh' type='hidden' value='Through'><select name='SaveType'><option value='删除'>删除</option></select>　<input type=submit name='submit' value='批量操作' >&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=8 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "①留言人为空则为游客留言。</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "</table>" & vbCrLf
       End If

    Case "All"
      If WRMPS.CheckStr(Request("SaveType"), 0) = "审核" Then
        Response.Redirect "?Action=ThroughKey&ChannelID=" & ChannelID & "&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&Reh=" & WRMPS.CheckStr(Request("Reh"), 0) & "&ID=" & WRMPS.CheckStr(Replace(Request("ID"), " ", ""), 0) & ""
      ElseIf WRMPS.CheckStr(Request("SaveType"), 0) = "删除" Then
        Response.Redirect "?Action=DelAll&ChannelID=" & ChannelID & "&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&Reh=" & WRMPS.CheckStr(Request("Reh"), 0) & "&ID=" & WRMPS.CheckStr(Replace(Request("ID"), " ", ""), 0) & ""
      End If
      
    Case "view"
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Page = WRMPS.CheckStr(Request("Page"), 1)
      ID = WRMPS.CheckStr(Request("ID"), 1)
      Conn.Execute ("Update WM_GuestBook Set WM_Type=1 Where WM_ID=" & ID & "")