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