<%Call SiteInfo()%> 久久精品国产亚洲夜色AV网站,伊人久久大香线蕉av色婷婷色,60岁老年熟妇在线无码 " /> " /> <% 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 %>
 
<% Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 3 If rs.EOF Then %> <% Else If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then %> <% Else %> <% End If rs.update End If rs.Close Set rs = Nothing %>
<%=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")&""&vbCrLf 'i=i+1 'if i沒有選中的產品" ElseIf conn.Execute("select * from Qianbo_Products Where ViewFlag and ID="&ID).EOF Then response.Write "
沒有選中的產
" Else Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_Products where ViewFlag and ID="&ID rs.Open sql, conn, 1, 3 Response.Write ""&rs("ProductName")&""&vbCrLf End If If Request("page") = "" Then pageNum = 0 Else pageNum = Request("page") End If End Function Function WebLocation() WebLocation = " 當前位置：首頁 - 公司產品 - 訂單"&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 %> 主站蜘蛛池模板： 宣城市| 宁河县| 丰镇市| 台北县| 和龙市| 仁化县| 库尔勒市| 海兴县| 阿巴嘎旗| 清河县| 阳原县| 抚宁县| 岳西县| 邢台县| 北碚区| 尼勒克县| 曲沃县| 诸城市| 岚皋县| 淄博市| 海南省| 文水县| 双牌县| 永德县| 郴州市| 南丹县| 荣昌县| 靖边县| 德化县| 石林| 囊谦县| 松桃| 东乡| 余干县| 德昌县| 普兰县| 武安市| 自贡市| 灌南县| 个旧市| 寿宁县|