📄 userdet.asp
字号:
<%@ language="vbscript" %>
<%if request("username")="" then
response.write "??óD???¨ó??§"
response.end
else
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
sql="select * from user_info where username='"&trim(request("username"))&"' "
rs.open sql,conn
if rs.bof and rs.eof then
response.write "没找到该会员的资料！"
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
else
%>
<html>
<head>
<title>Untitled Document</title>
<style type="text/css">
<!--
p,a,td{font-size:12px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:12px;font-family:宋体,sans-serif}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active { text-decoration: underline}
A:hover {text-decoration: underline}
-->
</style>
</head>
<body bgcolor="#FFFFF0">
<table width="58%" border="1" align="center" bordercolorlight="#000000"
bordercolordark="#FFFFFF" cellspacing="0" cellpadding="3">
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">姓名</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("username")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">E-mail</td>
<td width="71%" bgcolor="#E2E2C7"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">性别</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("sex")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">出生年月</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("born")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">竹叶</td>
<td width="71%" bgcolor="#E2E2C7"><a href="<%=rs("homepage")%>" target="_blank"><%=rs("homepage")%></a></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">来自</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("city")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">CALL/ICQ</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("phone")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">注册时间</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("regtime")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">最近登录</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("newregtime")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">发表文章数</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("articlenum")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">登录次数</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("logonnum")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right">积分</td>
<td width="71%" bgcolor="#E2E2C7"><%=rs("lives")%></td>
</tr>
<tr>
<td width="29%" bgcolor="#BFBFFF" align="right" valign="top">签名</td>
<td width="71%" bgcolor="#E2E2C7"> </td>
</tr>
<tr bgcolor="#E2E2C7">
<td colspan="2"> <%=replace(rs("signs"),chr(13)&chr(10),"<br>")%></td>
</tr>
<tr align="right">
<td colspan="2"> <a Href="Javascript:history.go(-1)">返回前页</a> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -