您当前所在的位置:首页 > 行业新闻
    <% order=order&" order by hits Desc" set rs=server.createobject("adodb.recordset") sql2="select top 20 newsid,title,dateandtime,hits from news where (typeid=25 or typeid =26)"&order&"" rs.open sql2,news_conn,1,1 %> <% i=1 do while not rs.eof %>
  • 0 then%>class="ftext5" <%else%>class="ftext6" <%end if%>> .html" target="_blank"><%=rs("title")%> (<%=month(rs("dateandtime"))%>.<%=day(rs("dateandtime"))%>)
  • <% i=i+1 rs.movenext loop %>
  • <% set top_new=server.CreateObject("adodb.recordset") sql_top="select top 10 title,newsid from news where (typeid=25 or typeid=26) and dateandtime>=getdate()-200 order by newsid desc" top_new.open sql_top ,news_conn,1,1 if not top_new.eof then do while not top_new.eof %> · .html"><%=left(trim(top_new("title")),13)%>
    <%top_new.movenext loop end if top_new.close set top_new=nothing %>
<% ''''''''''''''''''''''''''''''''''''''''''''''''''' Function listPages(LinkFile) if not (rs.eof and rs.bof) then gopage=currentpage totalpage=n blockPage=Int((gopage-1)/5)*5+1 ' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then ' pos=instr(linkfile,"page=")-2 ' linkfile=left(linkfile,pos) ' end if If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) lenstrTemp=len(strTemp)+1 if instr(left(linkfile,lenstrTemp),"?")>0 then if blockPage = 1 Then Response.Write " " Else Response.Write(" ") End If i=1 Do Until i > 5 or blockPage > n If blockPage=int(gopage) Then Response.Write("["&blockPage&"]") Else Response.Write(" ["&blockPage&"] ") End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > totalpage Then Response.Write " →" Else Response.Write(" ") End If response.write" 转 " response.write"" response.write" 页  " else if blockPage = 1 Then Response.Write " " Else Response.Write(" ") End If i=1 Do Until i > 5 or blockPage > n If blockPage=int(gopage) Then Response.Write("["&blockPage&"]") Else Response.Write(" ["&blockPage&"] ") End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > totalpage Then Response.Write " →" Else Response.Write(" ") End If response.write" 转 " response.write"" response.write" 页  " End If Startinfo=((gopage-1)*msg_per_page)+1 Endinfo=gopage*msg_per_page if Endinfo>totalrec then Endinfo=totalrec Response.Write("  页次:"¤tpage&"/"&n&"页 每页 "&msg_per_page&" 条信息") end if End Function Function checkStr(Chkstr) dim Str:Str=Chkstr if isnull(Str) then checkStr = "" exit Function else Str=replace(Str,"'","") Str=replace(Str,";","") Str=replace(Str,"--","") checkStr=Str end if End Function %> <% 'end if rs.close %> <% news_close %>