─ 最新资讯 ─
─ 热点资讯 ─
 当前位置:首页 >> 中关村 >> 中关村科技园 >> 园区介绍
<% 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 %>
─ 村 中 盘 点 ─
─ 中 关 村 资 讯 ─
─ 中 关 村 科 技 园 ─