user_search.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<%
dim UserID,UserName
UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
If UserName="" or UserID="" or IsNull(UserID) Then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='user_log.asp?info=in';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select ID,Name,LockUser,GOGXuser from [Userinfo] where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' CnEndWeb（终点）提醒： \n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
GOGXuser=rsu("GOGXuser")
UserID=rsu("ID")
UserName=rsu("Name")
rsu.close
set rsu=nothing

nickname=CheckSql(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 [Userinfo] 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
%>