订购产品 - <% =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
%>
<%=WebLocation()%>
<%
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
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
%>