wm.finance_user.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("FinanceSee") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim ID,UserName,Table,Word,N,PassWord
Dim WM_GroupFlag,WM_GroupName,WM_GroupID
Dim WM_Estate,UserGroup,A_UserGroup,UserGroupID,i

ID = WRMPS.CheckStr(Request("ID"), 0)
Page = WRMPS.CheckStr(Request("page"),1)
Table = WRMPS.CheckStr(Request("Table"), 0)
Word = WRMPS.CheckStr(Request("Word"), 0)
UserGroup = WRMPS.CheckStr(Request("UserGroup"), 1)
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=WM.Finance_User.asp>会员管理</a> | <a href=WM.Finance_User.asp?Estate=2>已锁定会员</a></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><form name=form1 method=post><td width='43%'>&nbsp;<input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
    Content = Content & "<select name=Table align=absmiddle>"
    Content = Content & "<option value=WM_UserName " & WRMPS.GetCheckVer("WM_UserName", Table, 0) & ">用户名</option>"
    Content = Content & "<option value=WM_Email " & WRMPS.GetCheckVer("WM_Email", Table, 0) & ">电子邮件</option>"
    Content = Content & "</select> <input type=submit name='Submit' value=' 查询 ' >"
    Content = Content & "</td></form>"
    Content = Content & "<form name=form1 method='post' action='WM.Finance_User.asp'><td width='57%'>&nbsp;"
    Content = Content & "<select name=Estate align=absmiddle onChange='javascript:submit()'>"
    Content = Content & "<option value=''>分类查看</option>"
    Content = Content & "<option value=2 " & WRMPS.GetCheckVer("2", WRMPS.CheckStr(Request("Estate"),1), 0) & ">已锁定会员</option>"
    Content = Content & "<option value=1 " & WRMPS.GetCheckVer("1", WRMPS.CheckStr(Request("Estate"),1), 0) & ">已注册店铺</option>"
    Content = Content & "</select> "
    Content = Content & "<select name=UserGroup align=absmiddle onChange='javascript:submit()'>"
    Content = Content & "<option value=''>== 选择会员组 ==</option>"
    Set Rs = Conn.Execute("Select WM_GroupName,WM_ID,WM_GroupUser from WM_UserGroup Where WM_GroupUser > 0 Order by WM_ID")
    Do While Not Rs.EOF
      Content = Content & "<option value=" & Rs(1) & " " & WRMPS.GetCheckVer(Rs(1), Int(UserGroup), 0) & ">" & Rs(0) & "</option>"
    Rs.MoveNext
    Loop
    Rs.Close
    Content = Content & "</select> "
    Content = Content & "</td></form></tr></Table>" & vbCrLf

      Content = Content & "<table width='100%' cellpadding=5 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<form action='?Action=Save&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"' name=myform method=POST>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=11><strong>用户管理</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td>用户名(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='22%'>Email(点击发邮件)</td>" & vbCrLf
      Content = Content & "<td width='10%'>金钱</td>" & vbCrLf
      Content = Content & "<td width='8%'>"&WR_Other(0)&"</td>" & vbCrLf
      Content = Content & "<td width='8%'>状态</td>" & vbCrLf
      Content = Content & "<td width='35%'>操作</td></tr>" & vbCrLf
	  If Request("Estate") <> "" Then 
	    Select Case Int(Request("Estate"))
	      Case 1
		    WM_Estate = " WM_ComID > 0"
		  Case 2
		    WM_Estate = " WM_Key = 2"
	    End Select
	  Else
	    WM_Estate = " WM_Key > 0"
	  End If
      If Word <> "" Then SQL = " and " & Table & " = '" & Word & "'" Else SQL = ""
      If UserGroup <> "" Then If UserGroup>0 Then A_UserGroup = " and WM_GroupID = " & UserGroup Else A_UserGroup = ""
      sql = "select WM_UserName,WM_Email,WM_ComID,WM_Money,WM_CountOut,WM_Key from WM_Member where "&WM_Estate & SQL & A_UserGroup &" order by WM_ID desc"
	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr><td colspan=10></td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 20
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
          Do While Not Rs.EOF And i < ListNum
            N = N + 1
            Content = Content & "<tr align=center"
			If Rs(2) > 0 Then
			  Content = Content & " class=td6 title='店铺会员'>" & vbCrLf
			Else
			  If n mod 2 = 0 Then Content = Content & " class=td3>" & vbCrLf Else Content = Content & " class=td2>" & vbCrLf
            End If
            Content = Content & "<td align=left>"
			Content = Content & "<a href="&WRMPS.GetSpaceUrl(0,Rs(0))&" target=_blank>"&Rs(0)&"</a></td>" & vbCrLf
            Content = Content & "<td align=left><a onClick=""openWithIframe('在线发信','../SendMail.asp?Email="&rs(1)&"',550,320);"" style='cursor:pointer'>"&Rs(1)&"</a></td>" & vbCrLf
            Content = Content & "<td align=right>￥"&WRMPS.GetFormatNumber(Rs(3),2)&"</td>" & vbCrLf
            Content = Content & "<td align=right>"&Rs(4)&"</td>" & vbCrLf
            Content = Content & "<td>"
			Select Case Rs(5)
			  Case 0
			    Content = Content & "<font color=blue>待审</font>"
			  Case 1
			    Content = Content & "正常"
			  Case 2
			    Content = Content & "<font color=red>锁定</font>"
			End Select
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td><a href=WM.Finance_List.asp?User="&Rs(0)&"&Type=1>资金明细</a> | <a href=WM.Finance_Pay.asp?Word="&Rs(0)&"&Table=WM_User>在线支付明细</a> | <a href=WM.Finance_List.asp?User="&Rs(0)&"&Type=2>点券明细</a> | <a href=WM.Finance_Pay_User.asp?User="&Rs(0)&">账户操作</a></td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&""
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td1><tr class=td4><td height=30 align=right>" & vbCrLf
          Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></Form>" & vbCrLf
          Content = Content & "<tr><td class=td3 colspan=10><strong>注：</strong><br>" & vbCrLf
          Content = Content & "① <img src='img/yp.gif' align=absmiddle> 表示已注册店铺会员" & vbCrLf
          Content = Content & "</td></tr>" & vbCrLf
		  Content = Content & "</table>" & vbCrLf
        End If

	  Rs.Close
	  Set Rs=Nothing

  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
  Call GetBottom()
%>