<% 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=1 and ID="&request.QueryString("SortID")).eof then SeoTitle="参数错误" else 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 SeoTitle=rs("SortName") SeoKeywords=rs("SeoKeywords") SeoDescriptions=rs("SeoDescriptions") rs.close set rs=nothing end if %> <% =SeoTitle %>-<% =SeoTitle %>价格-<% =SeoTitle %>图片-<% =SeoTitle %>产品参数-<% =SeoTitle %>生产厂家
<%=Folder(0)%>

  • 销售经理:<%=lxr%>
    联系手机:<%=mobile%>
    联系电话:<%=Telephone%>
    图文传真:<%=Fax%>
    客 服 QQ:<%=sygg%>
    客 服MSN:MSN在线咨询

  • 按列表排序方式
  • 按橱窗排序方式
  • <%=WebLocation()%>系列共有 <%dim id2 id2=CInt(request.QueryString("SortID")) datawhere2="where ViewFlag=1 and SortID="&id2 if id2="" or id2=0 then sql2="select count(*) as idCount2 from Qianbo_Products " else sql2="select count(*) as idCount2 from Qianbo_Products " &datawhere2 end if set rs2=server.createobject("adodb.recordset") rs2.open sql2,conn,0,1 idCount2=rs2("idCount2") response.write ""&idcount2&"" rs2.close set rs2=nothing %> 条产品
<%if request.QueryString("SortID")="" then%> 湖北东风专用特种汽车制造有限公司被评为“守合同重信用”企业、银行“AAA”信用企业、高新技术企业;通过了ISO9001质量认证、CCC认证,并积极推行TS16949、IS014000等认证体系。 <%else%> <%=WebLocation()%>:<%=Websm()%> <% end if%>
<%=WebContent("Qianbo_ProductSort",request.QueryString("SortID"),"")%>
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_ProductSort where ViewFlag=1 and ParentID="&ParentID&" order by sort asc by SortID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Qianbo_ProductSort Where ViewFlag=1 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")&""&VbCrLf 'i=i+1 'if i首页 - 公司产品"&VbCrLf if request.QueryString("SortID")="" then ' WebLocation=WebLocation WebLocation="公司产品" elseif not IsNumeric(request.QueryString("SortID")) then WebLocation=WebLocation&"参数错误" elseif conn.execute("select * from Qianbo_ProductSort Where ViewFlag=1 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=1 and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 ' WebLocation=WebLocation&SortPathTXT("Qianbo_ProductSort",rs("ID")) WebLocation=SortPathTXT("Qianbo_ProductSort",rs("ID")) rs.close set rs=nothing end if end Function function Websm() if request.QueryString("SortID")="" then Websm="湖北东风专用特种汽车制造有限公司被评为“守合同重信用”企业、银行“AAA”信用企业、高新技术企业;通过了ISO9001质量认证、CCC认证,并积极推行TS16949、IS014000等认证体系。" elseif not IsNumeric(request.QueryString("SortID")) then Websm="参数错误" elseif conn.execute("select * from Qianbo_ProductSort Where ViewFlag=1 and ID="&request.QueryString("SortID")).eof then Websm="参数错误" 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 websm=rs("sm") 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")&"" SortPathTXT=" "&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=1 and ParentID="&ParentID&" order by sort 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=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 not(ViewFlag=1) and CHARINDEX('"&SortPath&"',SortPath)>0" rs.open sql,conn,1,1 while not rs.eof HideSort="and not(CHARINDEX('"&SortPath&"',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=10 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 sort 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,BigPic,Content ' Response.Write ""&VbCrLf for tr=1 to 4 ' Response.Write " "&VbCrLf for td=1 to 2 if StrLen(rs("ProductName"))<=36 then ProductName=rs("ProductName") else ProductName=StrLeft(rs("ProductName"),32) 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")) SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive")) ' 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&"
底盘型号:"&rs("ProductModel")&"  
"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write "

 

 

 

 


                                   

"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write ""&VbCrLf ' Response.Write "
"&ProductName&"详细参数>>

底盘型号: "&rs("ProductModel")&"  

"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write "
"&VbCrLf ' Response.Write ""&VbCrLf ' Response.Write "
"&ProductName&"详细参数>>

底盘型号: "&rs("ProductModel")&"     " ' attribute1=rs("attribute1") ' attribute1_value=rs("attribute1_value") ' if attribute1 <> "" and attribute1_value <> "" then ' attribute1_1=Split(attribute1,"§§§") ' attribute1_value_1=Split(attribute1_value,"§§§") ' for i=0 to ubound(attribute1_value_1) ' Response.Write " "&attribute1_1(i)&""&attribute1_value_1(i)&"" ' Next ' End If ' response.write "

"&VbCrLf ' Response.Write "
" ' Response.Write "
" ' response.write "
" ' Response.Write "详细参数>>" ' Response.Write "
  • "&ProductName&"
  • " ' attribute1=rs("attribute1") ' attribute1_value=rs("attribute1_value") ' if attribute1 <> "" and attribute1_value <> "" then ' attribute1_1=Split(attribute1,"§§§") ' attribute1_value_1=Split(attribute1_value,"§§§") ' for i=0 to ubound(attribute1_value_1) ' Response.Write " "&attribute1_1(i)&""&attribute1_value_1(i)&"" ' Next ' End If ' response.write "
  • 底盘型号:"&rs("ProductModel")&"
  • " ' response.write "
    "&VbCrLf response.write "
    " response.write "" response.write "" response.write "

    "&rs("ProductName")&"

    " response.write "
    "&StrLeft(filtscript(rs("Content")),240)&"
    " response.write "

    [详细信息..]

    " rs.movenext if rs.eof then exit for next ' Response.Write " "&VbCrLf if rs.eof then exit for next ' Response.Write ""&VbCrLf else response.write "
    暂无相关信息
    " exit function end if Response.Write "
    "&VbCrLf Response.Write "共有"&idcount&"条 每页"&pages&"条 当前第"&page&"/"&pagec&"页" & vbCrLf IF ISHTML=1 then If ID = "" Then response.write ("首页 ") if page<>1 then response.write (" 上一页") else response.write (" 上一页") end if if pagec=page then response.write (" 下一页") else response.write (" 下一页") end if response.write (" 尾页
    ") Else response.write ("首页 ") if page<>1 then response.write (" 上一页") else response.write (" 上一页 ") end if if pagec=page then response.write (" 下一页") else response.write (" 下一页") end if response.write (" 尾页
    ") End If else if page<=1 then Response.Write "  首页 上一页" & vbCrLf response.write " 下一页"& vbCrLf response.write "尾页
    "& vbCrLf else Response.Write "首页" & vbCrLf if page=pagec then response.write " 上一页"& vbCrLf response.write " 下一页"& vbCrLf else response.write " 上一页"& vbCrLf response.write " 下一页"& vbCrLf end if response.write "尾页
    "& vbCrLf end if end if 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 %> <%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 sort" 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 = "ProductListB.asp?SortID="&rs("ID")&"" End If ' response.write(" ") response.write(""&FolderName&"") ' response.write(" ") if ChildCount>0 then response.write("
    ") %> <% Folder(rs("id")) response.write("
    ") %> <% end if rs.movenext i=i+1 wend ' response.write("
    ") rs.close set rs=nothing end Function Function filtscript(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp strOutput=strHTML objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<[^>]*>" strOutput = objRegExp.Replace(strOutput, "") objRegExp.Pattern = "<\/[^>]*>" strOutput = objRegExp.Replace(strOutput, "") strOutput = replace(strOutput, "javascript:", "javascript :") filtscript = strOutput Set objRegExp = Nothing End Function %>