wm.company_dp.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("ComDP") = 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,Key,FiRstRE
  AID = WRMPS.CheckStr(Request("AID"), 1)
  Key = WRMPS.CheckStr(Request("Key"), 1)
  Reh = WRMPS.CheckStr(Request("Reh"), 0)
  Page = WRMPS.CheckStr(Request("Page"), 1)
  ID = WRMPS.CheckStr(Replace(Request("ID"), " ", ""), 0)
  If Key = "" Then Key = 1
  Call DBConnBegin()
  Set Rs=server.createobject("adodb.recordset")
  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "All"
	  Select Case WRMPS.CheckStr(Request("Work"), 0)
      Case "Commend"
        If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
		    Conn.Execute("Update WM_CompanyRevert Set WM_Commend=1 Where WM_ID="&Int(ID(i)))
          Next
        End If
      Case "CommendDel"
        If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
		    Conn.Execute("Update WM_CompanyRevert Set WM_Commend=0 Where WM_ID="&Int(ID(i)))
          Next
        End If
      Case "Del"
        If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
		    Set Rs = Conn.Execute("Select WM_ComID,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_ReUser From WM_CompanyRevert where WM_ID=" & Int(ID(i)))
		    If Not Rs.Eof Then
              Conn.Execute ("Update WM_Company Set WM_Re = WM_Re-1,WM_ReSer = WM_ReSer-"&Rs(1)&",WM_RePrice = WM_RePrice-"&Rs(2)&",WM_All = WM_All-"&Rs(3)&",WM_Consume = WM_Consume-"&Rs(4)&" where WM_ID=" & Rs(0) & " and WM_Re > 0")
              Conn.Execute ("Update WM_Member Set WM_CompanyReNum = WM_CompanyReNum-1 where WM_UserName='" & Rs(5) & "' and WM_CompanyReNum > 0")
              Conn.Execute ("Update WM_Config Set WM_CompanyReNum = WM_CompanyReNum-1 where WM_CompanyReNum > 0")
              Conn.Execute ("Delete From WM_CompanyRevert where WM_ID=" & ID(i) & "")
			End If
			Rs.Close
          Next
        End If
      Case "Key"
        If ID <> "" Then
          ID = Split(ID, ",")
          For i = 0 To UBound(ID)
            Set Rs = Conn.Execute("Select WM_Key,WM_ReUser,WM_Company,WM_ComID,WM_Consume,WM_ReSer,WM_RePrice,WM_All From WM_CompanyRevert Where WM_ID = "&Int(ID(i)))
			 If Not Rs.Eof Then
			   If Rs(0) < 1 Then
			     rFlag = WRDB.GetUserFlag(Rs(1))
				 Call WRDB.SaveConsume(0,Rs(1),0,Int(Split(Split(rFlag,"§")(1),"|")(10)),Int(Split(Split(rFlag,"§")(1),"|")(9)),0,"点评店铺“"&Rs(2)&"”通过审核")
				   Set Rso = Conn.Execute("Select WM_FiRstRE From WM_Company Where WM_ID="&Rs(3))
	               If Not Rso.Eof Then
				     If Rso(0) = "" Or IsNUll(Rso(0)) Then FiRstRE = ",WM_FiRstRE='"&Rs(1)&"'" Else FiRstRE = ""
		             Conn.Execute("Update WM_Company Set WM_Consume=WM_Consume+"&Rs(4)&",WM_ReSer=WM_ReSer+"&Rs(5)&",WM_RePrice=WM_RePrice+"&Rs(6)&",WM_All=WM_All+"&Rs(7)&",WM_Re=WM_Re+1,WM_LastRE='"&Rs(1)&"'"&FiRstRE&" Where WM_ID="&Rs(3)&" and WM_Key = 1")
				   End If
				   Rso.Close
				 Conn.Execute("Update WM_Config Set WM_CompanyReNum = WM_CompanyReNum + 1")
	             Conn.Execute("Update WM_Member Set WM_CompanyReNum = WM_CompanyReNum + 1 Where WM_UserName = '"&Rs(1)&"'")
			   End If
			 End If
		    Rs.Close
		    Conn.Execute("Update WM_CompanyRevert Set WM_Key=1 Where WM_ID="&Int(ID(i)))
          Next
		End If
      End Select
      Response.Redirect "?Page=" & Page & "&AID="&AID&"&ChannelID=" & ChannelID & "&Key="&Key&"&Action=" & Reh
      
    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_Intro,WM_ReUser,WM_Time,WM_CommendProduct,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_Good,WM_Bad From WM_CompanyRevert 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) & "　　"
         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=td1><td>服务：" & Rs(5) & "　　价格：" & Rs(6) & "　　综合：" & Rs(7) & "　　人均消费：" & Rs(8) & "</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td>好评：" & Rs(9) & "　　差评：" & Rs(10) & "</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 Else
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=All&AID="&AID&"&Key="&Key&"'>" & vbCrLf
       Content = Content & "<input name='ChannelID' type='hidden' value='" & ChannelID & "'>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan='6'><b>点评管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='4%'></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='8%'>推荐</td>" & vbCrLf
       Content = Content & "<td width='12%'>操作</td></tr>" & vbCrLf
	   If AID <> "" Then aAid = " and WM_ComID="&AID Else aAid = ""
	   Rs.Open "Select WM_ID,WM_ComID,WM_Company,WM_Intro,WM_ReUser,WM_Time,WM_Commend From WM_CompanyRevert Where WM_Key="&Key&aAid & " 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>"
		 Content = Content & WRUser.DispUser(0,Rs(4))
		 Content = Content & "</td>" & vbCrLf
         Content = Content & "<td align=left>&nbsp;"
         Content = Content & WRMPS.GotTopic(Trim(Rs(3)), 60,1)
         Content = Content & "<br><a href='?AID="&Rs(1)&"&ChannelID="&ChannelID&"&Key="&Key&"' Class=Gray>查看此店铺所有点评</a>|<a href="&WRMPS.GetCompanyUrl(Rs(1))&" class=Gray target=_blank>"&WRMPS.GotTopic(Rs(2),40,1)&"</a></td>" & vbCrLf
         Content = Content & "<td>" & Rs(5) & "</td>" & vbCrLf
         Content = Content & "<td>" & WRMPS.GetReplace(WRMPS.GetReplace(Rs(6),"0","×"),"1","<font class=Font2>√</font>") & "</td>" & vbCrLf
         Content = Content & "<td><a href=?Action=view&ChannelID=" & ChannelID & "&Page=" & Page & "&ID=" & Rs(0) & "&AID="&AID&"&Key="&Key&">详细</a> | <a href=?Action=All&Work=Del&AID="&AID&"&ChannelID=" & ChannelID & "&ID=" & Rs(0) & "&Page=" & Page & "&Key="&Key&" onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
         Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "ChannelID=" & ChannelID&"&Key="&Key
         Content = Content & "<tr class=td3><td colspan=3><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'>"
		 If Key = 0 Then Content = Content & "<option value='Key'>审核</option>" Else Content = Content & "<option value='Commend'>推荐</option><option value='CommendDel'>取消推荐</option>"
		 Content = Content & "<option value='Del'>删除</option></select><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 & "</table>" & vbCrLf
       End If
  End Select
  
  Set Rs = Nothing
  Call ClassEnd()
  Call DBConnEnd()
  Response.Write Content
  Call GetBottom()

End Sub


%>