wm.sys_guestbook.asp

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

      Rs.Open "Select WM_ID,WM_User,WM_Tit,WM_Content,WM_Re,WM_Time,WM_Key,WM_Contact From WM_GuestBook Where WM_ID=" & ID & "", Conn, 1, 1
      If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center>没有内容</td></tr></table>" & vbCrLf
      Else
         Content = Content & "<form name='addform' method='post' action='?Action=ThroughSave&ChannelID=" & ChannelID & "&ID=" & ID & "&Page=" & Page & "&Reh="&Reh&"'>"
		 Content = Content & "<tr class=td3><td Colspan=2><strong>主题：" & Rs(2) & "</strong>　("
         If Rs(1) <> "" Then Content = Content & Rs(1) Else Content = Content & "游客"
         Content = Content & " 发表于 " & Rs(5) & ")"
         Content = Content & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td Colspan=2>联系方式：" & Rs(7) & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td width='20%'><strong>留言内容</strong></td><td width='80%'><INPUT type='hidden' name='Content' value='"
         If Rs(3) <> "" Then
           Content = Content & Server.HTMLEncode(Rs(3))
         End If
		 Content = Content & "'><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&savepathfilename=d_savepathfilename' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=200></IFRAME></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>留言回复</strong></td><td><INPUT type='hidden' name='ReContent' value='"
         If Rs(4) <> "" Then
           Content = Content & Server.HTMLEncode(Rs(4))
         End If
		 Content = Content & "'><IFRAME ID=ReContent SRC='../Plus/Edit/edit.asp?ID=ReContent&sMode=EDIT&savepathfilename=d_savepathfilename' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=200></IFRAME></td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td></td><td><input type=submit name='Submit' value='回复并且通过审核' ></td></tr>" & vbCrLf
         Content = Content & "</form>" & vbCrLf
      End If
      Content = Content & "</table><script>document.addform.Content.focus()</script>" & vbCrLf
    
    Case "ThroughSave"
      For i = 1 To Request.Form("Content").Count
        WMContent = WMContent & Request.Form("Content")(i)
      Next
      For i = 1 To Request.Form("ReContent").Count
        ReContent = ReContent & Request.Form("ReContent")(i)
      Next
      WM_Key = WRMPS.CheckStr(Request("WM_Key"), 1)
      Page = WRMPS.CheckStr(Request("Page"), 1)
      ID = WRMPS.CheckStr(Request("ID"), 1)
	  Set Rs = Conn.Execute("Select WM_User From WM_GuestBook Where WM_Key = 0 and WM_ID=" & ID & "")
	  If Not Rs.Eof Then
	    UserName = Rs(0)
	    If UserName <> "" and IsNull(UserName) = False Then
	      rFlag = WRDB.GetUserFlag(UserName)
	      Call WRDB.SaveConsume(0,UserName,0,Int(Split(Split(rFlag,"§")(4),"|")(6)),Int(Split(Split(rFlag,"§")(4),"|")(5)),0,"留言通过审核")
	    End If
	  End If
	  Rs.Close
	  Conn.Execute("Update WM_GuestBook Set WM_Key=1,WM_Content='"&WMContent&"',WM_Re='"&ReContent&"' where WM_ID = "&ID)
      Response.RedIrect "?Action=view&ChannelID=" & ChannelID & "&ID=" & ID & "&Page=" & Page & "&Action="&Reh

    Case "ThroughKey"
      Page = WRMPS.CheckStr(Request("Page"), 1)
      ID = WRMPS.CheckStr(Replace(Request("ID"), " ", ""), 0)
      Reh = WRMPS.CheckStr(Request("Reh"), 0)
      If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
            Conn.Execute ("Update WM_GuestBook set WM_Key = 1 where WM_ID=" & ID(i) & "")
          Next
      End If
      Response.Redirect "?Page=" & Page & "&ChannelID=" & ChannelID & "&Action=" & Reh
    
    Case "DelAll"
      Reh = WRMPS.CheckStr(Request("Reh"), 0)
      Page = WRMPS.CheckStr(Request("Page"), 1)
      ID = WRMPS.CheckStr(Replace(Request("ID"), " ", ""), 0)
      If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
            Conn.Execute ("delete from WM_GuestBook where WM_ID=" & ID(i) & "")
          Next
      End If
      Response.Redirect "?Page=" & Page & "&ChannelID=" & ChannelID & "&Action=" & Reh

    Case Else
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=DelAll&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 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) & "><font color=font2>回复</font></a>"
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>" & vbCrLf
          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) & ">操作</a> | <a href=?Action=DelAll&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & " onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID
         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 type=submit name='submit' value='批量删除' >&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=8 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "① 不论留言是否已经审核，都必须经过审核查看才能出现在留言管理中。<br> ② 留言人为空则为游客留言。</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "</table>" & vbCrLf
       End If
       Rs.Close
  End Select
   Set Rs = Nothing
   Call ClassEnd()
   Call DBConnEnd()
   Response.Write Content
   Call GetBottom()
End Sub

%>