?? 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>查詢結(jié)果</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> 上站次數(shù)</td><td><%=rsUserInfo("iLogin")%>次</td></tr>
<tr><td> 發(fā)表文章數(shù)</td><td><%=rsUserInfo("iBook")%>篇大作</td></tr>
<tr><td> 經(jīng)驗值</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>最近發(fā)表的十篇文章<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 + -