<% Call SiteInfo If request.QueryString("SortID") = "" Then SeoTitle = "产品信息" ElseIf Not IsNumeric(request.QueryString("SortID")) Then SeoTitle = "参数错误" ElseIf conn.Execute("select * from Qianbo_ProductSort Where ViewFlag and ID="&request.QueryString("SortID")).EOF Then SeoTitle = "参数错误" Else id = request.QueryString("SortID") Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_ProductSort where ViewFlag and ID="&request.QueryString("SortID") rs.Open sql, conn, 1, 1 SeoTitle = rs("SortName") rs.Close Set rs = Nothing End If %> <% =SeoTitle %> - <% =SiteTitle %>
首页<%=WebLocation()%>
<% =SeoTitle %>
<%=WebContent(id)%>
<% Function WebContentimg(SortPath) Set rsa = server.CreateObject("adodb.recordset") sql = "Select top 1 SmallPic From Qianbo_Products where ViewFlag and SortPath = '"&SortPath&"' and SmallPic <>'' order by id desc" rsa.Open sql, conn, 1, 1 If Not rsa.EOF Then response.Write "" else response.Write "" End If rsa.Close Set rsa = Nothing End Function Function WebContent(id) Set rs = server.CreateObject("adodb.recordset") sql = "Select * From Qianbo_ProductSort where ParentID="&id&" order by id" rs.Open sql, conn, 1, 1 If id = 0 And rs.recordcount = 0 Then response.Write ("
暂无产品分类
") Exit Function End If response.Write "
" response.Write "
" inti = 0 Do While Not rs.EOF inti = inti + 1 AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" response.Write "
" response.Write "" response.Write "
" response.Write "" response.Write " " response.Write " " response.Write "
" response.Write " "&WebContentimg(rs("SortPath"))&"" response.Write "
" if inti mod 2 = 0 then response.Write "
" response.Write "
" response.Write "
" response.Write "
" end if rs.movenext Loop response.Write "
" response.Write "
" rs.Close Set rs = Nothing End Function Function WebLocation() WebLocation = " - 代理品牌" If request.QueryString("SortID") = "" Then WebLocation = WebLocation ElseIf Not IsNumeric(request.QueryString("SortID")) Then WebLocation = WebLocation&"参数错误" ElseIf conn.Execute("select * from Qianbo_ProductSort Where ViewFlag and ID="&request.QueryString("SortID")).EOF Then WebLocation = WebLocation&"参数错误" Else Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_ProductSort where ViewFlag and ID="&request.QueryString("SortID") rs.Open sql, conn, 1, 1 WebLocation = WebLocation&SortPathTXT("Qianbo_ProductSort", rs("ID")) rs.Close Set rs = Nothing End If End Function Function SortPathTXT(DataFrom, ID) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "Select * From "&DataFrom&" where ViewFlag and ID="&ID rs.Open sql, conn, 1, 1 If Not rs.EOF Then AutoLink = "ProductListstyle.Asp?SortID="&rs("ID")&"" SortPathTXT ="- "&rs("SortName")&"" End If rs.Close Set rs = Nothing End Function %>