<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=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 %>
服务咨询
<% =WebMenu()%>  
信息搜索
<%=SearchForm()%>
首页在线留言签写留言
     
 
<%if session("MemName")<>"" then%> <%end if %>
主  题:  *
留言内容:  *
留 言 人:  *
性  别: >先生 >女士
单位名称:
地  址:
邮  编:  
电  话:
传  真:
移动电话:
电子邮箱:  *
悄 悄 话: <%=SecretFlag%>
   
 
<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"
查看留言
签写留言
我的留言
" end function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_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 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 %>