admin_user_info_show.asp

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

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

<!--#include file=INC/skin.asp-->
<!--#include file=INC/UbbCode.asp-->
<%
Dim const_txl_HomeUrl,sql,errstr
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,username
	username=Trim(Request.QueryString("username"))
	If username="" Then
		errstr="<li><font color=red>参数非法</font>!</li>"
			Call printerror("查看会员详细资料出错！",errstr,"97%")
			Exit Sub
	End IF
	username=Replace(username,"'","''")
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from ec where studentid='"&username&"'",conn,1
	If rs.eof Then
		errstr="<li><font color=red>不存在该用户的资料</font>!</li>"
		Call printerror("查看会员详细资料出错！",errstr,"97%")
		Exit Sub
	End If
%>
<TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
  <TR> 
    <TD height=2 bgcolor="#ececff"></TD>
    <TD height=2 bgcolor="#ececff"></TD>
  </TR>
  
  <TR> 
    <TD height="25" align=center> 查找用户<br></TD>
    <TD height="25"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
        <form name="form_xx">
		<tr> 
          <td width="23%">请输入完整用户名: </td>
          <td width="77%"><input type="text" name="username" value="<%=Request("username")%>"> <input type="button" name="Submit" value="查找" onclick="javascript:window.location.href='admin_user_info_show.asp?username='+form_xx.username.value;">
              &nbsp;&nbsp;<a href="admin_user_info_edit.asp?username=<%=Trim(Request("username"))%>"><font color="#FF0000">编辑资料</font></a> 
            </td>
        </tr>
		</form>
      </table> </TD>
  </TR>
  <TR> 
    <TD height="25" align=center>用户类型：</TD>
    <TD height="25"> <%=Sortusertype(rs("usertype"))%> </TD>
  </TR>
  <TR> 
    <TD height="25" align=center>用户名： </TD>
    <TD height="25"><%=rs("studentid")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center> <p>性&nbsp;&nbsp;别：</TD>
    <TD height="25"><%=rs("sex")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center> <p>电子邮件： </TD>
    <TD height="25"><%=rs("email")%> </TD>
  </TR>
  <TR> 
    <TD height="25" align=center>真实姓名:</TD>
    <TD height="25"><%=rs("sname")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>生&nbsp;&nbsp;日:</TD>
    <TD height="25"><%=rs("birthday")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>ＱＱ号码： </TD>
    <TD height="25"><a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rs("oicq")%>" target="_blank" title="查看QQ用户资料"><%=rs("oicq")%></a></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>用户头像:</TD>
    <TD height="25"><%=showuserpic(rs("pic"),rs("picwidth"),rs("picheight"))%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>签&nbsp;&nbsp;名:</TD>
    <TD ><%Response.Write UBBCode(rs("sign"),1)%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center> <p>　</TD>
    <TD height="25">　</TD>
  </TR>
  <TR bgcolor="#D8D6ED"> 
    <TD align=center>　</TD>
    <TD bgcolor="#D8D6ED"><font color="#ff0000">以下信息对影音好友,准影音成员及游客保密</font></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>家庭电话：</TD>
    <TD height="25"><%=rs("homephone")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center> <p>家庭地址： </TD>
    <TD height="25"><%=rs("homeaddr")%> </TD>
  </TR>
  <TR> 
    <TD height="25" align=center>家庭邮编：</TD>
    <TD height="25"><%=rs("homezip")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>目前联系号码：</TD>
    <TD height="25"><%=rs("newphone")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center> <p>目前地址： </TD>
    <TD height="25"><%=rs("newaddr")%> </TD>
  </TR>
  <TR> 
    <TD height="25" align=center>目前邮编：</TD>
    <TD height="25"><%=rs("newzip")%></TD>
  </TR>
  <TR bgcolor="#D8D6ED"> 
    <TD height="2" align=center></TD>
    <TD height="2"></TD>
  </TR>
  <TR> 
    <TD height="25" colspan="2" align=center>:::::::::::特殊资料:::::::::::</TD>
  </TR>
  <TR> 
    <TD height="25" align=center>留言数</TD>
    <TD height="25" valign="baseline"><%=rs("forumtimes")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>登录数</TD>
    <TD height="25" valign="baseline"><%=rs("logintimes")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>上次登录：</TD>
    <TD height="25" valign="baseline"><%=rs("lastedtime")%></TD>
  </TR>
  <TR> 
    <TD height="25" align=center>资料更新时间：</TD>
    <TD height="25" valign="baseline"><%=rs("updatetime")%></TD>
  </TR>
</TABLE>
  
<%
	Rs.close
	Set Rs=Nothing
End Sub

Function Sortusertype(usertype)
	Select Case usertype
		Case 1
			Sortusertype="影音好友"
		Case 2
			Sortusertype="准影音用户"
		Case 3
			Sortusertype="影音成员"
		Case 4
			Sortusertype="Wap影音嘉宾"
		Case Else
			Sortusertype="未知"
	End Select
End Function
%>