usermanage.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--#include file=classmateinfoclass.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
Dim const_txl_HomeUrl,sql
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call opendatabase
Call txl_SiteHead (const_txlname&"- 管理员")
If Request.QueryString("action") ="del" Then
	Call del
Else
	Call main
End If

Call CloseDataBase
Call SiteBottom
Sub main
	Dim Rs
 %>
<table width="779" border="0" align="center" cellpadding="8" cellspacing="3">
  <tr> 
    <td height="25" align="center"><a href="adduser.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="showuserinfo.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%>