⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 showuser.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<!-- #include file="online.asp" -->
<html>
<head>
<title>3鸟设社[色彩连视版]媒体社区成员资料</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="blue.css" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</head>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="760" height="588" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
      
    <td width="20" height="2"></td>
      
    <td width="719" height="2"></td>
      
    <td width="21" height="2"></td>
    </tr>
    <tr>
        
    <td width="25" height="338" background="images/bg.gif"></td>
        
    <td width="719" height="338" valign="top">
<table width="712" border="0" cellspacing="0">
        <tr> 
          <td width="710"><div align="center">
              <p>&nbsp;</p>
              <p>&nbsp;</p>
              <p><img src="images/rightstyle.gif"><a href="index.asp">返回首页</a> 
                <img src="images/rightstyle.gif"><a href="userlist.asp">查看成员列表</a> 
                <%
			if session("blueuid")=request("uid") then
		%>
                <img src="images/rightstyle.gif"><a href="editinfo.asp?uid=<%=request("uid")%>">修改个人资料 
                </a> 
                <%
			end if
		%>
                <img src="images/rightstyle.gif"><a href="javascript:history.back();">返回 
                </a></p>
            </div></td>
        </tr>
        <tr> 
          <td> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="293">
              <tr align="left" valign="top"> 
                <td width="100%" height="287"> 
                  <%
				dim rs
				dim sql
				dim isonline
				dim action
				sql="select * from online where uid='"&request("uid")&"'"
				set rs=conn.execute(sql)
				if not rs.eof then
					isonline="yes"
					action=rs("action")
				else
					isonline="no"
				end if
				rs.close
				set rs=nothing

				sql="select * from userinfo where uid='"&request("uid")&"'"
				'opendb
				set rs=conn.execute(sql)
				if rs.eof then
					response.redirect "error.asp?emsg=没这个人!"
					response.end
				else
				%>
                  <table width="85%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="230"><div align="right"><img src="images/frame_forum2.gif" align="absmiddle"></div></td>
                      <td width="374" height="20" align="left" valign="middle" background="images/frame_bg.gif"><font class="subtitle">成员资料</font></td>
                    </tr>
                  </table>
                  <br>
                  <table width="99%" border="0" cellspacing="1" cellpadding="0">
                    <tr> 
                      <td colspan="2" align="center">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">成员id: </td>
                      <td width="62%" align="left" valign="top"> &nbsp;<%=rs("uid")%></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">登录次数: </td>
                      <td width="62%" align="left" valign="top"> &nbsp;<%=rs("sn")%></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">发贴次数: </td>
                      <td width="62%" align="left" valign="top"> &nbsp;<%=rs("pos")%>/ 
                        <%
					  pos=rs("pos")
					  if pos>=0 and pos<10 then
						response.write "石头"
					  elseif pos>=10 and pos<50 then
					    response.write "玻璃"
					  elseif pos>=50 and pos<200 then
						response.write "水晶"
					  elseif pos>=200 then
						response.write "金刚石"
					  else
						response.write "error!"
					  end if
					  %>
                      </td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">权限: </td>
                      <td width="62%" align="left" valign="top">&nbsp; 
                        <%
					  authority=rs("authority")
					  if authority=0 then
						response.write "普通"
					  elseif authority=1 then
						response.write "板主"
					  elseif authority>1 then
					    response.write "站点负责人"
					  else
						response.write "error!"
					  end if
					  %>
                      </td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">电子邮件: </td>
                      <td width="62%" align="left" valign="top">&nbsp;<%=rs("email")%></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">个人主页: </td>
                      <td width="62%" align="left" valign="top">&nbsp;<a href="<%=rs("homepage")%>" target="_blank"><%=rs("homepage")%></a></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">联系方法: </td>
                      <td width="62%" align="left" valign="top">&nbsp;<%=rs("contact")%></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">个人签名: </td>
                      <td width="62%" align="left" valign="top">&nbsp;<%=rs("sign")%></td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top">在线状况: </td>
                      <td width="62%" align="left" valign="top">&nbsp; 
                        <%
							if isonline="yes" then
								response.write "在线:"&action
							else
								response.write "离线"
							end if
						%>
                      </td>
                    </tr>
                    <tr> 
                      <td width="38%" align="right" valign="top" height="21">&nbsp;</td>
                      <td width="62%" align="left" valign="top" height="21">&nbsp;</td>
                    </tr>
                  </table>
                  <%
				  end if
				  rs.close
				  set rs=nothing
				  'closedb
				  %>
                </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="23">&nbsp;</td>
        </tr>
      </table></td>
        
    <td width="25" height="338" background="images/bg.gif"></td>
    </tr>
    <tr>
      <td height="12" colspan="3"><div align="center">
        <table width="760" border="0" align="center" cellspacing="0">
          <tr> 
            <td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]T恤论论坛 
                www.3niao.com</div></td>
          </tr>
          <tr> 
            <td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif">&nbsp;</td>
            <td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
          </tr>
        </table>
      </div></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
<% closedb %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -