Czn.Com.Cn 中关村商情网__中关村_

─ 中关村资讯 ─

─ 中关村科技园 ─

<% Sql="Select * From News_admin Where News_Audit='1' And Lm_First_ID='2006127234613' And News_Pic='1' Order by Tdate Desc" Rs.Open Sql,Conn,1,1 Rs.PageSize=20 If Not Rs.Eof Then pageno=Left(Request.Querystring("pageno"),4) If isnumeric(pageno) Then pageno=Request.Querystring("pageno") If Cint(pageno)>Rs.Recordcount Or Cint(pageno)<=0 Then Rs.Absolutepage=1 Else Rs.Absolutepage=pageno End IF Else Rs.Absolutepage=1 End IF Response.write("") lineno=1 Do While Not Rs.Eof And lineno<=Rs.Pagesize Response.Write("") for i=1 to "4" Response.Write("") Rs.MoveNext lineno=lineno+1 If Rs.Eof Then Exit For Next if i<"4" Then For j=i to "3" Response.Write("") Next End iF Response.Write("") Loop If Rs.Absolutepage=-3 Then Rs_Absolutepage=Rs.Pagecount Else Rs_Absolutepage=Rs.Absolutepage-1 End If Response.Write("

") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("") Response.Write("") Response.Write("

") if Trim(Rs("News_Head"))<>"1" Then Response.Write("

") Else Response.Write("

") End If Response.Write("

") Response.Write("") Response.Write("

") if Trim(Rs("News_Head"))<>"1" Then Response.Write(""&Left(Trim(Rs("News_sTitle")),22)&"") Else Response.Write(""&Left(Trim(Rs("News_sTitle")),22)&"") End If Response.Write("

") Response.Write("共"&Rs.Recordcount&"条　每页显示"&Rs.Pagesize&"条　第"&Rs_Absolutepage&"/"&Rs.Pagecount&"页　　") If Rs_Absolutepage>1 Then Response.Write("首页　") Else Response.Write("首页　") End If If Rs_Absolutepage>1 Then Response.Write("上一页　") Else Response.Write("上一页　") End If If Rs_Absolutepage下一页　") Else Response.Write("下一页　") End If If Rs_Absolutepage末页") Else Response.Write("末页") End If Response.Write("

") End If Rs.Close %>