user_consumelist.asp

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

<!--#include file="Cook.asp" -->
<%
Call WM_Content
Sub WM_Content()
    Dim WM_Consume, eType,eTitle,i,A,B,aDir
    Page = WRMPS.CheckStr(Request("Page"), 1)
    eType = WRMPS.CheckStr(Request("Type"), 1)
	If eType = "" Then Exit Sub
	Select Case eType
	  Case 1
	    eTitle = "资金"
	  Case 2
	    eTitle = WR_Other(0)
	  Case 3
	    eTitle = "积分"
	  Case 4
	    eTitle = "信用值"
	End Select
    
	Content = Content & PageTop()
    Content = Content & UserPath(",<a href=User_ConsumeList.asp?Type="&eType&">"&eTitle&"明细管理</a>")

    Set Rs = Server.CreateObject("ADODB.RecordSet")
         
		 Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr><td Colspan=5 class=td4><strong>用户"&eTitle&"明细</strong></td></tr>" & vbCrLf
         Content = Content & "<tr Class=td3 align=center>" & vbCrLf
         Content = Content & "<td width='15%'>发生时间</td>" & vbCrLf
         Content = Content & "<td width='12%'>明细</td>" & vbCrLf
         Content = Content & "<td width='*'>备注</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf

         Rs.Open "Select WM_Note,WM_Time,WM_Remark From WM_ConsumeList Where WM_Type="&eType&" and WM_User = '" & MemName & "' Order By WM_ID Desc", Conn, 1, 1
		 If Rs.EOF Then
           Content = Content & "<tr Class=td3 align=center><td align=center colspan=3>没有内容</td></tr>" & vbCrLf
         Else
          WM_Consume = 0
          ListNum = 16
          Rs.PageSize = ListNum
          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(1) & "</td>" & vbCrLf
            Content = Content & "<td align=right style=""padding:0 10px 0 0"">" & Rs(0) & "</td>" & vbCrLf
            Content = Content & "<td align=Left>" & Rs(2) & "</td>" & vbCrLf
            Content = Content & "</tr>" & vbCrLf
		    WM_Consume = WM_Consume + Rs(0)
         Rs.MoveNext
         i = i + 1
         Loop
         Content = Content & "<tr Class=td2><td align=center><strong>本页小计</strong></td><td align=right style=""padding:0 10px 0 0""><strong>"
		 Content = Content & WM_Consume
		 Content = Content & "</strong></td><td Colspan=2></td></tr>" & vbCrLf
         URLParameter = "Type="&eType
         Content = Content & "<tr><td colspan=5 class=td5 align=right>&nbsp;" & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td></tr>" & vbCrLf
         End If
         Rs.Close
         Content = Content & "</table>" & vbCrLf
	  
	  Content = Content & PageButtom()

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

End Sub

%>