fenye.html

寝室管理文档 网站目的： 为了更好的管理寝室同学们的信息资料

<% 
lx=request.QueryString("lx") 
page=int(request.QueryString("page")) 
set rs=server.createobject("adodb.recordset") 
exec="select * from news where lx like '%"+lx+"%' order by id desc" 
rs.open exec,conn,1,1 
rs.PageSize =20 
If page < 1 Then page = 1 
If page > rs.PageCount Then page = rs.PageCount 
if not rs.eof then rs.AbsolutePage =page 
%> 
<TABLE width=546 height="379" border=0 align=center cellPadding=0 
cellSpacing=0 bgcolor="#FFFFFF" 
style="BORDER-RIGHT: #c8cfec 1px solid; BORDER-TOP: #c8cfec 1px solid; BORDER-LEFT: #c8cfec 1px solid; BORDER-BOTTOM: #c8cfec 1px solid"> 
<TBODY> 
<TR> 
<TD align=middle valign="top"> 
<TABLE style="BORDER-BOTTOM: #8b8b8b 1px solid" cellSpacing=0 
cellPadding=0 width=536 border=0> 
<TBODY> 
<TR> 
<TD width=194 background="image/b_26_14.gif" height=24> 

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> 
<TBODY> 
<TR> 
<TD height=3></TD></TR> 
<TR> 
<TD>   <FONT 
color=#ffffff><%=lx%></FONT></TD> 
</TR></TBODY></TABLE></TD> 
<TD width=29><IMG height=24 
src="image/b_26_15.gif" width=29></TD> 
<TD align=right 
background="image/b_26_16.gif"> 
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0> 
<TBODY> 
<TR> 
<TD height=3></TD></TR> 
<TR> 
<TD align="right"><span class="l22">  </span></TD> 
</TR></TBODY></TABLE></TD> 
<TD width=11><IMG height=24 
src="image/b_26_17.gif" 
width=11></TD></TR></TBODY></TABLE> 
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0> 
<TBODY> 
<TR> 
<TD height=6></TD></TR></TBODY></TABLE> 
<TABLE cellSpacing=0 cellPadding=0 width=536 align=center border=0> 
<TBODY> 
<%For i = 1 To rs.PageSize 
If rs.EOF Then Exit For 
zt=rs("zt") 
szt=xszh(zt) 
if len(szt)>30 then szt=left(szt,30)+".." end if 
%> 
<TR> 
<TD width=29 height="20" align=right><img src="image/b_26_28.gif" width="11" height="7"></TD> 
<TD width=507> 
<A href="show.asp?id=<%=rs("id")%>" title="<%=zt%>" target="_blank"> 
<%=szt%>(<%=rs("sj")%>)</A></TD> 
</TR> 
<% rs.movenext 
next%> 

</TBODY></TABLE> 
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0> 
<TBODY> 
<TR> 
<TD width="4%" height="20" ><p> </p></TD> 
<TD > 
<center> 
第 
<%for i=1 to rs.PageCount 
if i=page then 
response.write i 
else%> 
<a href="list.asp?lx=<%=lx%>&page=<%=i%>">[<%=cstr(i)%>]</a> 
<% end if 
next%> 
页 
</center> 
</TD> 
<TD width="4%" > </TD> 
</TR></TBODY></TABLE></TD> 
</TR></TBODY></TABLE>