<%call SiteInfo%> <%= Languagech134 %> - <% =SiteTitleCh %> <% 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=Languagech91 mMemID=0 SecretFlag=""&Languagech135&"" end if %>

栏目导航

    <%=WebMenu()%>

<%=WebLocation()%>

尊敬的客户,非常感谢您对我们工作的支持。
为了让我们更好的为您服务,请提出您宝贵的意见和建议。
我们将尽快对您的意见和建议作出回复。谢谢………

<%= Languagech136 %>: *
<%= Languagech137 %>: *
<%= Languagech138 %>: *
<%= Languagech90 %>: /> <%= Languagech91 %> /> <%= Languagech92 %> *
<%= Languagech21 %>: *
<%= Languagech127 %>: *
<%= Languagech34 %>: *
<%= Languagech27 %>: *
<%= Languagech35 %>: *
<%= Languagech26 %>: *
<%= Languagech101 %>: *
<%= Languagech107 %>: *
 
<% function WebMenu() response.write "
  • 我要留言
  • " response.write "
  • "&Languagech133&"
  • " response.write "" end function function WebLocation() WebLocation=" "&Languagech19&":"&Languagech20&" >> "&Languagech134&" >> "&Languagech132&""&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 "
    "&Languagech16&"
    " 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 %>