<%call SiteInfo%> 山东利玛机电设备有限公司 - 88必发娱乐游戏&必发bf88官网&必发88 <% 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="先生" mMemID=0 end if %>
  模块导航
 
<%=WebLocation()%>
 
<% call ProductList() %>
标题: *
相关说明:
联系人: *
性别: /> 先生 /> 女士 *
单位名称/: *
详细地址: *
邮政编码: *
联系电话: *
传真号码:
手机号码:
电子信箱: *
验证码: *
 
 
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.open sql,conn,1,1 if conn.execute("select ID from Qianbo_ProductSort Where ViewFlag 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")&"" i=i+1 if i首页 - 公司产品 - 订单"&VbCrLf end Function function NoList() if request("UpdateOrder")="更新选择" 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("ProductName")&" 产品编号:"&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 "
您选购的产品如下:
未选择任何产品
"&rs("ProductName")&" ["&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 "
暂无相关信息
" 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 %>