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

📄 guestinfo.asp

📁 同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统
💻 ASP
字号:
🔍 
<!--#include file="conn.inc"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看用户信息</title>
</head>
<%

Check Request("SerialNum")

sql="SELECT * FROM ever_user WHERE UID='" & Request("Target") & "'"
Set ever_userInfoRs=conn.Execute(sql)
If ever_userInfoRs.Eof OR ever_userInfoRs.Bof Then
Response.Write "没有找到有关该用户的信息。"
Response.End
End If
ever_userInfoRs.MoveFirst
%>

<body bgcolor="#FFFFFF">

<p><strong><font color="#FF0000" size="3">当前用户信息</font></strong></p>

<table border="2" width="85%" cellpadding="2" cellspacing="5" bordercolorlight="#C0C0C0"
style="border-left: 1px double rgb(128,0,128)">
  <tr>
    <td width="61%" valign="middle" align="center"
    style="text-align: center; vertical-align: middle"><p
    align="right"><b><font color="#FF8080" size="2">姓名：</font></b></td>
    <td width="39%"><font size="2"><%
If ever_userInfoRs("Email")<>"" Then
Response.Write "<a href='mailto:" & ever_userInfoRs("Email") & "'>"
Response.Write ever_userInfoRs("UID")
Response.Write "</a>"
Else
Response.Write ever_userInfoRs("UID")
End If
%>
      </font>
</td>
  </tr>
  <tr>
    <td width="61%" valign="middle" align="center"
    style="text-align: center; vertical-align: middle"><p
    align="right"><b><font color="#FF8080" size="2">个人主页：</font></b></td>
    <td width="39%"><a
    href="<%=ever_userInfoRs("HomePage")%>" target="blank"><font color="#FF8080" size="2"><%=ever_userInfoRs("HomePage")%> </font></a> </td>
  </tr>
  <tr>
    <td width="61%" valign="middle" align="center"
    style="text-align: center; vertical-align: middle"><p
    align="right"><b><font color="#FF8080" size="2">已发表文章数：</font></b></td>
    <td width="39%"><font size="2"><%=ever_userInfoRs("Essay")%>
      </font>
</td>
  </tr>
  <tr>
    <td width="61%" valign="middle" align="center"
    style="text-align: center; vertical-align: middle"><p
    align="right"><b><font color="#FF8080" size="2">已读取文章数：</font></b></td>
    <td width="39%"><font size="2"><%=ever_userInfoRs("HowMany")%>
      </font>
</td>
  </tr>
  <tr>
    <td width="61%" valign="middle" align="center"
    style="text-align: center; vertical-align: middle"><p
    align="right"><b><font color="#FF8080" size="2">在论坛的总时间：</font></b></td>
    <td width="39%"><%
Response.Write ever_userInfoRs("TotalTime") & "(分钟)"
%>
</td>
  </tr>
</table>

<form method="POST" action="sendmessage.asp">
  <input type="hidden" name="SerialNum" value="<%=Request("SerialNum")%>"><input
  type="hidden" name="Target" value="<%=Request("Target")%>"><p><b><font color="#0000FF" size="2">你可以为该用户发消息，他马上就能看到这条信息<br>
  如果此人已离开论坛，则下次进入时会看到你发的信息</font></b></p>
  <p><textarea rows="10" name="Message" cols="43"
  style="background-color: rgb(192,192,192); color: rgb(128,0,0)"></textarea></p>
  <p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset"
  name="B2"></p>
</form>

<p>&nbsp;&nbsp;&nbsp; </p>
</body>
</html>

⌨️ 快捷键说明

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