?? showuserinfo.asp
字號:
<!--#include file=../../INC/txlconst.asp-->
<!--
<pre>
┌─ 自由領域ASP+WAP同學錄系統 ─────────────────┐
│ │
│ 感謝你使用 自由領域ASP+WAP同學錄系統(測試版） │
│ 使用本免費源碼您必須遵守以下規定 │
│ 不得公開發表代碼 不得用做商業用途，不得向其他使用者收費。 │
│ │
│ 使用時，請保留此段信息，謝謝配合 │
│ │
│ 2004/12/19 │
│ │
└──────────────── http://99167.jahee.com ───┘
</per>
-->
<!--#include file=../../INC/txlfun.asp-->
<!--#include file=../../INC/UbbCode.asp-->
<%
Dim const_txl_HomeUrl,sql,errstr
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,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='showuserinfo.asp?username='+form_xx.username.value;">
<a href="edituserinfo.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>性 別：</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>生 日:</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>簽 名:</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="同學錄嘉賓"
Case Else
Sortusertype="未知"
End Select
End Function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -