<% 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 ID=request.QueryString("ID") if ID <> "" or IsNumeric(ID) then set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Products where ViewFlag=1 and ID="&ID rs.open sql,conn,1,3 If rs("SeoKeywords") <> "" Then SeoKeywords=rs("SeoKeywords") Else SeoKeywords=rs("ProductName") End If If rs("SeoDescription") <> "" Then SeoDescription=rs("SeoDescription") Else SeoDescription=rs("ProductName") End If if rs("producttitle")<>"" then SeoTitle=rs("Producttitle") else seotitle=rs("productname") seokey=rs("productname") seotitle=seotitle+"价格-"+seotitle+"图片-"+seotitle+"参数-"+seotitle+"生产厂家" end if End If rs.close set rs=nothing %> <% =SeoTitle %>
<%=Folder(0)%>

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

您可能会感兴趣的文章

    <% call ShowCorrelative2(5,28) %> <% call ShowCorrelative4(5,28) %>
      <% ID=request.QueryString("ID") if ID="" or not IsNumeric(ID) then response.write "
      暂无相关信息
      " elseif conn.execute("select * from Qianbo_Products Where ViewFlag=1 and ID="&ID).eof then response.write "
      暂无相关信息
      " else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Products where ViewFlag=1 and ID="&ID rs.open sql,conn,1,3 OtherPic=rs("OtherPic") If Not(IsNull(OtherPic)) Then OtherPic=split(OtherPic,"*") End If Response.Write "
    • "&rs("ProductName")&"

    • "&VbCrLf End If %>
      24小时服务热线:<%=mobile%>
    • 产品名称:<%=rs("ProductName")%>
    • 整车型号:<%=rs("ProductNo")%>
    • 底盘型号:<%=rs("ProductModel")%>
    • 产品价格:<%=rs("N_Price")%>
    • 点击次数:<%Response.Write " "&VbCrLf %>
    • | 更多
    • 24小时专线:<%=mobile%>
    • 图文传真:<%=Fax%>
      1. 在线客服
        加入收藏
    <% Response.Write " "&VbCrLf %>
    车型参数
    功能介绍
    保修售后
    产品图片
    相关车型
    <%Response.Write ""&ProcessSitelink(rs("Content"))&""&VbCrLf%> 本文网址: <% AutoLink ="http://www.jndf.net/"+""&ProName&""&Separated&""&ID&"."&HTMLName&"" %> <%=AutoLink%> <%=rs("Key2")%>
    <%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 = "ProductList.asp?SortID="&rs("ID")&"" End If ' response.write(" ") response.write(""&FolderName&""&VbCrLf) ' 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 %> <% '================================================= '过程名:ShowCorrelative '作 用:显示相关文章 '参 数:ArticleNum ----最多显示多少篇文章 ' TitleLen ----标题最多字符数,一个汉字=两个英文字符 '================================================= sub ShowCorrelative(ArticleNum,TitleLen) dim rs,sql,rs2,sql2 dim strKey,arrKey,i,ArticleID,id2,sortid dim ProductName,ProductName3,SmallPicPath,BigPic ArticleID=request.QueryString("ID") sql2="select * from Qianbo_Products where ID=" & ArticleID & "" Set rs2= Server.CreateObject("ADODB.Recordset") rs2.open sql2,conn,1,3 if ArticleNum>0 and ArticleNum<=100 then sql="select top " & ArticleNum else sql="Select Top 5 " end if strKey=mid(rs2("Key2"),2,len(rs2("Key2"))-2) id2=rs2("sortid") if instr(strkey,"|")>1 then arrKey=split(strKey,"|") strKey="((Key2 like '%|" & arrKey(0) & "|%')" for i=1 to ubound(arrKey) strKey=strKey & " or (Key2 like '%|" & arrKey(i) & "|%')" next strKey=strKey & ")" else strKey="(Key2 like '%|" & strKey & "|%')" end if ' sql=sql & " A.ID,A.GroupID,A.SmallPic,A.Exclusive,A.ProductName,A.maker,A.UpdateTime,A.ClickNumber,L.SortName From Qianbo_Products A inner join Qianbo_ProductSort L on L.ID=A.SortID Where A.viewflag=True and" & strKey & " Order by A.ID desc" sql=sql & " * From Qianbo_Products Where sortid="&id2&" and viewflag=1 and "&strKey&" Order by ID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if TitleLen<0 or TitleLen>255 then TiteLen=50 if rs.bof and rs.Eof then response.write "没有相关文章" else do while not rs.eof if StrLen(rs("ProductName"))<=TitleLen then ProductName=rs("ProductName") ProductName3=rs("ProductName") else ProductName3=rs("ProductName") ProductName=StrLeft(rs("ProductName"),TitleLen) 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 "

  • " response.write ""&ProductName& "
  • " ' response.write "
    " rs.movenext loop end if rs.close set rs=nothing end sub %> <% '================================================= '过程名:ShowCorrelative '作 用:显示相关文章 '参 数:ArticleNum ----最多显示多少篇文章 ' TitleLen ----标题最多字符数,一个汉字=两个英文字符 '================================================= sub ShowCorrelative2(ArticleNum,TitleLen) dim rs,sql,rs2,sql2 dim strKey,arrKey,i,ArticleID,id2,sortid dim ProductName,ProductName3,SmallPicPath,BigPic ArticleID=request.QueryString("ID") sql2="select * from Qianbo_Products where ID=" & ArticleID & "" Set rs2= Server.CreateObject("ADODB.Recordset") rs2.open sql2,conn,1,3 if ArticleNum>0 and ArticleNum<=100 then sql="select top " & ArticleNum else sql="Select Top 5 " end if strKey=mid(rs2("Key2"),2,len(rs2("Key2"))-2) id2=rs2("sortid") if instr(strkey,"|")>1 then arrKey=split(strKey,"|") strKey="((Key2 like '%|" & arrKey(0) & "|%')" for i=1 to ubound(arrKey) strKey=strKey & " or (Key2 like '%|" & arrKey(i) & "|%')" next strKey=strKey & ")" else strKey="(Key2 like '%|" & strKey & "|%')" end if ' sql=sql & " A.ID,A.GroupID,A.SmallPic,A.Exclusive,A.ProductName,A.maker,A.UpdateTime,A.ClickNumber,L.SortName From Qianbo_Products A inner join Qianbo_ProductSort L on L.ID=A.SortID Where A.viewflag=True and" & strKey & " Order by A.ID desc" sql=sql & " * From Qianbo_News Where viewflag=1 and "&strKey&" Order by ID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if TitleLen<0 or TitleLen>255 then TiteLen=50 if rs.bof and rs.Eof then ' response.write "没有相关文章" response.write "" else do while not rs.eof if StrLen(rs("NewsName"))<=TitleLen then ProductName=rs("NewsName") ProductName3=rs("NewsName") else ProductName3=rs("NewsName") ProductName=StrLeft(rs("NewsName"),TitleLen) end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("ID")&"" End If response.write "
  • "&ProductName& "
  • " rs.movenext loop end if rs.close set rs=nothing end sub %> <% '================================================= '过程名:ShowCorrelative '作 用:显示相关技术文章 '参 数:ArticleNum ----最多显示多少篇文章 ' TitleLen ----标题最多字符数,一个汉字=两个英文字符 '================================================= sub ShowCorrelative4(ArticleNum,TitleLen) dim rs,sql,rs2,sql2 dim strKey,arrKey,i,ArticleID,id2,sortid dim ProductName,ProductName3,SmallPicPath,BigPic ArticleID=request.QueryString("ID") sql2="select * from Qianbo_Products where ID=" & ArticleID & "" Set rs2= Server.CreateObject("ADODB.Recordset") rs2.open sql2,conn,1,3 if ArticleNum>0 and ArticleNum<=100 then sql="select top " & ArticleNum else sql="Select Top 5 " end if if rs2("Key2")="" then strKey="|东风|" else strKey=mid(rs2("Key2"),2,len(rs2("Key2"))-2) end if id2=rs2("sortid") if instr(strkey,"|")>1 then arrKey=split(strKey,"|") strKey="((Key2 like '%|" & arrKey(0) & "|%')" for i=1 to ubound(arrKey) strKey=strKey & " or (Key2 like '%|" & arrKey(i) & "|%')" next strKey=strKey & ")" else strKey="(Key2 like '%|" & strKey & "|%')" end if ' sql=sql & " A.ID,A.GroupID,A.SmallPic,A.Exclusive,A.ProductName,A.maker,A.UpdateTime,A.ClickNumber,L.SortName From Qianbo_Products A inner join Qianbo_ProductSort L on L.ID=A.SortID Where A.viewflag=True and" & strKey & " Order by A.ID desc" sql=sql & " * From Qianbo_Others Where viewflag=1 and "&strKey&" Order by ID desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if TitleLen<0 or TitleLen>255 then TiteLen=50 if rs.bof and rs.Eof then ' response.write "没有相关文章" response.write "" else do while not rs.eof if StrLen(rs("OthersName"))<=TitleLen then ProductName=rs("OthersName") ProductName3=rs("OthersName") else ProductName3=rs("OthersName") ProductName=StrLeft(rs("OthersName"),TitleLen) end If If ISHTML = 1 Then AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "OtherView.asp?ID="&rs("ID")&"" End If response.write "
  • "&ProductName& "
  • " rs.movenext loop end if rs.close set rs=nothing end sub %>