2010-10-21
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where a='"&a&"' order by pai desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暫時沒有記錄")
else
%>
<%
rs.PageSize=24
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<%if rs("l3")<>"" then%>
" target="_blank"><%=rs("title")%>
<%=year(rs("Infotime"))%>.<%=month(rs("Infotime"))%>.<%=day(rs("Infotime"))%><%
rs.movenext
if rs.eof then exit for
next
%>
北京博昊天成科技有限公司
Beijing Bohao Tiancheng Technology Co., Ltd
公司動態(tài) 網(wǎng)站建設
網(wǎng)站推廣 網(wǎng)頁設計
解決方案 css知識
空間域名 行業(yè)新聞
程序開發(fā)
掃一掃
關注公眾號
掃一掃
應用程序下載
