<% 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 %>

公司介绍

More »

<%=ProcessSitelink(SiteDetail)%> 我公司主要生产加工销售的产品包括: <%=Products("0,",2,200)%> More »
<% Function Products(SortPath, trs, tds) Dim rs, sql, tr, td, ProductName, ProUrl, SmallPicPath Set rs = server.CreateObject("adodb.recordset") sql = "select top "&trs * tds&" * from Qianbo_Products where ViewFlag order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "No relevant information" Else For tr = 1 To trs For td = 1 To tds If StrLen(rs("ProductName"))<= 100 Then ProductName = rs("ProUrl") Else ProductName = StrLeft(rs("ProUrl"), 100) End If If ISHTML = 1 Then AutoLink = ""&rs("ProUrl")&"."&HTMLName&"" Else AutoLink = "ProductView.Asp?ID="&rs("id")&"" End If Response.Write " "&ProductName&", "&vbCrLf rs.movenext If rs.EOF Then Exit For Next If rs.EOF Then Exit For Next End If rs.Close Set rs = Nothing End Function %>