wm.company_re.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("ComRe") = 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,i,ID,AID,aAid,rFlag,username
  AID = WRMPS.CheckStr(Request("AID"), 1)
  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.Company_Re.asp?ChannelID=" & ChannelID & "&AID="&AID&">管理首页</a> | <a href=?Action=Through&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'>" & vbCrLf
       Content = Content & "<input name='ChannelID' type='hidden' value='" & ChannelID & "'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan='10'><b>留言管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='5%'></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='18%'>留言时间</td>" & vbCrLf
       Content = Content & "<td width='18%'>操作</td></tr>" & vbCrLf
       Rs.Open "Select WM_ID,WM_Content,WM_User,WM_DateTime From WM_CompanyRe Where WM_ChannelID=" & ChannelID & " and WM_Key=0 Order by WM_ID Desc", Conn, 1, 1
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=6>没有内容</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>"
		 If Rs(2) <> "" Then Content = Content & WRUser.DispUser(0,Rs(2))
		 Content = Content & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;"
         Content = Content & WRMPS.GotTopic(Trim(Rs(1)), 50,1)
         Content = Content & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(3) & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & ">详细</a> | <a href=?Action=ThroughSave&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Reh=Through>审核</a> | <a href=?Action=DelAll&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Reh=Through onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "Action=Through&ChannelID=" & ChannelID
         Content = Content & "<tr class=td3><td 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='批量修改' ></td><td align=right colspan=2>" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=6 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=ThroughSave&AID="&AID&"&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&AID="&AID&"&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)
      Rs.Open "Select WM_ID,WM_Content,WM_User,WM_DateTime,WM_Contact,WM_Key From WM_CompanyRe 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 & "<tr class=td2><td>"
         If Rs(2) <> "" Then Content = Content & Rs(2) Else Content = Content & "游客"
         Content = Content & " 发表于 " & Rs(3) & "　　"
         If Rs(5) < 1 Then Content = Content & "<input type='button' name='Action' onclick=""javascript:window.open('?Action=ThroughSave&ChannelID=" & ChannelID & "&ID=" & ID & "&Page=" & Page & "&Reh=Through','_self')"" value='审核' >"
         Content = Content & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td1><td height=100>" & WRMPS.CheckStr(Rs(1), 3) & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td>联系方式：" & Rs(4) & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td align=center><input type=button value='返 回' onclick='javascript:history.back()'></td></tr>" & vbCrLf
      End If
      Content = Content & "</table>" & vbCrLf
    
    Case "ThroughSave"
      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)
		    Set Rs = Conn.Execute("Select WM_User,WM_ParentID From WM_CompanyRe Where WM_Key = 0 and WM_ID=" & Int(ID(i)) & "")
			If Not Rs.Eof Then
			  UserName = Rs(0)
			  If UserName <> "" Or IsNull(UserName) = False Then
			    rFlag = WRDB.GetUserFlag(UserName)
			    Call WRDB.SaveConsume(0,UserName,0,Int(Split(Split(rFlag,"§")(1),"|")(14)),Int(Split(Split(rFlag,"§")(1),"|")(13)),0,"店铺留言通过审核")
			  End If
	          Conn.Execute("Update WM_Company Set WM_GB=WM_GB+1 where WM_ID="&Rs(1))
			End If
			Rs.Close
            Conn.Execute ("Update WM_CompanyRe set WM_Key = 1 where WM_ID=" & Int(ID(i)) & "")
          Next
      End If
      Response.Redirect "?Page=" & Page & "&AID="&AID&"&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)
		    Set Rs = Conn.Execute("Select WM_ParentID From WM_CompanyRe where WM_ID=" & Int(ID(i)))
		    If Not Rs.Eof Then
              Conn.Execute ("Update WM_Company Set WM_GB = WM_GB-1 where WM_ID=" & Rs(0) & " and WM_GB > 0")
              Conn.Execute ("Delete From WM_CompanyRe where WM_ID=" & Int(ID(i)) & "")
			End If
			Rs.Close
          Next
      End If
      Response.Redirect "?Page=" & Page & "&AID="&AID&"&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&AID="&AID&"'>" & vbCrLf
       Content = Content & "<input name='ChannelID' type='hidden' value='" & ChannelID & "'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan='10'><b>留言管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='5%'></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='5%'>状态</td>" & vbCrLf
       Content = Content & "<td width='18%'>留言时间</td>" & vbCrLf
       Content = Content & "<td width='12%'>操作</td></tr>" & vbCrLf
	   If AID <> "" Then aAid = " and A.WM_ParentID="&AID Else aAid = ""
	   Rs.Open "Select A.WM_ID,A.WM_Content,A.WM_User,A.WM_DateTime,B.WM_Company,B.WM_ChannelDir,B.WM_ClassDir,B.WM_CheckTime,B.WM_ChannelID,B.WM_ID,A.WM_IsToPost,B.WM_AreaID From WM_CompanyRe A Inner Join WM_Company B on A.WM_ParentID = B.WM_ID Where A.WM_ChannelID=" & ChannelID & aAid & " and A.WM_Key=1 Order by A.WM_ID Desc", Conn, 1, 1
       If Rs.EOF Then
         Content = Content & "<tr class=td2><td align=center colspan=6>没有内容</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>"
		 If Rs(2) <> "" Then Content = Content & WRUser.DispUser(0,Rs(2))
		 Content = Content & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;"
         Content = Content & WRMPS.GotTopic(Trim(Rs(1)), 60,1)
         Content = Content & "<br><a href='?AID="&Rs(9)&"&ChannelID="&ChannelID&"' class=Gray>查看此文所有留言</a>|<a href="&WRMPS.GetCompanyUrl(Rs(9))&" class=Gray target=_blank>"&WRMPS.GotTopic(Rs(4),40,1)&"</a></td>" & vbCrLf
         Content = Content & "<td class=Font2>" & replace(replace(Rs(10),1,"隐"),0,"") & "</td>" & vbCrLf
         Content = Content & "<td>" & Rs(3) & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & "&AID="&AID&">详细</a> | <a href=?Action=DelAll&AID="&AID&"&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & " onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID
         Content = Content & "<tr class=td3><td 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='批量删除' ></td><td align=right colspan=3>" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=7 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "①评论人为空则为游客评论。<br>②评论状态为 <font class=Font2>隐</font> 则只有信息发布人可见</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Content = Content & "</table>" & vbCrLf
       End If
  End Select
  
  Set Rs = Nothing
  Call ClassEnd()
  Call DBConnEnd()
  Response.Write Content
  Call GetBottom()

End Sub


%>