📄 queryuser.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="connection.asp" -->
<!-- #include file="std.asp" -->
<!-- #include file="string.asp" -->
<%
Alive "查询用户"
if request("userid")="" then
%>
<html >
<head>
<meta http-equiv="pragma" content="no-cache" >
<link rel="stylesheet" type="text/css" href="main.css">
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (document.frmaLogin.userid.value.length<1) {
alert("用户ID不能为空");
document.frmaLogin.userid.focus();
}
else
{
document.frmaLogin.submit();
}
}
//-->
</SCRIPT>
</head>
<body class=clblue>
<br><p>
<center>
<form name=frmaLogin action="queryUser.asp">
用户ID：<INPUT TYPE="text" width=10 NAME="userid" class=font1> <INPUT TYPE="button" class=font1 value="查询" onclick=check()>
</form>
<p>
</center>
</body>
</html>
<% else
dim rsUserInfo,strSQL,iUser,i
dim rsBook,iShow
set rsUserInfo=server.CreateObject("ADODB.RecordSet")
set rsBook=server.CreateObject("ADODB.RecordSet")
rsUserInfo.Open "select * from UserInfo where userid='"+request("userid")+"'",myconn,1
if rsUserInfo.RecordCount <1 then
session("strURL")="queryUser.asp"
session("strMsg")="找不到用户ID："+request("userid")
response.redirect "alert.asp"
else%>
<html >
<head>
<meta http-equiv="pragma" content="no-cache" >
<link rel="stylesheet" type="text/css" href="main.css">
<body class=clblue>
<center><div align=center>
<b><big>查询结果</big></b><br><br>
<table width=90% class=queryUser border=1 cellpadding="0" cellspacing="0">
<% if isSysOP(session("userid")) then%>
<tr><td width=27%> 管理</td><td>
<a href="adduser.asp?method=modify&userid=<%=rsUserInfo("userid")%>">修改用户资料</a>
<a href="adduser.asp?method=delete&userid=<%=rsUserInfo("userid")%>">删除用户</a>
</td></tr>
<% end if%>
<tr><td width=27%> 用户ID</td><td><%=rsUserInfo("UserID")%></td></tr>
<tr><td> 呢称</td><td><%=rsUserInfo("nickname")%></td></tr>
<tr><td> Email</td><td><%=rsUserInfo("Email")%></td></tr>
<tr><td> 上站次数</td><td><%=rsUserInfo("iLogin")%>次</td></tr>
<tr><td> 发表文章数</td><td><%=rsUserInfo("iBook")%>篇大作</td></tr>
<tr><td> 经验值</td><td><%=rsUserInfo("iPerience")%>分</td></tr>
<tr><td> 最后上站时间</td><td><%=rsUserInfo("LastLogin")%></td></tr>
<tr><td> 签名档</td><td><%=showbody(rsUserInfo("sign")&" ")%> </td></tr>
</table><br>
<% rsBook.CursorLocation = 3
rsBook.CacheSize = 10
rsBook.PageSize = 10
rsBook.Open "select * from Book where userid='"+rsUserInfo("userid")+"' order by wdate desc",myconn,1
iShow=10
if rsBook.RecordCount>0 then %>
<table width=90% border=1 cellpadding="0" cellspacing="0" class=queryUser >
<tr><td align=center colspan=2>最近发表的十篇文章<br></td></tr>
<% if iShow>rsBook.RecordCount then iShow=rsBook.RecordCount
for i=1 to iShow %>
<tr><td width=5%> <%=i%></td><td><a class=listtopic1 href="showdoc.asp?method=new&bid=<%=rsBook("bid")%>&pageNo=1&id=<%=rsBook("id")%>&reply=0">
<%=rsBook("title")%></a></td></tr>
<% rsBook.MoveNext
next %>
</table><br>
<% end if
rsBook.Close
rsBook.CursorLocation = 3
rsBook.CacheSize = 10
rsBook.PageSize = 10
rsBook.Open "select * from SysLogin where userid='"+rsUserInfo("userid")+"' order by LoginDate desc",myconn,1
iShow=10
if rsBook.RecordCount>0 then %>
<table width=90% border=1 cellpadding="0" cellspacing="0" class=queryUser >
<tr><td align=center colspan=3>最近十次上站IP及时间<br></td></tr>
<% if iShow>rsBook.RecordCount then iShow=rsBook.RecordCount
for i=1 to iShow %>
<tr><td width=5%> <%=i%></td>
<td width=25%> <%=rsBook("ip")%></td>
<td > <%=rsBook("LoginDate")%></td>
</tr>
<% rsBook.MoveNext
next %>
</table>
<% end if%>
</div></center>
</body>
</html>
<% end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -