<% Set fso=Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then response.Redirect "install.asp" End If set fso=Nothing 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 %> <% =SiteTitleCh %>

产品目录

    <%Folder(0)%>

联系我们

<%=myname%>

公司简介

<%=SiteDetail_home%>

产品展示

    <%=Products("0,",2,10)%>

企业新闻

" class="more">
    <%=News_hot("0,2")%>

产品知识

" class="more">
    <%=News_hot("0,3")%>
<% function sortlinks(mdb,ID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_"&mdb&"Sort where ID="&ID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID,Classseo from Qianbo_"&mdb&"Sort Where ParentID=0").eof then response.write "
"& Languagech7 &"
" end if do while not rs.eof If ISHTML = 1 Then AutoLink = ""&rs("Classseo")&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = ""&mdb&"List.asp?SortID="&rs("ID")&"" End If response.write ""&AutoLink&"" rs.movenext loop rs.close set rs=nothing end function function autolinks(id) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Navigation where id="&id&" order by Sequence asc" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write ""&Languagech7&"" else Do If ISHTML = 1 Then response.write " "&rs("HtmlNavUrl")&"" Else response.write " "&rs("NavUrl")&"" End If rs.movenext loop until rs.eof end if rs.close set rs=nothing end Function Function new_Products(SortPath,trs,tds) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlagch and CommendFlag order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlagCh order by id desc" sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlagch and NewFlag order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write ""& Languagech7 &"" else Response.Write ""&VbCrLf for tr=1 to trs Response.Write " "&VbCrLf for td=1 to tds if StrLen(rs("ProductNameCh"))<=15 then ProductName=rs("ProductNameCh") else ProductName=StrLeft(rs("ProductNameCh"),15) end If If ISHTML = 1 Then AutoLink = "Product-"&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("id")&"" End If SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) Response.Write "
  • "&VbCrLf Response.Write "

    "&ProductName&"

    "&VbCrLf 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 end if rs.close set rs=nothing End Function Function Products(SortPath,trs,tds) dim rs,sql,tr,td,ProductName,SmallPicPath set rs = server.createobject("adodb.recordset") sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlagch and CommendFlag order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlagCh order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc" rs.open sql,conn,1,1 if rs.eof then response.write ""& Languagech7 &"" else Response.Write ""&VbCrLf for tr=1 to trs Response.Write " "&VbCrLf for td=1 to tds if StrLen(rs("ProductNameCh"))<=30 then ProductName=rs("ProductNameCh") else ProductName=StrLeft(rs("ProductNameCh"),30) end If If ISHTML = 1 Then AutoLink = "Product-"&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("id")&"" End If SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive")) Response.Write " "&VbCrLf Response.Write "
  • "&VbCrLf Response.Write "

    "&ProductName&"

    "&VbCrLf 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 end if rs.close set rs=nothing End Function Function SelPlay(strUrl,strWidth,StrHeight) Dim Exts,isExt If strUrl <> "" Then isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1)) Else isExt = "" End If Exts = "mp3,avi,wmv,asf,mov,rm,ra,ram,rmvb,swf" If Instr(Exts,isExt) = 0 Then Response.write "
    "&Languagech32&"
    " Else Select Case isExt Case "mp3","avi","wmv","asf","mov" Response.write "" Case "mov","rm","ra","ram","rmvb" 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 Case "swf" 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 ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf Response.Write ""&VbCrLf End Select End If 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 "
    "& Languagech7 &"
    " exit function elseif conn.execute("select * from "&DataFrom&" Where ViewFlagCh and ID="&ID).eof then response.write "
    "& Languagech7 &"
    " exit function else SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlagCh and ID="&ID)("SortPath") conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID) end if sql="select * from "&DataFrom&" Where not(ViewFlagCh) 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 ViewFlagCh 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 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 top 6 * 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 else response.write "" exit function end if Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "" & 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 (" ") Else if(page>1) then response.write (" ") End If Else if(page>1) then response.write ("") 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 (" ") Else if(pagenmin>1) then response.write (" ") End If Else if(pagenmin>1) then response.write (" ") End If if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write ("") Else If ISHTML = 1 Then If ID = "" Then response.write ("") Else response.write ("") End If Else response.write ("") 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