admin_user.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->
<!--#include file=admin_classmateinfoclass.asp-->

<%
Dim const_txl_HomeUrl,sql
const_txl_HomeUrl = ""
%>
<!--#include file=admin_login_check.asp-->
<%
Call opendatabase
Call txl_SiteHead (const_txlname&"- 管理员")
If Request.QueryString("action") ="del" Then
	Call del
Else
	Call main
End If

Call CloseDataBase
Call web_end
Sub main
	Dim Rs
 %>
<table width="779" border="0" align="center" cellpadding="8" cellspacing="3">
  <tr> 
    <td height="25" align="center"><a href="admin_user_add.asp"><font color="#FF0000">添加用户</font></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?usertype=" title="查看所有用户">所有用户</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?usertype=1" title="查看所有影音好友">影音好友</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?usertype=2" title="查看所有准影音成员">准影音成员</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?usertype=3" title="查看所有影音成员">影音成员</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?usertype=4" title="查看所有影音嘉宾">影音嘉宾</a></td>
  </tr>
  <tr> 
    <td align="center"><form name="form1" method="get" action="admin_user_info_show.asp">
        快速查询: 
        <input name="username" type="text" id="username" size="20" maxlength="20">
        <input type="submit" name="Submit" value="查询">
      </form>
    </td>
  </tr>
</table>
<%
	Set rs=Server.CreateObject("adodb.recordset")
	Select Case Request.QueryString("usertype")
		Case "1" 
			sql="where usertype=1"
		Case "2" 
			sql="where usertype=2"
		Case "3" 
			sql="where usertype=3"
		Case "4" 
			sql="where usertype=4"
		Case Else 
			sql="where 1=1"
	End Select
	rs.open "select studentid,sname,sex,oicq,email,usertype from ec "&sql&" order by studentid desc",conn,1
	dim DG
	dim Url
	dim Fld(5)
	dim FldName(5)
	dim FldWidth(5)
	Fld(0) = "studentid"
	Fld(1) = "sname"
	Fld(2) = "sex"
	Fld(3) = "oicq"
	Fld(4) = "email"
	Fld(5) = "usertype"

	FldName(0) = "用户名"
	FldName(1) = "姓名"
	FldName(2)="性别"
	FldName(3)="OICQ"
	FldName(4)="E-Mail"
	FldName(5)="用户类型"

	FldWidth(0) = "80"
	FldWidth(1) = "60"
	FldWidth(2) = "30"
	FldWidth(3) = "70"
	FldWidth(4) = "180"
	FldWidth(5) = "70"

	set DG = new DataGrid
	DG.DataSource =rs
	DG.titleColor = "#cccccf"
	DG.PageSize = 20
	DG.Fields = Fld
	DG.FieldsName = FldName
	DG.fieldWidth = FldWidth
	Url = request.ServerVariables("URL")&"?usertype="&Request.QueryString("usertype")
	DG.Url = Url
	DG.Generate()
	set DG=nothing
end sub%>