📄 user_showuserinfo.asp
字号:
<!--#include file=INC/skin.asp-->
<!--#include file=INC/UbbCode.asp-->
<%
'on error resume next
dim const_txl_HomeUrl,errstr,i
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" align="center" cellpadding="0" cellspacing="10">
<tr>
<td><b>当前位置：<a href="<%=const_homepageurl%>">首页</a> >> <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> >> 查看用户的详细资料</b></td>
</tr>
</table>
<table width="779" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse:collapse;">
<tr>
<td width="178" align="center" valign="top" bgcolor="#f1f1f1"><br>
<script language="JavaScript">
today=new Date();
function initarray(){
this.length=initarray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initarray.arguments[i] }
var d=new initarray(
" 星期日 ",
" 星期一 ",
" 星期二 ",
" 星期三 ",
" 星期四 ",
" 星期五 ",
" 星期六 ");
document.write(
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日",
d[today.getDay()+1]);
</script> </td>
<td width="642" valign="top" bgcolor="#FFFFFF"><%
call showclassinfo
%>
<br> </td>
</tr>
</table>
<%
end sub
%>
<%sub showclassinfo
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="5">
<TR>
<TD width="19%" height="25" align=center class="tar"> 查找用户:<br></TD>
<TD width="81%" height="25"> <table width="100%" 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='User_showuserinfo.asp?username='+form_xx.username.value;">
</td>
</tr>
</form>
</table> </TD>
</TR>
<TR>
<TD height="25" colspan="2" style="border-top:#CCCCCC 1px solid;" align=right><a href=javacript:; onclick="javascript:winsteps_open_window('User_showpermsg.asp?towho=<%=rs("studentid")%>&action=showsendmsgfrm',520,300,'msg');return false"><img src="images/message.gif" width="16" height="16" border="0" alt="发短信给<%=rs("studentid")%>"></a><a href=javacript:; onclick="javascript:winsteps_open_window('User_showpermsg.asp?towho=<%=rs("studentid")%>&action=showsendmsgfrm',520,300,'msg');return false" title="发短信给<%=rs("studentid")%>">立即发送短消息</a> </TD>
</TR>
<TR>
<TD height="25" align=center class="tar">用户类型：</TD>
<TD height="25"> <%=Sortusertype(rs("usertype"))%> </TD>
</TR>
<TR>
<TD height="25" align=center class="tar">用户名： </TD>
<TD height="25"><%=rs("studentid")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar"> <p>性 别：</TD>
<TD height="25"><%=rs("sex")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar"> <p>电子邮件： </TD>
<TD height="25"><%=rs("email")%> </TD>
</TR>
<TR>
<TD height="25" align=center class="tar">真实姓名:</TD>
<TD height="25"><%=rs("sname")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">生 日:</TD>
<TD height="25"><%=rs("birthday")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">ＱＱ号码： </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 class="tar">用户头像:</TD>
<TD height="25"><%=showuserpic(rs("pic"),rs("picwidth"),rs("picheight"))%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">签 名:</TD>
<TD ><%Response.Write UBBCode(rs("sign"),1)%></TD>
</TR>
<TR bgcolor="#D8D6ED">
<TD height="25" colspan="2" align=center bgcolor="#CCCCCC"><font color="#ff0000">以下信息对影音好友,准影音成员及游客保密</font></TD>
</TR>
<%
dim lookflag
lookflag=false
if Session("usertype")="" then
lookflag=false
else
if Session("usertype")=3 or Session("usertype")=4 then
lookflag=true
else
lookflag=false
end if
end if
If const_secret_set=1 and not(lookflag) Then
%>
<TR>
<TD height="25" align=center colspan="2">家庭电话,家庭地址,家庭邮编,目前联系号码,目前地址,目前邮编 已经设置保密</TD>
</TR>
<%Else
%>
<TR>
<TD height="25" align=center class="tar">家庭电话：</TD>
<TD height="25"><%=rs("homephone")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar"> <p>家庭地址： </TD>
<TD height="25"><%=rs("homeaddr")%> </TD>
</TR>
<TR>
<TD height="25" align=center class="tar">家庭邮编：</TD>
<TD height="25"><%=rs("homezip")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">目前联系号码：</TD>
<TD height="25"><%=rs("newphone")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar"> <p>目前地址： </TD>
<TD height="25"><%=rs("newaddr")%> </TD>
</TR>
<TR>
<TD height="25" align=center class="tar">目前邮编：</TD>
<TD height="25"><%=rs("newzip")%></TD>
</TR>
<%End If%>
<TR bgcolor="#CCCCCC">
<TD height="25" colspan="2" align=center>:::::::::::特殊资料:::::::::::</TD>
</TR>
<TR>
<TD height="25" align=center class="tar">留言数：</TD>
<TD height="25" valign="baseline"><%=rs("forumtimes")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">登录数：</TD>
<TD height="25" valign="baseline"><%=rs("logintimes")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">上次登录：</TD>
<TD height="25" valign="baseline"><%=rs("lastedtime")%></TD>
</TR>
<TR>
<TD height="25" align=center class="tar">资料更新时间：</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -