<%Call SiteInfo()%> 国产精品成人精品久久久,成 人 免费 黄 色 网站无毒下载,成人无码av " /> " /> <% Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail If session("MemName")<>"" And session("MemLogin") = "Succeed" Then Call MemInfo() Else mSex = "先生" mMemID = 0 SecretFlag = "會員功能，請先注冊會員。" 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() Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select ID,AboutName from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "
暫無相關信息
" Else Do If ISHTML = 1 Then AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "About.Asp?ID="&rs("ID")&"" End If response.Write ""&rs("AboutName")&""&vbCrLf rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing 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.EOF Then response.Write "
參數錯誤
" Else mMemID = rs("ID") If Not rs("RealName") = "" Then mLinkman = rs("RealName") Else mLinkman = 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") SecretFlag = "" End If rs.Close Set rs = Nothing End Sub %> 主站蜘蛛池模板： 黑河市| 蒙自县| 宁蒗| 惠州市| 都昌县| 乌拉特后旗| 雅安市| 卢湾区| 惠水县| 长泰县| 雷波县| 绥江县| 称多县| 邢台县| 山西省| 象州县| 韶关市| 西畴县| 海口市| 南岸区| 江北区| 德保县| 蒙自县| 东兰县| 宁德市| 宁国市| 宣城市| 舒兰市| 繁峙县| 广西| 屏东市| 中阳县| 高雄县| 泾源县| 麻江县| 北海市| 那坡县| 九台市| 综艺| 兰坪| 诸城市|