<%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
%>
<%=WebMenu(0,0,2)%>
<%=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
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
%>
<%=WebLocation()%>