ÎÒÕâ¸ö·ÖÒ³³ö´íÁË(½ñÌì²Å·¢ÏÖÓÐÎÊÌâ)

°®ÇéÎÞ¼Û

´ó¼Ò°ï¿´Ò»ÏÂÎÒÕâ¸ö·ÖÒ³,½ñÌìÔõô²Å·¢ÏÖÓÐÎÊÌâѽ,¾ÍÊÇ˵,ËûµÚÒ»Ò³×ÜÊÇÏÔʾȫ²¿¼Ç¼ѽ?
ÎÒÏëÖ÷ÒªÊÇÀ¶É«ÄÇÒ»¿é³öÁËÎÊÌâÁË,¿ÉÔõô¿´Ò²²»ÐÐѽ

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from bbs order by hfdate desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
¶Ô²»Æð£¬Ä¿Ç°»¹Ã»ÓдËÀàÐÅÏ¢!
<%
else
dim maxperpage
dim sql
dim r
dim gstbookid
dim totalput
dim currentpage
dim totalpages
filename="bbs.asp"
if not isempty(request("page")) then
currentpage=cint(request("page"))
else
currentpage=1
end if
rs.pagesize=3
totalput=rs.recordcount
totalpage=rs.pagecount
maxperpage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalpage then
currentpage=totalpage
end if
if currentpage=1 then
showcontent
showpages1
else
if (currentpage-1)*maxperpage<totalput then
rs.move (currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark
showcontent
showpages1
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
</div>
<%
sub showcontent
dim i,j

%>
<table width="760" height="27" border="0" align="center" cellpadding="0" cellspacing="0" background="img4/bg1_r1_c1.gif">
<tr>
<td width="33"><div align="center" class="zz style2">״̬</div></td>
<td width="314">&nbsp; <span class="style3">Ö÷ Ìâ</span></td>
<td width="76"><div align="center" class="style3">×÷ Õß</div></td>
<td width="68"><div align="center" class="style3">·¢²¼Ê±¼ä</div></td>
<td width="39"><div align="center" class="style3">»Ø¸´</div></td>
<td width="40"><div align="center" class="style3">ÈËÆø</div></td>
<td width="190"><div align="center" class="style3">×îºó¸üÐÂʱ¼ä</div></td>
</tr>
</table>
<table width="760" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="images2/bj.gif" bgcolor="#FFFFFF">
<%
i=1
do while not (rs.eof or err)
%>
<tr>
<td width="33" height="30" align="center" valign="middle" bgcolor="#F4FAFB" class="b3"><%if rs("hfdate") = "2006-10-8" then%><img src="img2/ztop.gif" width="16" height="16"><%else%><img src="img4/folder.gif" width="16" height="16"><%end if%></td>
<td width="314" align="center" valign="middle" class="b2"><div align="left">&nbsp;<a href="new.asp?id=<%=rs("id")%>&zd=<%=rs("hfdate")%>"><%if rs("hfdate")= "2006-10-8" then%><font color="#FF0000"><%=left(rs("bt"),20)%></font><%else%><%=left(rs("bt"),20)%><%end if%></a></div></td>
<td width="76" align="center" valign="middle" bgcolor="#F4FAFB" class="b2"><%=rs("username")%></td>
<td width="69" align="center" valign="middle" class="b2"><%=rs("date")%></td>
<td width="38" align="center" valign="middle" bgcolor="#F4FAFB" class="b2"><%=rs("hfrs")%></td>
<td width="42" align="center" valign="middle" class="b2"><div align="center"><%=rs("rq")%></div></td>
<td width="188" align="center" valign="middle" bgcolor="#F4FAFB" class="b2"><div align="right"><%=rs("hfname")%> <span class="style1">|</span> <%if rs("hfdate")="2006-10-8" then%><%=rs("now")%><%else%><%=rs("hfdate")%><%end if%>&nbsp;</div></td>
</tr>
<%
if i>= maxprepage then exit do
i=i+1
rs.movenext
loop
%>
</table>
<%
end sub
%>
<%
sub showpages1()
dim n
n=totalpage
%>

<table width="760" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="images2/bj.gif" bgcolor="#FFFFFF" style="border-collapse:collapse">
<form action="<%=filename%>" method="post" align="right">
<tr>
<td width="238" height="30"></td>
<td width="522"><div align="right"><span style="font-size:12px">¹²<font color="#ff0000"><%=totalpage%></font>Ò³/<font color="red"> <%=totalput%></font> ÌõÐÅÏ¢</span>
[֪ʶÎÊ´ð¦Ø¦Ø¦Ø.¦ÖiuGoo.§ãom]
<% if currentpage <> 1 then %>
<a href=<%=filename%>><font color="#ff6600"><span style="font-size:12px">¡¾Ê×Ò³¡¿</span></font></a>&nbsp;<a href=<%=filename%>?page=<%=(currentpage-1)%>><font color="#ff6600"><span style="font-size:12px">¡¾ÉÏÒ»Ò³¡¿</span></font></a>
<%end if%>
<%if currentpage <> rs.pagecount then%>
<a href=<%=filename%>?page=<%=(currentpage+1)%>><font color="#ff6600"> <span style="font-size:12px">¡¾ÏÂÒ»Ò³¡¿</span></font></a>
<%end if%>
<span style="font-size:12px">µÚ<font color="#ff6600"><%=currentpage%></font>Ò³/¹²<font color="ff6600"><%=totalpage%></font>Ò³
<%
response.write "תµ½£º<select name='page' size=1 class=smallselsect style='font-family:ËÎÌå;font-size:12px;'>"
for i=1 to n
response.write"<option value="& i
if currentpage=i then
response.write " selected "
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write"<input name='types' type='hidden' value='"&request("types")&"'>"
response.write "&nbsp;<input class=buttonface type='submit' value='go' style='font-family: ËÎÌå; font-size: 12px;'>"
%>
</span></div></td>
</tr>
</form>
</table>
<%end sub%>
</td>
</tr>
</table>