user_classmateinfo.asp

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

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

<%
'on error resume next
dim const_txl_HomeUrl,errstr,i,sql
errstr=""
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"- 会员资料"
call online
call main
CloseDatabase
web_end
sub main
	If const_classmateinfo_login_limit=1	Then
		If Session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>会员资料只有登录之后才能看到</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("浏览会员资料出错！",errstr,779)
			Exit Sub
		End If
	ElseIf const_classmateinfo_login_limit=2 Then
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>会员资料只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看会员资料出错！",errstr,779)
			Exit Sub
		End If
		If not (session("usertype")=3 or session("usertype")=4)  Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>会员资料只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你目前的身份没有该权限！</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看会员资料出错！",errstr,779)
			Exit Sub
		End If
	End IF
%>
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="148" valign="top"><table width="100%"  border="0" cellspacing="8" cellpadding="0">
	  <tr>
        <td>查看：</td>
      </tr>
	  <tr>
        <td><a href="?usertype=" title="查看所有用户">所有用户</a></td>
      </tr>
      <tr>
        <td><a href="?usertype=1" title="查看所有影音好友">影音好友</a></td>
      </tr>
      <tr>
        <td><a href="?usertype=2" title="查看所有准影音成员">准影音成员</a></td>
      </tr>
      <tr>
        <td><a href="?usertype=3" title="查看所有影音成员">影音成员</a></td>
      </tr>
      <tr>
        <td><a href="?usertype=4" title="查看所有影音嘉宾">影音嘉宾</a></td>
      </tr>
      <tr>
        <td><hr></td>
      </tr>
	  <tr>
        <td>导出：</td>
      </tr>
	  <tr>
        <td><a href="?action=export&fm=excel&usertype=<%=Request.QueryString("usertype")%>" title="将资料导出存为Excel格式">导出为Excel</a></td>
      </tr>
      <tr>
        <td><a href="?action=export&fm=txt&usertype=<%=Request.QueryString("usertype")%>" title="将资料导出存为TXT格式">导出为TXT</a></td>
      </tr>
      <tr>
        <td><a href="?action=export&fm=xml&usertype=<%=Request.QueryString("usertype")%>" title="将资料导出存为XML格式">导出为XML</a></td>
      </tr>
    </table>
    </td>
    <td bgcolor="#FFFFFF"><%
		If Request.QueryString("action")="export" then
			Response.Redirect "User_export.asp?usertype="&Request.QueryString("usertype")&"&fm="&Request.QueryString("fm")
		else
			Call showinfo
		end if
	  %>
  </td>
  </tr>
</table>
<%
	end sub
	%>
<%sub showinfo
	Dim Rs
 %>
<%
	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) = "85"
	FldWidth(1) = "85"
	FldWidth(2) = "60"
	FldWidth(3) = "83"
	FldWidth(4) = "200"
	FldWidth(5) = "80"

	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%>