<%call SiteInfo%> <%= Languagech180 %> - <% =SiteTitleCh %> <% dim Products dim mMemID,mRealName,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail if session("MemName")<>"" and session("MemLogin")="Succeed" then call MemInfo() else mSex=Languagech91 mMemID=0 end if %>

产品列表

    <%Folder(0)%>
产品订购
<% call ProductList() %>
<%= Languagech181 %>: *
<%= Languagech182 %>:
<%= Languagech183 %>: *
<%= Languagech90 %>: /> <%= Languagech91 %> /> <%= Languagech92 %> *
<%= Languagech99 %>: *
<%= Languagech100 %>: *
<%= Languagech34 %>: *
<%= Languagech27 %>: *
<%= Languagech35 %>:
<%= Languagech26 %>:
<%= Languagech101 %>: *
<%= Languagech107 %>: *
 
<% Function Products2(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"))<=18 then ProductName=rs("ProductNameCh") else ProductName=StrLeft(rs("ProductNameCh"),16) end If If ISHTML = 1 Then AutoLink = ""&rs("ClassSeo")&""&Separated&""&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 "

"&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 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 Sequence" rs.open sql,conn,1,1 if id=0 and rs.recordcount=0 then response.write ("
暂无产品分类
") response.end end if i=1 response.write("") while not rs.eof ChildCount=conn.execute("select count(*) from Qianbo_ProductSort where ParentID="&rs("id"))(0) If ISHTML = 1 Then AutoLink = ""&rs("ClassSeo")&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("id")&"" End If if ChildCount=0 then if i=rs.recordcount then FolderType="SortFileEnd" else FolderType="SortFile" end if FolderName=rs("SortNameCh") 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("SortNameCh") end If datafrom="Qianbo_ProductSort" response.write("") response.write("
  • "&FolderName&"") response.write("
  • ") if ChildCount>0 then %> <% end if rs.movenext i=i+1 wend response.write("") rs.close set rs=nothing end Function function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_ProductSort where ViewFlagCh and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Qianbo_ProductSort Where ViewFlagCh and ParentID=0").eof then response.write "
    "& Languagech7 &"
    " 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("SortNameCh")&"
  • " i=i+1 if i"&Languagech20&" >> "&Languagech226&" >> "&Languagech180&""&VbCrLf end Function function NoList() if request("UpdateOrder")=Languagech185 then Session("NoList")="" end if dim ProductNo,NoArray,i if trim(request("ProductNo"))<>"" then ProductNo=trim(request("ProductNo"))&"," if session("NoList")="" and trim(request("ProductNo"))="" then NoList="" exit function end if if instr(ProductNo,",")>0 then NoArray=split(ProductNo, ",") for i = 0 to ubound(NoArray) if not instr(session("NoList"),NoArray(i)&",")>0 then session("NoList")=session("NoList")&NoArray(i)&"," next end if for i = 0 to ubound(split(session("NoList"), ",")) NoList=NoList&"'"&trim(split(session("NoList"),",")(i))&"'," next NoList=left(NoList,len(NoList)-4) end Function function ProductList() Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf if Nolist()="" then Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Products where ProductNo in ("&NoList()&") order by id" rs.open sql,conn,1,1 while not rs.eof If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.asp?ID="&rs("ID")&"" End If Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Products=Products&rs("ProductNameCh")&" "&Languagech56&":"&rs("ProductNo")&"
    " rs.movenext wend Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf rs.close set rs=nothing end if Response.Write " "&VbCrLf Response.Write "
    "&Languagech186&":
    "&Languagech186&"
    "&rs("ProductNameCh")&" ["&rs("ProductNo")&"]
    "&VbCrLf end function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "
    "& Languagech7 &"
    " else mMemID=rs("ID") if not rs("RealName")="" then mRealName=rs("RealName") else mRealName=rs("MemName") end if mSex=rs("Sex") mCompany=rs("Company") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mFax=rs("Fax") mMobile=rs("Mobile") mEmail=rs("Email") end if rs.close set rs=nothing end sub %>