<% ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Acquisition_admin/Acquisition.mdb") Set Acquisition_conn = Server.CreateObject("ADODB.Connection") Acquisition_conn.Open connstr Function Acquisition_RS(ByVal F_sql,ByVal F_LockT) Dim F_rs Set F_rs=Server.CreateObject("ADODB.RecordSet") F_rs.open F_sql,Acquisition_conn,1,F_LockT Set Acquisition_RS = F_rs End Function fenlei=Request("id") if fenlei="" then fenlei=1 Set rs=Acquisition_RS("select * from fenlei where id="&fenlei,1) title=rs("title") %> <% fenlei=Request("id") if fenlei="" then fenlei=1 Set rs=Acquisition_RS("select * from news where content_Symbol<>'' and fenlei="&fenlei,1) 'if rs.eof then Set rs=CreateRS("select * from news",1) pgsize=10 pagenum=1 para="?fenlei="&fenlei'参数 Show_number=13 If not rs.eof then rs.pagesize=pgsize'每页多少条 pgcount=rs.pagecount'页数 currentpage=Trim(Request.QueryString("page")) If currentpage="" or not isnumeric(currentpage) then currentpage=1 currentpage=int(currentpage) If currentpage<1 then currentpage=1 If currentpage>pgcount then currentpage=pgcount countpg=rs.recordcount '总条数 rs.absolutepage=currentpage'转到第N页 End If %>

<% Set fenlei_rs=Acquisition_RS("select * from fenlei",1) do while not fenlei_rs.eof response.Write ""&fenlei_rs("title")&"新闻  " fenlei_rs.movenext loop response.Write "西安婚纱摄影  " response.Write "西安写真摄影  " response.Write "西安摄影工作室  " %>

<%do while not rs.eof and pagenum<=pgsize%> <% rs.movenext pagenum=pagenum+1 loop %>

" target="_blank"><%=rs("title")%>

<%=left(rs("content_Symbol"),200)%>

<%=pagination(pgcount,currentpage,para,Show_number)%>