<%Call SiteInfo()%> 留言反馈 - <% =SiteTitle %> <% 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 %>
圣鑫苗木基地 <%=WebLocation()%>
 
留言主题: *
留言内容: *
称呼: *
性别: /> 先生 /> 女士 *
公司名称: *
联系地址: *
邮政编码: *
联系电话: *
传真号码: *
手机号码: *
电子信箱: *
验证码: *
 
<% Function WebMenu() Dim rs, sql, ml Set rs = server.CreateObject("adodb.recordset") sql = "select ID,AboutName,ml 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 = "../"&rs("ml")&"" 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 %>