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

─ 最新资讯 ─

─ 热点资讯 ─

<% Sql="Select * From News_admin Where News_Audit='1' And Lm_First_ID='200684141533' And Lm_S_ID='200612513410' Order by Tdate Desc" Rs.Open Sql,Conn,1,1 Rs.PageSize=30 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 lineno=1 Do While Not Rs.Eof And lineno<=Rs.Pagesize if Trim(Rs("News_Head"))<>"1" Then Response.Write("·"&Trim(Rs("News_Title"))&" ("&Trim(Rs("News_Date"))&")
") Else Response.Write("·"&Trim(Rs("News_Title"))&" ("&Trim(Rs("News_Date"))&")
") End If Rs.MoveNext lineno=lineno+1 Loop If Rs.Absolutepage=-3 Then Rs_Absolutepage=Rs.Pagecount Else Rs_Absolutepage=Rs.Absolutepage-1 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 %>

─ 村中盘点 ─

─ 中关村资讯 ─

─ 中关村科技园 ─