<% Set fso=Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then response.Redirect "install.asp" End If set fso=Nothing Call SiteInfo If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> <% =SiteTitle %>
公司动态 | Company News More...
 
时事热点 | Current Affairs hot More...
    <%= News("0,12,",5) %>
    <%= News("0,1,",5) %>
<%=company%>
最新案例 | New Case More...
<%= NewProducts("0,169,",6) %>
合作客户 | Customer Cooperation More...
<%= Products("0,",16) %>
 
<% function News(SortPath,sum) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top "&sum&" * from Hm_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write "

暂无相关信息

"&VbCrLf else do while not rs.eof if now()-rs("AddTime")<=2 then NewsName=StrLeft(rs("NewsName"),36) NewFlag=" " else NewsName=StrLeft(rs("NewsName"),36) NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("id")&"" End If Response.Write "
  • "&NewsName&""&FormatDate(rs("AddTime"), 5)&"
    ("&strleft(rs("SeoDescription"),44)&")
    • "&VbCrLf rs.movenext loop end if rs.close set rs=nothing end Function Function NewProducts(SortPath,sum) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top "&sum&" * from(select * from Hm_Products where ViewFlag and NewFlag order by Sequence desc)" rs.open sql,conn,1,1 if rs.eof then response.write "暂无相关信息" else Response.Write "" k=1 do while not rs.eof if StrLen(rs("ProductName"))<=18 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),16) end If if rs("FileName")<>"" then ProNames=replace(trim(rs("FileName"))," ","-") else ProNames=replace(trim(rs("ProductName"))," ","-") end if If ISHTML = 1 Then AutoLink = ""&ProNames&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("id")&"" End If SmallPic=replace(rs("SmallPic"),"../"," ") SmallPicPath=HtmlSmallPic(rs("GroupID"),SmallPic,rs("Exclusive")) Response.Write " " k=k+1 rs.movenext loop Response.Write "
    " %> <% Response.Write "
    <%= ProductName %>
    " end if rs.close set rs=nothing End Function Function Products(SortPath,sum) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top "&sum&" * from(select * from Hm_Products where ViewFlag and CommendFlag order by Sequence desc)" rs.open sql,conn,1,1 if rs.eof then response.write "暂无相关信息" else Response.Write "" i=1 k=1 do while not rs.eof if StrLen(rs("ProductName"))<=18 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),16) end If if rs("FileName")<>"" then ProNames=replace(trim(rs("FileName"))," ","-") else ProNames=replace(trim(rs("ProductName"))," ","-") end if If ISHTML = 1 Then AutoLink = ""&ProNames&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("id")&"" End If SmallPic=replace(rs("SmallPic"),"../"," ") SmallPicPath=HtmlSmallPic(rs("GroupID"),SmallPic,rs("Exclusive")) Response.Write " " rs.movenext if i mod 4 =0 then response.Write("") i=i+1 k=k+1 loop Response.Write "
    " %> <% Response.Write "
    <%= ProductName %>
    " end if rs.close set rs=nothing End Function %>