userinfo.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%	
	dim searchid,IsSame
	searchid=request.QueryString("userid")
	if Userid="" and searchid="" then response.Redirect("../common/showerr.asp?ErrType=1")
	if searchid="" then searchid=userid
	if userid=searchid then issame=1 else issame=0
	
	strSQL="select * from user_info where user_id="& searchid
	objrs.open strsql,objconn,1,3
%>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle" bordercolor="#FFFFFF" >
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead"><img src="../resource/images/bbs/li.gif" width="9" height="9"><a href="../blog/main.asp">56Blog</a>→<%if issame then response.Write("我的") else response.Write("用户")%>信息</td>
  </tr>
</table>

<br>

  <tr>
    <td bordercolor="#FFFFFF"><table width="100%" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
      <tr>
        <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">基本信息</td>
      </tr>
      <tr>
        <td bordercolor="#4C4C4C"><table width="100%"  border="0" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF">
          <tr>
            <td width="355" align="right">用户名：</td>
            <td width="349"><%=objrs("user_name")%></td>
          </tr>
          <tr>
            <td align="right">性别：</td>
            <td><%=objrs("user_sex")%></td>
          </tr>
          <tr>
            <td align="right">Email：</td>
            <td><%=objrs("user_email")%></td>
          </tr>
          <tr>
            <td align="right">QQ：</td>
            <td><%=objrs("user_qq")%></td>
          </tr>
          <tr>
            <td align="right">MSN：</td>
            <td><%=objrs("user_msn")%></td>
          </tr>
          <tr>
            <td align="right">签名：</td>
            <td><%=objrs("user_sign")%></td>
          </tr>
		  <tr>
            <td align="right">自我简介：</td>
            <td><%=objrs("user_intro")%></td>
          </tr>
          <tr>
            <td align="right">头像：</td>
            <td><img src="../resource/images/userface/Image<%=objrs("user_face")%>.gif" width="<%=objrs("user_facewidth")%>" height="<%=objrs("user_faceheight")%>" align="top"></td>
          </tr>
          <tr>
            <td align="right">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td align="right">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td  align="right">&nbsp;</td>
            <td align="right">
              <%if issame then%>
              <a href="userchginfo.asp?UserID=<%=userid%>"><b>修改我的信息</b></a>
              <%else%>
              <a href="addfriend.asp?FriendID=<%=objrs("user_id")%>&AddType=Blog"><b>加为Blog好友</b></a> <a href="addfriend.asp?FriendID=<%=objrs("user_id")%>&AddType=BBS""><b>加为论坛好友</b></a>
              <%end if%></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center" bordercolor="#4C4C4C" background="../resource/images/bj2.gif">&nbsp;</td>
      </tr>
    </table>
      <table width="100%" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
        <tr>
          <td align="center" bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">网站信息</td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C"><table width="100%"  border="0" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF">
            <tr>
              <td width="355" align="right">登录次数：</td>
              <td width="349"><%=objrs("user_logincount")%></td>
            </tr>
            <tr>
              <td align="right">注册时间：</td>
              <td><%=objrs("user_regtime")%></td>
            </tr>
            <tr>
              <td align="right">最后登录时间：</td>
              <td><%=objrs("User_LastVisTime")%></td>
            </tr>
            <tr>
              <td align="right">Blog日记总数：</td>
              <td><%=objrs("Blog_PubCount")%></td>
            </tr>
            <tr>
              <td align="right">论坛文章：</td>
              <td><%=objrs("Bbs_PubCount")%></td>
            </tr>
            <tr>
              <td align="right">是否在线：</td>
              <td><%if objrs("user_isonline") then response.Write("yes") else response.Write("no")%></td>
            </tr>
            <tr>
              <td align="right">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td align="right">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td align="right">&nbsp;</td>
              <td align="right">&nbsp;			</td>
            </tr>
          </table>
		  </td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center"><a href="javascript:history.go(-1)"><b>返回</b></a></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->