wm.finance_list.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
Call WM_Content
Sub WM_Content()
Dim WM_Consume, eType,eTitle,i,A,B,aDir,eUser,sUser,DelDate
Select Case Request("Action")
  Case "DelAll"
       If CheckAdminFlag("FinanceClear") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
       sUser = WRMPS.CheckStr(Request("UserName"), 0)
	   DelDate = WRMPS.CheckStr(Request("DelDate"), 1)
	   eType = WRMPS.CheckStr(WRMPS.GetReplace(Request("A")," ",""), 0)
	   If DelDate < 999 Then SQL = " and WM_Time <= "&ConnTime&"-"&DelDate
	   If sUser <> "" Then SQL = SQL & " and WM_User = '"&sUser&"'"
	   If eType <> "" Then
	     SQL = SQL & " and WM_Type in ("&eType&")"
	     Conn.Execute("Delete From WM_ConsumeList Where WM_ID Is Not Null"&SQL)
	   End If
	   Call WRMPS.ErrView("·明细清理！<meta http-equiv=refresh content='1;URL=?Action=Del'>", 1)

  Case "Del"
       If CheckAdminFlag("FinanceClear") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<tr Class=td4><td colspan=2><b>明细清理</b></td></tr>" & vbCrLf
       Content = Content & "<form name=addform method='post' Action='?Action=DelAll'>" & vbCrLf
	   Content = Content & "<tr Class=td2>" & vbCrLf
       Content = Content & "<td width='20%'><strong>用户名：</strong><br>不填则清理所有用户明细</td>" & vbCrLf
       Content = Content & "<td width='80%'><input type='text' size=20 name='UserName' maxlength='50'></td>" & vbCrLf
       Content = Content & "</tr>" & vbCrLf
	   Content = Content & "<tr Class=td2>" & vbCrLf
       Content = Content & "<td><strong>指定日期：</strong></td>" & vbCrLf
       Content = Content & "<td><select name='DelDate' size=1><option value=7>一个星期前</option><option value=30>一个月前</option><option value=60 selected>两个月前</option><option value=180>半年前</option><option value=999>所有</option></select></td>" & vbCrLf
       Content = Content & "</tr>" & vbCrLf
	   Content = Content & "<tr Class=td2>" & vbCrLf
       Content = Content & "<td><strong>明细分类：</strong></td>" & vbCrLf
       Content = Content & "<td><input type=checkbox class=checkbox name=A value=1>资金明细　<input type=checkbox class=checkbox name=A value=2>"&WR_Other(0)&"明细　<input type=checkbox class=checkbox name=A value=3>积分明细　<input type=checkbox class=checkbox name=A value=4>信用明细</td>" & vbCrLf
       Content = Content & "</tr>" & vbCrLf
       Content = Content & "<tr Class=td3>" & vbCrLf
       Content = Content & "<td></td><td><input type=submit name='Submit' value=' 清 理 ' ></td>" & vbCrLf
       Content = Content & "</tr>" & vbCrLf
       Content = Content & "</form>" & vbCrLf

  Case Else
    If CheckAdminFlag("FinanceSee") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
    sUser = WRMPS.CheckStr(Request("User"), 0)
    Page = WRMPS.CheckStr(Request("Page"), 1)
    eType = WRMPS.CheckStr(Request("Type"), 1)
	If eType = "" Then eType = 1
	Select Case eType
	  Case 1
	    eTitle = "资金"
	  Case 2
	    eTitle = WR_Other(0)
	  Case 3
	    eTitle = "积分"
	  Case 4
	    eTitle = "信用值"
	End Select
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<form name=form1 method=post action=?Type="&eType&"><tr class=td2><td colspan=2>"
    Content = Content & "<input name='User' type='text' style='width:120' maxlength='50' value='" & sUser & "'>"
    Content = Content & "<input type=submit name='Submit' value=' 查询用户 ' >"
    Content = Content & "</td></tr></form></Table>" & vbCrLf
    
	Call DBConnBegin()
         Set Rs = Server.CreateObject("ADODB.RecordSet")
		 Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=5><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='15%'>发生时间</td>" & vbCrLf
         Content = Content & "<td width='12%'>明细</td>" & vbCrLf
         Content = Content & "<td width='*'>备注</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         
         If sUser <> "" Then eUser = " and WM_User = '" & sUser & "'" Else eUser = ""

         Rs.Open "Select WM_Note,WM_Time,WM_Remark,WM_User From WM_ConsumeList Where WM_Type="&eType&eUser&" Order By WM_ID Desc", Conn, 1, 1
		 If Rs.EOF Then
           Content = Content & "<tr Class=td3 align=center><td align=center colspan=4>没有内容</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(3) & "</td>" & 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></td><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></td></tr>" & vbCrLf
         URLParameter = "Type="&eType&"&sUser="&sUser
         Content = Content & "<tr Class=td3><td colspan=4>&nbsp;" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td></tr>" & vbCrLf
         End If
         Rs.Close
         Content = Content & "</table>" & vbCrLf
End Select

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

%>