<%Call SiteInfo()%> 订购产品 - <% =SiteTitle %> <% 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 %>
产品分类
<%Folder(0)%>
订购列表 <%=WebLocation()%>
<% call ProductList() %>
标题: *
相关说明:
联系人: *
性别: /> 先生 /> 女士 *
单位名称: *
详细地址: *
邮政编码: *
联系电话: *
传真号码:
手机号码:
电子信箱: *
验证码: *
 
<% Function Folder(id) Dim rs, sql, i, ChildCount, FolderType, FolderName, onMouseUp, ListType Set rs = server.CreateObject("adodb.recordset") sql = "Select * From Shenbi_ProductSort where ParentID="&id&" order by id" 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 Shenbi_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 = "Shenbi_ProductSort" If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If response.Write(" ") if id=0 then response.Write(" ") else response.Write(" ") end if response.Write(" ") If ChildCount>0 Then %> " style="display:yes"> <% End If rs.movenext i = i + 1 Wend response.Write("

"&FolderName&"

"&FolderName&"
<% Folder(rs("id")) %>
") rs.Close Set rs = Nothing End Function Function WebLocation() WebLocation = " 当前位置:首页 - 公司产品 - 订单"&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 Shenbi_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 Shenbi_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 %>