<% Call SiteInfo() Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail mSex = "先生" mMemID = 0 SecretFlag = "" SeoTitle = "留言反馈" %> <% =SeoTitle %> - <% =SiteTitle %>
  1. 首页
  2. <%=SeoTitle%>

您的位置

<%=SeoTitle%>

留言主题：
留言内容：
您的称呼：
您的性别： /> 先生 /> 女士
公司名称：
联系地址：
邮政编码：
联系电话：
传真号码：
手机号码：
电子信箱：
验 证 码：
 
<% Function WebMenu() Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_About Where ViewFlag And Not ChildFlag Order By Sequence Asc" rs.Open sql, conn, 1, 1 If Not rs.EOF Then Do If ISHTML = 1 Then AutoLink = "" & AboutNameDiy & Separated & rs("ID") & "." & HTMLName & "" Else AutoLink = "About.Asp?ID=" & rs("ID") & "" End If If ID = rs("ID") Then tmpCss = " current-menu-item" Else tmpCss = "" End If Response.Write "
  • " & rs("AboutName") & "
    • " rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing End Function %>