<% Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If SeoTitle = "联系我们" %> <% =SeoTitle %> - <% =SiteTitle %>
  1. 首页
  2. <%=SeoTitle%>

您的位置

<%=SeoTitle%>

公司名称：<%=ComName%>

公司地址：<%=Address%>

联系电话：<%=Telephone%>

主营业务：

<% 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 %>