─ 最新资讯 ─
<%call top_news("'2006122811751','200612281150','2006122811720','20061228112144','20061228112432','20061228113059','20061228113232','20061228113458','2006122811409','20061228114139','20061228114347','20061228114459','20061228115029','20061228115015','2006122811502','2006122811508','20061228114758','20061228114953','20061228115022','2006122812647','2006122812639','2006122812632','2006122812623','200612281260','2006122812614','20061228115556','2007112123824','20061228121559','20061228122635','20061228122645','20061228122525','20061228122655','20061228123136'",14,24)%>
─ 热点资讯 ─
 当前位置：首页 >> 外设 >> 传真机 >> 评测试用
<% Sql="Select * From News_admin Where News_Audit='1' And Lm_First_ID='200612270023' And Lm_S_ID='2006122812116' 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 %>
─ 最 新 热 点 行 情 ─
<%call top_pic("'2006122811814','2006122811546','20061228112334','2006122811266','20061228113138','20061228113321','20061228113911','20061228114052','2006122811426','20061228114418','2006122811472','20061228115255','20061228115238','20061228115222','20061228115229','20061228115157','20061228115211','20061228115248'",2)'最新热点行情图片 %>
<%call top_news("'2006122811814','2006122811546','20061228112334','2006122811266','20061228113138','20061228113321','20061228113911','20061228114052','2006122811426','20061228114418','2006122811472','20061228115255','20061228115238','20061228115222','20061228115229','20061228115157','20061228115211','20061228115248'",4,40)'最新热点行情新闻 %>
─ 最 新 热 点 导 购 ─
<%call top_pic("'2006122811824','2006122811629','20061228112346','20061228112625','20061228113148','20061228113331','20061228113923','2006122811414','20061228114218','20061228115426','2006122811540','20061228115333','20061228115343','2006122811535','20061228115324','20061228115418'",2)%>
<% call top_news("'2006122811824','2006122811629','20061228112346','20061228112625','20061228113148','20061228113331','20061228113923','2006122811414','20061228114218','20061228115426','2006122811540','20061228115333','20061228115343','2006122811535','20061228115324','20061228115418'",4,40)%>
─ 最 新 热 点 评 测 ─
<%call top_news("'2006122811833','200612281178','20061228112358','2006122811309','2006122811320','20061228113341','20061228113935','20061228114118','20061228114428','20061228114714','20061228115548','20061228115530','20061228115511','20061228115521','20061228115435','20061228115457','20061228115539','20061228121325','20061228121316','2006122812134','20061228121252','2006122812116','20061228121144','2006122812104','20061228121734','20061228122942','2006122812301漀瑮猭穩?6','20061228122918','2006122812305'",5,40)%>
─ 最 新 热 点 应 用 ─
<%call top_news("'2006122811842','2006122811731','20061228112422','20061228113047','20061228113223','20061228113414','20061228113954','20061228114128','20061228114243','20061228114443','20061228114728','200731514341','200731514322','20073151435','200731514313','200731514218','200731514247','200731514331','20061228121551','20061228121541','20061228121531','20061228121522','20061228121349','20061228121512','20061228121334'",5,40)%>
<% sub top_pic(sIDList,num)'more模版 if num<>0 and num<>empty then'显示图片 sql="select top "&num&" news_pic_url,news_stitle,news_file,news_title from news_admin where news_commend<>'1' and News_pic='1' and news_Audit='1' and lm_S_id in ("&sIDList&") order by tdate desc" set rs=conn.execute(sql) response.write "" do while not rs.eof response.write "" rs.movenext loop response.write "
" response.write "
" rs.close end if end sub sub top_news(sIDList,num,len) if num<>0 and num<>empty then'显示文字 sql="select top "&num&" news_pic_url,news_stitle,news_file,news_title from news_admin where news_commend<>'1' and News_pic<>'1' and news_Audit='1' and lm_S_id in ("&sIDList&") order by tdate desc" set rs=conn.execute(sql) response.write "" do while not rs.eof response.write "" rs.movenext loop response.write "
" response.write "·" response.write InterceptStr(trim(rs("news_title")),len) response.write "
" rs.close end if end sub %>