yhlist.asp

系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助

<%
keyword=request("keyword")
page=request("page")
sql="select * from user order by ID desc"
if not keyword="" then
sql="select * from user where 用户名='" & keyword &"'"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "还没有人注册!"
else
rs.pagesize=10
if page="" then
rs.absolutepage=1
rowcount=rs.pagesize
else
rs.absolutepage=page
rowcount=rs.pagesize
end if
%>

<span style="letter-spacing: 2">
<font face="黑体" style="font-size: 23pt" color="#0066CC">GBOOK</font><font face="黑体" style="font-size: 23pt" color="#FF0000">365</font><font face="黑体" style="font-size: 23pt">用户列表</font></span><br>
<br>
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700">
  <tr>
    <td width="2%"><img border="0" src="images/T_left.gif" width="140" height="21"></td>
    <td width="96%" background="images/Tt_bg.gif"></td>
    <td width="2%"><img border="0" src="images/T_right.gif" width="56" height="21"></td>
  </tr>
</table>
  </center>
</div>
<TABLE border=0 cellPadding=4 cellSpacing=1  width=700 style="border-collapse: collapse" class=a2>
<tr class=a1>
<td width="99" align="center" height="30">
用户名</td>
<td width="127" align="center" height="30">
版主Email</td>
<td width="106" align="center" height="30">
留言本名称</td>
<td width="207" align="center" height="30">
主页地址</td>
<td width="99" align="center" height="30">
申请日期</td></tr><%do while not rs.eof and rowcount>0%>
<tr class=a4>
<td width="99" align="center" height="30"><a href=index.asp?user=<%=rs("用户名")%>><font  color=red><%=rs("用户名")%></font></a></td>
<td width="127" align="center" height="30"><%=rs("email")%></td>
<td width="106" align="center" height="30"><%=rs("留言名")%></td>
<td width="207" align="center" height="30"><a href="<%=rs("home")%>"><%=rs("home")%></a></td>
<td width="99" align="center" height="30"><%=rs("times")%></td></tr><%
rs.movenext
rowcount=rowcount-1
loop
%>
<tr class=a3><td colspan=5 align=center height="30">第 <% for i=1 to rs.pagecount%> 
<a href="list.asp?user=<%=request("user")%>&page=<%=i%>"><%=i%></a>  
<%next%>页
</td></tr>
<tr  class=a4><form method="POST" action="list.asp">
<input type="hidden" name="user" value=<%=request("user")%>>
<td colspan=5 align=right height="30">搜索用户：  <input type="text" name="keyword" size="14"> &nbsp;</td></form></tr>
 
<%
end if
%>
</talbe><div align="center">       
            <center>
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" >
  <tr>
    <td width="1%"><img border="0" src="images/T_bottomleft.gif" width="145" height="17"></td>
    <td width="97%" background="images/T_bottombg.gif"></td>
    <td width="2%"><img border="0" src="images/T_bottomright.gif" width="145" height="17"></td>
  </tr>
</table>
            </center>
</div> 
</BODY></HTML>