<%
tmpKeywords = Split(Keywords, ",")
For i = 0 To UBound(tmpKeywords)
Response.Write("" & tmpKeywords(i) & "")
Next
Function RndNum(Min, Max)
Randomize
RndNum = Min + Int((Max - Min + 1) * Rnd)
End Function
%>
<%
Function IndexProducts( SortPath, ProCount)
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "Select Top " & ProCount & " * From Qianbo_Products Where ViewFlag And Instr(SortPath,'" & SortPath & "') > 0 Order By ID Desc"
rs.Open sql, conn, 1, 1
If Not rs.EOF Then
While Not rs.EOF
If ISHTML = 1 Then
AutoLink = "" & ProName & Separated & rs("ID") & "." & HTMLName & ""
Else
AutoLink = "ProductView.Asp?ID=" & rs("ID") & ""
End If
Response.Write"
" & vbCrLf
rs.movenext
Wend
End If
rs.Close
Set rs = Nothing
End Function
Function IndexNews(SortPath, ArticleNum)
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "Select Top " & ArticleNum & " * From Qianbo_News Where ViewFlag And Instr(SortPath,'" & SortPath & "') > 0 Order By ID Desc"
rs.Open sql, conn, 1, 1
If Not rs.EOF Then
Do While Not rs.EOF
If ISHTML = 1 Then
AutoLink = "" & NewName & Separated & rs("ID") & "." & HTMLName & ""
Else
AutoLink = "NewsView.Asp?ID=" & rs("ID") & ""
End If
Response.Write"