<%call SiteInfo%> 留言反馈 - <% =SiteTitle %> <% ViewSiteInfoo() %> <% 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()%>
栏目导航
    <%call WebMenu()%>
 
留言主题: *
留言内容: *
称呼: *
性别: /> 先生 /> 女士 *
公司(单位):
联系地址:
邮政编码:
联系电话:
传真号码:
手机号码:
电子信箱:
提交确认: <%=SecretFlag%>
验证码: *
<% function WebMenu() response.write "
  •       签写留言
  • " response.write "
  •       所有留言
  • " end function function WebLocation() WebLocation="||  您的当前位置:首页 - 留言反馈 - 签写留言"&VbCrLf end Function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from test_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 %>