Service |
<%
bclassid=request.QueryString("bclassid")
set web_rs=server.CreateObject("adodb.recordset")
if bclassid="" then
web_rs.Open "select * from web_news3 order by id desc ",conn,1,1
else
web_rs.Open "select * from web_news3 where bclassid="&bclassid&" order by id desc ",conn,1,1
end if
web_rs.pagesize=15
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not web_rs.eof and not web_rs.bof then
web_rs.absolutepage=Page
end if
count=web_rs.pagesize
%>
<%if web_rs.bof then%>
ÔÝÎÞÄÚÈÝ
<%else%>
<%do while not web_rs.eof and count > 0%>
<%
web_rs.movenext
count=count-1
loop
end if
%>
|
|
¡¡ Service |
| |