<% 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 = "公司产品" hang = 3 lei = 5 kuan = 170 id = "ProductList.Asp" 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("Title") keywords = rs("keywords") Descriptions = rs("descriptions") hang = rs("hang") lei = rs("lei") kuan = rs("kuan") gao = rs("gao") content = rs("content") id = "ProductList.Asp?SortID="&rs("ID")&"" rs.Close Set rs = Nothing End If %> <% =SeoTitle %> - <% =SiteTitle %>
<%=WebLocation()%>
<%=WebContent("Qianbo_ProductSort",request.QueryString("SortID"),"")%>
<%=content%>
<% 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 N_Price 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 rs("url")="" then If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If else AutoLink = rs("url") end if response.Write ""&rs("SortName")&"" 'i=i+1 'if i"&rs("SortName")&"" 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 = hang*lei 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, cpxs Response.Write "
"&vbCrLf For tr = 1 To hang Response.Write " "&vbCrLf If rs.EOF Then Exit For Next Response.Write "
"&vbCrLf Else response.Write "
暂无相关信息
" Exit Function End If Response.Write "
"&vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If page - (pagenc * 2 + 1)<= 0 Then pageprevious = page - 1 Else pageprevious = page - 1 End If If ISHTML = 1 Then If ID = "" Then If(page>1) Then response.Write ("上一页 ") Else If(page>1) Then response.Write ("上一页 ") End If Else If(page>1) Then response.Write ("上一页 ") End If If ISHTML = 1 Then If ID = "" Then If(pagenmin>1) Then response.Write ("1 ") Else If(pagenmin>1) Then response.Write ("1") End If Else If(pagenmin>1) Then response.Write ("1...") 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 = page+1 Else pagenext = page+1 End If If ISHTML = 1 Then If ID = "" Then If(pagenmax..."&pagec&"") If(page下一页 ") Else If(pagenmax..."&pagec&"") If(page下一页 ") End If Else If(pagenmax..."&pagec&"") If(page下一页 ") End If Response.Write "
"&vbCrLf Response.Write "
产品"&idcount&""&page&"/"&pagec&"页
跳转GO
" & vbCrLf %> <% rs.Close Set rs = Nothing End Function Function WebContent1(DataFrom, ID, SortPath) Dim rs, sql Dim HideSort Set rs = server.CreateObject("adodb.recordset") If ID = "" Then SortPath = "0," ElseIf conn.Execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID).EOF Then 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 pages = ProInfo Dim page page = CLng(request("Page")) datafrom = "Qianbo_Products" Dim datawhere datawhere = "where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " " Dim sqlid Dim Myself, PATH_INFO, 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 N_Price,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 rs.movenext if page = 0 Then Response.Write "" else Response.Write "第"&page&"页 - " end if end function %>