<% =SeoTitle %> - <% =SiteTitle %>

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

<%=WebMenu(0,0,2)%>

<% Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 3 If rs.EOF Then %> <% Else If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then %> <% Else %> <% End If rs.update End If rs.Close Set rs = Nothing %>

	<%=WebLocation()%>

<%=WebContent("Qianbo_ProductSort",request.QueryString("SortID"),"")%>

<% Function Folder(id) Dim rs, sql, i, ChildCount, FolderType, FolderName, onMouseUp, ListType 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 i = 1 response.Write("") While Not rs.EOF ChildCount = conn.Execute("select count(*) from Qianbo_ProductSort where ParentID="&rs("id"))(0) If ChildCount = 0 Then If i = rs.recordcount Then FolderType = "SortFileEnd" Else FolderType = "SortFile" End If FolderName = rs("SortName") onMouseUp = "" Else If i = rs.recordcount Then FolderType = "SortEndFolderClose" ListType = "SortEndListline" onMouseUp = "EndSortChange('a"&rs("id")&"','b"&rs("id")&"');" Else FolderType = "SortFolderClose" ListType = "SortListline" onMouseUp = "SortChange('a"&rs("id")&"','b"&rs("id")&"');" End If FolderName = rs("SortName") End If datafrom = "Qianbo_ProductSort" If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If response.Write("") response.Write("") If ChildCount>0 Then %> " style="display:yes"> <% End If rs.movenext i = i + 1 Wend response.Write("

	"&FolderName&"
	<% Folder(rs("id")) %>

") rs.Close Set rs = Nothing End Function Function WebMenu(ParentID, i, level) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.Open sql, conn, 1, 1 If conn.Execute("select ID from Qianbo_ProductSort Where ViewFlag and ParentID=0").EOF Then response.Write "暂无相关信息" End If Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If response.Write ""&rs("SortName")&"" 'i=i+1 'if i首页 - 公司产品"&vbCrLf 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 If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - "&rs("SortName")&"" End If rs.Close Set rs = Nothing End Function Function ChildSort() ' dim ParentID ' ParentID=request.QueryString("SortID") ' if ParentID="" or (not isnumeric(ParentID)) then exit function ' dim rs,sql ' set rs = server.createobject("adodb.recordset") ' sql="select * from Qianbo_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID desc" ' rs.open sql,conn,1,1 ' if rs.bof and rs.eof then ' exit function ' else ' while not rs.eof ' If ISHTML = 1 Then ' AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" ' Else ' AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" ' End If ' response.write ""&rs("SortName")&" | " ' rs.movenext ' wend ' end if ' rs.close ' set rs=nothing End Function Function WebContent(DataFrom, ID, SortPath) Dim rs, sql Dim HideSort Set rs = server.CreateObject("adodb.recordset") If ID = "" Then SortPath = "0," ElseIf Not IsNumeric(ID) Then response.Write "暂无相关信息" Exit Function ElseIf conn.Execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID).EOF Then response.Write "暂无相关信息" Exit Function Else SortPath = conn.Execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID)("SortPath") conn.Execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) End If sql = "select * from "&DataFrom&" Where not(ViewFlag) and Instr(SortPath,'"&SortPath&"')>0" rs.Open sql, conn, 1, 1 While Not rs.EOF HideSort = "and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort rs.movenext Wend rs.Close Dim idCount Dim pages pages = ProInfo Dim pagec Dim page page = CLng(request("Page")) Dim pagenc pagenc = 4 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext datafrom = "Qianbo_Products" Dim datawhere datawhere = "where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " " Dim sqlid Dim Myself, PATH_INFO, QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' If QUERY_STRING = "" Then Myself = PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then Myself = PATH_INFO & "?" & QUERY_STRING & "&" Else Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1) End If Dim taxis '按后台排序，下面的是按ID排序 taxis = "order by id asc " 'taxis = "order by id desc " Dim i sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 idCount = rs("idCount") If(idcount>0) Then If(idcount Mod pages = 0)Then pagec = Int(idcount / pages) Else pagec = Int(idcount / pages) + 1 End If sql = "select id from ["& datafrom &"] " & datawhere & taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 1, 1 rs.pagesize = pages If page < 1 Then page = 1 If page > pagec Then page = pagec If pagec > 0 Then rs.absolutepage = page For i = 1 To rs.pagesize If rs.EOF Then Exit For If(i = 1)Then sqlid = rs("id") Else sqlid = sqlid &","&rs("id") End If rs.movenext Next End If If(idcount>0 And sqlid<>"") Then sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 Dim tr, td Dim ProductName, SmallPicPath, Content Response.Write ""&vbCrLf For tr = 1 To 3 Response.Write " "&vbCrLf For td = 1 To 3 If StrLen(rs("ProductName"))<= 42 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 40) End If If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.Asp?ID="&rs("ID")&"" End If SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive")) Response.Write " "&vbCrLf rs.movenext If rs.EOF Then Exit For Next Response.Write " "&vbCrLf If rs.EOF Then Exit For Next Response.Write "

"&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "

"&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "

"&ProductName&"

"&vbCrLf Else response.Write "暂无相关信息" Exit Function End If Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "

"&vbCrLf Response.Write "共"&idcount&"个产品页次："&page&"/"&pagec&" 每页："&pages&"个产品" & vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If ISHTML = 1 Then If ID = "" Then If(page>1) Then response.Write ("9 ") Else If(page>1) Then response.Write ("9 ") End If Else If(page>1) Then response.Write ("9 ") End If If page - (pagenc * 2 + 1)<= 0 Then pageprevious = 1 Else pageprevious = page - (pagenc * 2 + 1) End If If ISHTML = 1 Then If ID = "" Then If(pagenmin>1) Then response.Write ("3 ") Else If(pagenmin>1) Then response.Write ("3 ") End If Else If(pagenmin>1) Then response.Write ("3 ") End If If(pagenmax>pagec) Then pagenmax = pagec For i = pagenmin To pagenmax If(i = page) Then response.Write (" "& i &" ") Else If ISHTML = 1 Then If ID = "" Then response.Write ("["& i &"]") Else response.Write ("["& i &"]") End If Else response.Write ("["& i &"]") End If End If Next If page+(pagenc * 2 + 1)>= pagec Then pagenext = pagec Else pagenext = page+(pagenc * 2 + 1) End If If ISHTML = 1 Then If ID = "" Then If(pagenmax: ") If(page:") Else If(pagenmax: ") If(page:") End If Else If(pagenmax: ") If(page:") End If Response.Write "

"&vbCrLf rs.Close Set rs = Nothing End Function %>