userinf.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="char.asp"-->
<%
set rs=server.createobject("adodb.recordset")
if request("id")="" then 
sql="select * from user where UserName='"&request("Name")&"'"
else
sql="select * from user where id="&request("id")
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>找不到相关资料</p>" 
else
score=rs("score")%>
<img src="" width=1 height=3>
<TABLE align=center bgColor=<%=tablebackcolor%> border=0 cellPadding=3 cellSpacing=1 
      width="680">
  <TR bgcolor="<%=tablebodycolor%>"> 
    <TD vAlign=top width="40%"> 
      <TABLE bgColor=<%=tablebackcolor%> border=0 cellPadding=3 cellSpacing=1 width="100%">
        <TR bgcolor="<%=tabletitlecolor%>" align="center"> 
          <TD colSpan=2><font color="#FFFFFF">基本资料</font></TD>
        </TR>
        <TR> 
          <TD bgColor=#f9f9f9 rowspan="4" align="center"><img src=face/<%=rs("face")%> border=0><br>
            <br>
            <%=rs("UserName")%> </TD>
          <TD bgColor=#f9f9f9>真名: 
            <%
if rs("TrueName")="" then
response.write "*_*（保密）"
else
response.write rs("TrueName")
end if
stat="查看用户["&rs("UserName")&"]信息"%>
          </TD>
        </TR>
        <TR> 
          <TD bgColor=#f9f9f9>性别: 
            <%if rs("sex")=true then%>
            男 
            <%else%>
            <font color="#FF0000">女</font> 
            <%end if%>
          </TD>
        </TR>
        <TR> 
          <TD bgColor=#f9f9f9>生日: 
            <%
if rs("birthday")="" then
response.write "告诉你会送礼物给我吗?"
else
response.write rs("birthday")
end if
%>
          </TD>
        </TR>
        <TR> 
          <TD bgColor=#f9f9f9>来自: 
            <%
if rs("Address")="" then
response.write "打死我也不说! ^_^"
else
response.write rs("Address")
end if
%>
          </TD>
        </TR>
        <TR bgcolor="<%=tabletitlecolor%>"> 
          <TD align=center colSpan=2><font color="#FFFFFF">联系资料</font></TD>
        </TR>
        <TR> 
          <TD align=right bgColor=#f9f9f9 noWrap width="10%">电子邮件：</TD>
          <TD bgColor=#f9f9f9><a href=mailto:<%=rs("Email")%>><%=rs("Email")%></a></TD>
        </TR>
        <TR> 
          <TD align=right bgColor=#f9f9f9 noWrap>OICQ号码：</TD>
          <TD bgColor=#f9f9f9><a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("Oicq")%> target=_blank><%=rs("Oicq")%></a></TD>
        </TR>
        <TR> 
          <TD align=right bgColor=#f9f9f9 noWrap>个人主页：</TD>
          <TD bgColor=#f9f9f9><a href="<%=rs("UserWebUrl")%>" target=_blank><%=rs("UserWebName")%></a></TD>
        </TR>
        <TR bgcolor="<%=tabletitlecolor%>" align="center"> 
          <TD colSpan=2><font color="#FFFFFF">个性签名</font></TD>
        </TR>
        <TR bgcolor="#f9f9f9"> 
          <TD colSpan=2 vAlign=top height="82"> 
            <%
if rs("sign")="" then
response.write "这家伙很聪明,什么东西也没有留下"
else
response.write ubbcode(rs("sign"))
end if
%>
          </TD>
        </TR>
      </TABLE>
    </TD>
    <TD vAlign=top width="3%">&nbsp; </TD>
    <TD vAlign=top bgcolor="<%=tablebodycolor%>"> 
      <table bgcolor=<%=tablebackcolor%> border=0 cellpadding=3 cellspacing=1 
            width="100%" valign="top">
        <tbody> 
        <tr bgcolor="<%=tabletitlecolor%>" align="center"> 
          <td colspan=4><font color="#FFFFFF">相关操作</font></td>
        </tr>
        <tr valign="top"> 
          <td bgcolor=#f9f9f9 colspan="2" height="2">&nbsp;<img src=images/inf1.gif height=16 width=16>&nbsp;<a href="#" onclick="javascript:read('messanger.asp?action=new&name=<%=rs("UserName")%>','messanger','width=420,height=290')"><font color="#FF0000">给 
            <b><%=rs("UserName")%></b> 发短消息</font></a></td>
          <td bgcolor=#f9f9f9 height="2" colspan="2">&nbsp;</td>
        </tr>
        <tr valign="top"> 
          <td bgcolor=#f9f9f9 colspan="2">&nbsp;<img src=images/inf3.gif height=15 width=16>&nbsp;<a href="search.asp?action=bbs&keytype=username&keyword=<%=rs("UserName")%>"><b><%=rs("UserName")%></b> 
            所发表的主题帖子</a></td>
          <td bgcolor=#f9f9f9 colspan="2">&nbsp;<img src=images/inf4.gif height=16 width=16>&nbsp;<a href="search.asp?action=reply&keytype=username&keyword=<%=rs("UserName")%>"><b><%=rs("UserName")%></b>所参与的贴子</a></td>
        </tr>
        <tr bgcolor="<%=tabletitlecolor%>" align="center"> 
          <td colspan=4><font color="#FFFFFF">统计信息</font></td>
        </tr>
        <tr> 
          <td align=right bgcolor=#f9f9f9 noWrap width="19%">注册时间：</td>
          <td bgcolor=#f9f9f9 width="30%" align="center"><%=rs("adddate")%></td>
          <td bgcolor=#f9f9f9 align="right" width="19%">最后登录：</td>
          <td bgcolor=#f9f9f9 width="32%" align="center"><%=rs("lastlogin")%></td>
        </tr>
        <tr> 
          <td align=right bgcolor=#f9f9f9>等级：</td>
          <td bgcolor=#f9f9f9 align="center"> 
            <!--#include file="grade.asp"-->
          </td>
          <td bgcolor=#f9f9f9 align="right">头衔：</td>
          <td bgcolor=#f9f9f9 align="center"><%=rs("title")%></td>
        </tr>
        <tr> 
          <td align=right bgcolor=#f9f9f9>登陆：</td>
          <td bgcolor=#f9f9f9 align="center"><%=rs("login")%></td>
          <td bgcolor=#f9f9f9 align="right">门牌号：</td>
          <td bgcolor=#f9f9f9 align="center">NO:<%=rs("id")%></td>
        </tr>
        <tr> 
          <td align=right bgcolor=#f9f9f9>积分：</td>
          <td bgcolor=#f9f9f9 align="center"><%=rs("score")%></td>
          <td bgcolor=#f9f9f9 align="right">发贴：</td>
          <td bgcolor=#f9f9f9 align="center"><%=rs("announce")%></td>
        </tr>
        </tbody> 
      </table>
    </TD>
  </TR>
</TABLE>
<!--#include file="copyright.asp"-->
</body>
</html>
<%
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')"
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
end if%>