<%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 %>

<%=WebLocation()%>

尊敬的客户:
   如果您对本公司的产品有需求意向或有兴趣的话,可以通过填写“网上订购”栏里 的表格。将您的信息反馈给我们,我们会第一时间跟您联络给您一个及时满意的处理结 果!谢谢!

<% call ProductList() %>
<%= Languagech181 %>: *
<%= Languagech182 %>:
<%= Languagech183 %>: *
<%= Languagech90 %>: /> <%= Languagech91 %> /> <%= Languagech92 %> *
<%= Languagech99 %>: *
<%= Languagech100 %>: *
<%= Languagech34 %>: *
<%= Languagech27 %>: *
<%= Languagech35 %>:
<%= Languagech26 %>:
<%= Languagech101 %>: *
<%= Languagech107 %>: *
 








<% 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 %>