📄 usertype.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="mymem.asp" -->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<%call tabletop(true,"top")%>
</td>
</tr>
<tr>
<td height="27" colspan="2" background="backimg/bg1.gif"><strong><font color="#FFFFFF">
<%=request.QueryString("user")%> 用户信息 </font></strong></td>
</tr>
<tr>
<td colspan="2" valign="top"> <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<tr bgcolor="#FFFFFF">
<td> <table width="100%" border="0">
<tr>
<td height="98" valign="top">
<%
call listuserjbmess(request.QueryString("user"))
sub listuserjbmess(user)
if user="" then
response.cookies("rewin")("errmess")="<li>对不起用户!不能为空 请从正确的链接进入!<a href=index.asp> 返回首页</a>"
response.Redirect("error.asp?founderr=mess")
end if
dim rs,rs2
set rs=conn.execute("select * from userinfo where user='"&user&"'")
if rs.eof or rs.bof then
response.cookies("rewin")("errmess")="<li>出再错误!我们没有找到该用户资料! 请从正确的链接进入!<a href=index.asp> 返回首页</a>"
response.Redirect("error.asp?founderr=mess")
end if
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<tr align="right" bgcolor="#FFFFFF">
<td colspan="3"><img src="PIC/zhuangtai.gif" width="16" height="16">
状态：
<%
if rs("kill")=0 then
response.Write(" 正常 ")
else
response.Write(" ID被封闭 ")
end if
set rs2=conn.execute("select user from online where user='"&user&"'")
if not rs2.eof then
response.Write(" [在线]")
else
response.Write(" [离线]")
end if
%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">级别</td>
<td width="55%"><%=rs("jibie")%></td>
<td width="30%" rowspan="8" align="center"><img src="<%=rs("myface")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" id=idface><br>
<br>
用户头像</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">用户名</td>
<td><%=rs("user")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">性 别</td>
<td><%=rs("xb")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">出 生</td>
<td><%=rs("birthday")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">E-mail</td>
<td> <%if rs("setuser1")=0 then response.write "用户未开放" else response.write rs("email") end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">oicq</td>
<td><%=rs("oicq")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">帖子总数</td>
<td><%=rs("ftz")%>帖</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">被删主题</td>
<td><%=rs("deltz")%>帖</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">登陆次数</td>
<td><%=rs("userlog")%> 次</td>
<td align="center">给他留言 | <a href="usermanager.asp?p=addfriend&fd=<%=rs("user")%>">加为好友</a>
| <a href="look-ip.asp?user=<%=rs("user")%>&czlb=userip">IP来源</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">正常退出</td>
<td colspan="2"><%=rs("logout")%> 次</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">现在积分</td>
<td colspan="2"><%=rs("userjf")%> 分</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">联系方式</td>
<td colspan="2"> <%if rs("setuser1")=0 then response.write "用户未开放" else response.write rs("conn") end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">在线时长</td>
<td colspan="2"> <%=rs("atime")%> 秒</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">注册时间:</td>
<td colspan="2"><%=rs("time")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%">最后一次登录:</td>
<td colspan="2"><%=rs("lastlogin")%></td>
</tr>
</table>
<%end sub%> </td>
</tr>
<tr>
<td height="98" valign="top"><br>
<%
call listzjftzx(10,request.QueryString("user"))
sub listzjftzx(totles,username)
dim rs,i
set rs=conn.execute("select id,name,time,user,retime,lastly,click,rely,lb from borecorder where user='"&username&"' order by id desc",300,1)
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
<tr height="27" background="backimg/bg1.gif">
<td width="43%" height="27" background="backimg/bg1.gif">
<strong>最近发表过的主题</strong></td>
<td width="12%" align="center" background="backimg/bg1.gif">作者</td>
<td width="12%" align="center" background="backimg/bg1.gif">人气/回复</td>
<td width="11%" align="center" background="backimg/bg1.gif">最后回复</td>
<td width="22%" align="center" background="backimg/bg1.gif">发帖时间</td>
</tr>
<%
if rs.eof or rs.bof then
response.Write("<tr><td bgcolor=#FFFFFF colspan=""5"">你还没有参与过任何主题</td></tr></table>")
exit sub
end if
if totles=10 then
do while not rs.eof
response.Write("<tr bgcolor=#FFFFFF><td>□ <a href=type.asp?id="&rs("id")&">"&dvHTMLEncode(rs("name"))&"</a></td><td align=center>"&rs("user")&"</td><td align=center>"&rs("click")&"/"&rs("rely")&"</td><td align=center>"&rs("lastly")&"</td><td align=center>"&rs("time")&"</td></tr>")
rs.movenext
i=i+1
if i>10 then exit do
loop
else
do while not rs.eof
response.Write("<tr bgcolor=#FFFFFF><td>□ <a href=type.asp?id="&rs("id")&">"&dvHTMLEncode(rs("name"))&"</a>")
'当回复达到多页时显示
dim crely,x,lb
lb=rs("lb")
crely=rs("rely")
if crely>10 then
dim disppagesd
response.Write("[<b><img src=backimg/multipage.gif>")
if CInt(crely/10+0.5)>8 then
disppagesd=8
else
disppagesd=CInt(crely/10+0.5)
end if
for x=1 to disppagesd
Response.write(" <a href='type.asp?page="&x&"&lb="&lb&"&id="&rs("id")&"'><font color=red>"&x&"</font></a>")
next
if disppagesd=8 then
response.Write(" ... <a href='type.asp?page="&CInt(crely/10+0.5)&"&lb="&lb&"&id="&rs("id")&"'><font color=red>"&CInt(crely/10+0.5)&"</font></a>")
end if
response.Write("</b>]")
end if
response.Write("</td><td align=center>"&rs("user")&"</td><td align=center>"&rs("click")&"/"&rs("rely")&"</td><td align=center>"&rs("lastly")&"</td><td align=center>"&rs("time")&"</td></tr>")
rs.movenext
i=i+1
if i>300 then exit do
loop
end if
%>
</table>
<%end sub%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2">
<%call tabletop(true,"down")%>
</td>
</tr>
</table>
<%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright ©2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -