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

📄 showperson.asp

📁 this a program about talent web database used asp and VB.
💻 ASP
字号:
<!--#include file="tools.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询个人资料</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="images/forum.css">
</head>

<body leftmargin="20" topmargin="20" rightmargin="20" bgcolor="#ffffff" alink="#333333"
vlink="#333333" link="#333333">
<%
uid=trim(Request.QueryString("uid"))
strsql="select tblname from tblids where uid=" & sqlstr(uid)
set rsd=server.CreateObject("adodb.recordset")
rsd.Open strsql,conn
tblname=rsd("tblname")
rsd.Close
if tblname="tblUsers" then
strsql="select email,uname,address,tel,users.url,oicq,works,[sign],header,count(*) td from tblusers users " & _
         " join tblbbs bbs on users.uid=bbs.uid " & _
         " where users.uid=" & sqlstr(uid) & _
         " group by email,uname,address,tel,users.url,oicq,works,[sign],header"
rsd.Open strsql,conn
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="#777777"
align="center">
  <tr>
    <td><table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr bgcolor="#EEEEEE">
        <td align="center" height="22" colspan="2">查询个人资料</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td align="center" height="22" colspan="2"><img src="<%=rsd("header")%>"><font color="#0000A0"><strong><%=uid%>的资料</strong></font></font></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>姓 名:</strong></td>
        <td width="70%" height="22"><%=rsd("uname")%> </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>发表文章数:</strong></td>
        <td width="70%" height="22"><%=rsd("td")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>E_Mail:</strong></td>
        <td width="70%" height="22"><a href="<%=rsd("email")%>"><%=rsd("email")%></a> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>OICQ:</strong></td>
        <td width="70%" height="22"><%=rsd("email")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>主 页:</strong></td>
        <td width="70%" height="22">
        <%if rsd("url")<>"" then%>
        <a href="<%=rsd("url")%>" target="_blank"><%=rsd("url")%>
        <%end if%>
        </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>签 名:</strong></td>
        <td width="70%" height="22"><%=replace(rsd("sign"),chr(13),"<br>&nbsp;&nbsp;&nbsp;&nbsp;")%></td>
      </tr>
      <tr bgcolor="#EEEEEE">
        <td align="center" height="22" colspan="2">  </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<%else
strsql="select email,uname,address,tel,users.url,intro,count(*) td,fax from tblmembers users " & _
         " join tblbbs bbs on users.uid=bbs.uid " & _
         " where users.uid=" & sqlstr(uid) & _
         " group by email,uname,address,tel,users.url,intro,fax"
rsd.Open strsql,conn
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%" bgcolor="#777777"
align="center">
  <tr>
    <td><table cellpadding="3" cellspacing="1" border="0" width="100%">
      <tr bgcolor="#EEEEEE">
        <td align="center" height="22" colspan="2">查询公司资料</td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td align="center" height="22" colspan="2"><font color="#0000A0"><strong><%=uid%>的资料</strong></font></font></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>公司名称:</strong></td>
        <td width="70%" height="22"><%=rsd("uname")%> </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>发表文章数:</strong></td>
        <td width="70%" height="22"><%=rsd("td")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>E_Mail:</strong></td>
        <td width="70%" height="22"><a href="<%=rsd("email")%>"><%=rsd("email")%></a> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>联系电话:</strong></td>
        <td width="70%" height="22"><%=rsd("tel")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>传真:</strong></td>
        <td width="70%" height="22"><%=rsd("fax")%></td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>主 页:</strong></td>
        <td width="70%" height="22">
        <%if rsd("url")<>"" then%>
        <a href="<%=rsd("url")%>" target="_blank"><%=rsd("url")%>
        <%end if%>
        </td>
      </tr>
      <tr bgcolor="#FFFFFF">
        <td width="30%" align="right" height="22"><strong>公司介绍:</strong></td>
        <td width="70%" height="22"><%=replace(rsd("intro"),chr(13),"<br>&nbsp;&nbsp;&nbsp;&nbsp;")%></td>
      </tr>
      <tr bgcolor="#EEEEEE">
        <td align="center" height="22" colspan="2">  </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

<%end if%>
</body>
</html>

⌨️ 快捷键说明

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