<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%=web_title%> >
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%>
Q <%=web_rs("title")%>
¡¡ "><%=web_rs("from")%>
<% web_rs.movenext count=count-1 loop end if %>
<%if i="" then i=1 end if%> A total of <%=web_rs.RecordCount%> the current No. <%=i%>/<%=web_rs.pagecount%> £¬<%=web_rs.pagesize%> Per Page <%if Page>1 then%> Back <%else%> Back <%end if%> <%for j=1 to web_rs.pagecount%> [<%=j%>] <%next%> <%if Page < web_rs.pagecount then %>Next<%else%>Next<%end if%>
¡¡ Service
<% set web_rs=server.CreateObject("adodb.recordset") web_rs.Open "select * from web_bsort3 order by border ",conn,1,1 do while not web_rs.eof %> <% web_rs.movenext loop %>
¡¡¡¤ &tid=<%=tid%>" style=" font-size:12px; font-weight:bold;"><%=web_rs("bclass")%>