user_companyre.asp

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

<!--#include file="Cook.asp"-->
<%
Call WM_Content
Sub WM_Content()
  If Int(FlagCom(12)) < 1 Then Call WRMPS.ErrView("·您没有权限使用此功能", 0)
  ChannelID = WRMPS.CheckStr(Request("ChannelID"), 1)
  If ChannelID = "" Then Call WRMPS.ErrView("·请选择频道ID", 0): Exit Sub

  Dim Reh,i,AID,aAid
  AID = WRMPS.CheckStr(Request("AID"), 1)
  
  Set Rs=server.createobject("adodb.recordset")
  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "view"
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_CompanyRe.asp?ChannelID=" & ChannelID & ">店铺留言管理</a>")

      Content = Content & "<table width='100%' cellpadding=0 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 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=td3><td>"
         If Rs(2) <> "" Then Content = Content & Rs(2) Else Content = Content & "游客"
         Content = Content & " 发表于 " & Rs(3) & "　　"
         Content = Content & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td height=100>" & WRMPS.CheckStr(Rs(1), 3) & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td3><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
	  Content = Content & PageButtom()

    Case Else
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_CompanyRe.asp?ChannelID=" & ChannelID & ">店铺留言管理</a>")
       Content = Content & "<table width='100%' cellpadding=0 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><td colspan='6' Class=td4>留言管理</td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3>" & 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 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 B.WM_ClaimUser = '"&MemName&"' 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>" & 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&"&Send="&WRMPS.CheckStr(Request("Send"), 0)&"' class=Gray>管理此店铺所有留言</a>|<a href='../Company/Review.asp?ID="&Rs(9)&"' class=Gray target=_blank>查看此店铺所有留言</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></td>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID&"&Send="&WRMPS.CheckStr(Request("Send"), 0)
         Content = Content & "<tr><td colspan=6 class=td5 align=right>" & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "&nbsp;</td></tr></form>" & vbCrLf
         Content = Content & "<tr><td colspan=6 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
     Content = Content & PageButtom()
  End Select

  Set Rs = Nothing
  Call ClassEnd()
  Call DBConnEnd()
  Response.Write Content

End Sub

%>