wm.user.asp

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

          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 class=td2 align=center>" & vbCrLf
            Content = Content & "<td><input type=checkbox name=ID value="&Rs("WM_ID")&"></td>" & vbCrLf
            Content = Content & "<td>"&Rs("WM_UserName")&"</td>" & vbCrLf
            Content = Content & "<td align=left><a onClick=""javascript:window.open('../SendMail.asp?Email="&rs("WM_Email")&"','_n','width=550,height=295')"" style='cursor:pointer'>"&Rs("WM_Email")&"</a></td>" & vbCrLf
            Content = Content & "<td>"&Rs("WM_RegTime")&"</td>" & vbCrLf
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td>"
			Content = Content & "<a href='?Action=Save&Work=Key&ID="&Rs("WM_ID")&"&Page="&Page&"&Reh=Through'>审核</a> | <a href='?Action=Save&Work=Del&ID="&Rs("WM_ID")&"&Page="&Page&"&Reh=Through' onclick=""return confirm('确定删除？');"">删除</a>"
			Content = Content & "</td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Action=Through"
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td1><tr class=td3><td height=30>" & vbCrLf
          Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'><option value='Key'>审核</option><option value='Del'>删除</option></select>　<input type=submit name='submit' value='操 作'>" & vbCrLf
          Content = Content & "</td><td align=right>" & vbCrLf
          Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></Form></table>" & vbCrLf
        End If
	  Rs.Close
	  Set Rs=Nothing

  Case Else
      Content = Content & "<table width='100%' cellpadding=2 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 width='4%'></td>" & vbCrLf
      Content = Content & "<td>用户名(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='20%'>Email(点击发邮件)</td>" & vbCrLf
      Content = Content & "<td width='12%'>会员组</td>" & vbCrLf
      Content = Content & "<td width='15%'>注册<br>IP(点击查看所在地)</td>" & vbCrLf
      Content = Content & "<td width='5%'>信用</td>" & vbCrLf
      Content = Content & "<td width='5%'>积分</td>" & vbCrLf
      Content = Content & "<td width='5%'>登录</td>" & vbCrLf
      Content = Content & "<td width='4%'>状态</td>" & vbCrLf
      Content = Content & "<td width='12%'>管理</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"
		  Case 3
		    WM_Estate = " WM_RZEmail = 1"
		  Case 4
		    WM_Estate = " WM_RZID = 1"
	    End Select
	  Else
	    WM_Estate = " WM_Key > 0"
	  End If
	  SQL = ""
      If Word <> "" Then
	    If Table = "WM_ID" Then
		  SQL = " and " & Table & " = " & Word
		Else
	      SQL = " and " & Table & " = '" & Word & "'"
		End If
	  End If
      If UserGroup <> "" Then If UserGroup>0 Then A_UserGroup = " and WM_GroupID = " & UserGroup Else A_UserGroup = ""
      sql = "select WM_ID,WM_UserName,WM_Email,WM_GroupID,WM_ComID,WM_RegTime,WM_RegIP,WM_Faith,WM_CountOut,WM_Integral,WM_LoginNum,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(4) > 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><input type=checkbox name=ID value="&Rs(0)&"></td>" & vbCrLf
            Content = Content & "<td align=left><a href="&WRMPS.GetSpaceUrl(0,Rs(1))&" target=_blank>"&Rs(1)&"</a></td>" & vbCrLf
            Content = Content & "<td align=left><a onClick=""openWithIframe('在线发信','../SendMail.asp?Email="&rs(2)&"',550,320);"" style='cursor:pointer'>"&Rs(2)&"</a></td>" & vbCrLf
            Content = Content & "<td>"
			Set Rso = Conn.Execute("Select WM_GroupName From WM_UserGroup Where WM_ID = " & Rs(3) & "")
            If Not Rso.EOF Then
              Content = Content & Rso(0)
            Else
              Content = Content & "会员组不存在"
            End If
            Rso.Close
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td>"&Rs(5)&"<br><a href=# onClick=""openWithIframe('IP查询','../Plus/IP/?IP="&Rs(6)&"',300,200);"">"&Rs(6)&"</a></td>" & vbCrLf
            Content = Content & "<td>"&Rs(7)&"</td>" & vbCrLf
            Content = Content & "<td>"&Rs(9)&"</td>" & vbCrLf
            Content = Content & "<td>"&Rs(10)&"</td>" & vbCrLf
            Content = Content & "<td>"
			Select Case Rs(11)
			  Case 0
			    Content = Content & "<a href='?Action=Save&Work=Key&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'><font color=blue>待审</font></a>"
			  Case 1
			    Content = Content & "<a href='?Action=Save&Work=Lock&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'>正常</a>"
			  Case 2
			    Content = Content & "<a href='?Action=Save&Work=NoLock&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'><font color=red>锁定</font></a>"
			End Select
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td>"
			Content = Content & "<a href='?Action=Edit&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'>修改</a>" & vbCrLf
			Content = Content & "<a href='?Action=Flag&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'>权限</a>" & vbCrLf
			Content = Content & "<a href='?Action=Save&Work=Del&ID="&Rs(0)&"&Page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"' onclick=""return confirm('确定删除？');"">删除</a>" & vbCrLf
			Content = Content & "</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>" & vbCrLf
          Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'>"
		  If Request("Estate") = "" Then Content = Content & "<option value='Lock'>锁定</option>"
		  Content = Content & "<option value='NoLock'>取消锁定</option><option value='Del'>删除</option></select>　<input type=submit name='submit' value='操 作'>" & vbCrLf
          Content = Content & "</td><td 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

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