Location: Home> Products
Title
Related explanation: *
Contact person: *
Gender: /> Male /> Female
Unit name:
Detailed address:
Postal code:
Contact telephone number:
Fax number:
Mobile phone number:
Electronic mail: *
Verification code: *
 
<% Function WebLocation() WebLocation = " - Products" If request.QueryString("SortID") = "" Then WebLocation = WebLocation ElseIf Not IsNumeric(request.QueryString("SortID")) Then WebLocation = WebLocation&"Error" ElseIf conn.Execute("select * from Qianbo_ProductSort Where ViewFlag=1 and ID="&request.QueryString("SortID")).EOF Then WebLocation = WebLocation&"Error" Else Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_ProductSort where ViewFlag=1 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=1 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 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=1 and ID="&ID).EOF Then response.Write "
暂无相关信息
" Exit Function Else SortPath = conn.Execute("select * from "&DataFrom&" Where ViewFlag=1 and ID="&ID)("SortPath") conn.Execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) End If sql = "select * from "&DataFrom&" Where ViewFlag=0 and CHARINDEX(SortPath,'"&SortPath&"')>0" rs.Open sql, conn, 1, 1 While Not rs.EOF HideSort = "and CHARINDEX(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=1 and CHARINDEX(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 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"))<= 22 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 20) 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 " "&vbCrLf Response.Write "
"&ProductName&"
日期:"&FormatDate(rs("Addtime"), 13)&"  
"&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 %>