user_search.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
nickname=request("nickname")
if nickname="" then
	response.write "<script language=javascript>alert('查询内容不能为空!');history.back(-1);</script>"
	response.end
end if
%> <%
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where name = '"&nickname&"' ORDER BY ID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write ("<script>alert('   没有相关内容!\n\n 可能用户不存在，请查询后输入。');history.back();</script>")
	Response.end
else
%>
<script language="JavaScript">
<!--
function views(id)
{
	var filename=""+id;
	window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=580,height=420");
}
//-->
</script>
<table cellspacing="1" cellpadding="4" width="100%" bgcolor="#ffffff" border="0">
	<tr bgcolor="#588fc7">
		<td colspan="4" class="head"><font color="#FFFFFF">搜索结果 </font></td>
	</tr>
	<%
rs.pagesize=100
if page1=0 then page1=1
pages=rs.pagecount
if page1 > pages then page=pages
rs.AbsolutePage=page1

for j=1 to rs.pagesize
%>
	<tr bgcolor="#ffffff">
		<td width="25%">昵称:</td>
		<td width="25%">
		<a href="javascript:views('user_duanxinadd.asp?custom=<%=rs("name")%>')">
		<%=rs("name")%></a>（给我发短信吧~）</td>
		<td width="25%">称谓:</td>
		<td width="25%"><%=rs("Sex")%></td>
	</tr>
	<tr bgcolor="#dfefff">
		<td width="25%">Email:</td>
		<td width="25%"><%=rs("Email")%></td>
		<td width="25%">ID号:</td>
		<td width="25%"><%=rs("ID")%></td>
	</tr>
	<tr bgcolor="#ffffff">
		<td>注册日期:</td>
		<td><%=rs("ADDDate")%></td>
		<td>登陆日期:</td>
		<td><%=rs("LoginTime")%></td>
	</tr>
	<tr bgcolor="#dfefff">
		<td>登陆次数:</td>
		<td><%=rs("LoginTimes")%></td>
		<td>等级:</td>
		<td><%=rs("UserLevel")%> 级</td>
	</tr>
	<tr bgcolor="#ffffff">
		<td>积分:</td>
		<td><%=rs("UserPoint")%></td>
		<td>权限:</td>
		<td><%if rs("IsVipUser")=0 then  response.write("注册会员") end if%> <%if rs("IsVipUser")=1 then  response.write("VIP 会员") end if%>
		<%if rs("GOauthor")=1 then  response.write("  驻站作家") end if%> <%if rs("GOGXuser")=1 then  response.write(" 作品更新员") end if%></td>
	</tr>
	<tr bgcolor="#dfefff">
		<td>日推荐数:</td>
		<td><%=rs("userVoteCount")%> 剩余:<%=rs("VoteCount")%></td>
		<td>藏书架数:</td>
		<td>总量:<%=rs("userboxnum")%> 剩余:<%=rs("boxnum")%> </td>
	</tr>
	<tr bgcolor="#ffffff">
		<td colspan="4"><hr></td>
	</tr>
	<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td>　</td>
	</tr>
	<tr>
		<td height="24" align="center"><%if Page1<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=user_search.asp?nickname="&nickname&"&page=1>首页</a>&nbsp;"
    response.write "<a href=user_search.asp?nickname="&nickname&"&page=" & (page1-1) & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page1<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=user_search.asp?nickname="&nickname&"&page=" & (page1+1) & ">"
    response.write "下一页</a> <a href=user_search.asp?nickname="&nickname&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&page1&"</font>/"&rs.pagecount&"</strong>页 "
   response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"   
%></td>
	</tr>
</table>
<% end if %>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>