wm.class.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Cls.Common.asp"-->
<%
Dim eID,eShowType,eShowContent,eChannelDir
Dim eHit,eRe,eK,eKey
Dim eSortErr,eTrash,eAgency,eCommend,eCollection
eID = Int(Split(WRMPS.CheckStr(Request.QueryString,0),",")(0))
eShowType = Ucase(Split(WRMPS.CheckStr(Request.QueryString,0),",")(1))
Call DBConnBegin()
Set Rs=server.createobject("adodb.recordset")
  Set Rs = Conn.Execute("Select WM_Hit,WM_Re,WM_ChannelDir,WM_Key,WM_mCommend,WM_mSortErr,WM_mTrash,WM_mAgency,WM_Collection From WM_ClassAD Where WM_ID = "&eID)
	If Not Rs.Eof Then
	  eHit = Rs(0)
	  eRe = Rs(1)
	  eChannelDir = Rs(2)
	  eKey = Rs(3)
	  eCommend = Rs(4)
	  eSortErr = Rs(5)
	  eTrash = Rs(6)
	  eAgency = Rs(7)
	  eCollection = Rs(8)
	End If
  Rs.Close

  Select Case eShowType
    Case "HIT"
      If eKey = 1 Then
	    Conn.Execute("Update WM_ClassAD Set WM_Hit = WM_Hit+1 Where WM_ID = "&eID)
	    eShowContent = eHit+1
	  Else
	    eShowContent = eHit
	  End If

    Case "RENUM"
	  eShowContent = eRe
	  
    Case "COMMEND"
	  eShowContent = eCommend
	  
    Case "SORTERR"
	  eShowContent = eSortErr
	  
    Case "TRASH"
	  eShowContent = eTrash
	  
    Case "AGENCY"
	  eShowContent = eAgency
	  
    Case "COLLECTION"
	  eShowContent = eCollection
	  
    Case "RESHOW"
      If eRe >= 1 then
      eK=0
	  Rs.Open"Select top 10 WM_Content,WM_User,WM_DateTime From WM_ClassRevert Where WM_IsToPost = 0 and WM_Key=1 and WM_ParentID="&eID&" Order by WM_ID Desc",Conn,1,1
      If Not Rs.Eof Then
	  eShowContent = "<table align=center border=0 cellpadding=0 width='100%' style='border-top:1px #cccccc solid' bgcolor=#FFFFFF>"
	  eShowContent = eShowContent & "<tr bgcolor=#FDEFE0><td height=22><table width='100%'><tr><td>&nbsp;<b>回复 Top10</b></td><td align=right><b><a href="&WR_Setting(3)&eChannelDir&"/Review.asp?ID="&eID&" target=_blank>More...</a></b>&nbsp;</td></tr></table></td></tr>"
      Do while not Rs.eof
      eK=eK+1
	    eShowContent = eShowContent & "<tr><td height=20"
        If eK mod 2 = 0 Then eShowContent = eShowContent & " bgcolor=#F4FFE8"
	    eShowContent = eShowContent & ">"
	    eShowContent = eShowContent & "<table width='100%' border=0 cellspacing=0 cellpadding=10><tr><td>"
	    eShowContent = eShowContent & "<font class=Remark>"
        If Rs(1)<>"" then eShowContent = eShowContent & Trim(Rs(1)) Else eShowContent = eShowContent & "游客"
	    eShowContent = eShowContent & "</b> 于 "&Trim(Rs(2))&" 回复</font>"
	    eShowContent = eShowContent & "<br>"&Rs(0)&"</td></tr></table>"
	    eShowContent = eShowContent & "</td></tr>"
      Rs.movenext
      Loop
	  eShowContent = eShowContent & "</table>"
      End If
      End If
  End Select
Set Rs = Nothing
Call DBConnEnd()
%>
document.write("<%=eShowContent%>");