<% 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 If request.QueryString("ID") = "" Then SeoTitle = "联系我们" ElseIf Not IsNumeric(request.QueryString("ID")) Then SeoTitle = "参数错误" ElseIf conn.Execute("select * from About Where ViewFlag and ID="&request.QueryString("ID")).EOF Then SeoTitle = "参数错误" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from About where ViewFlag and ID="&request.QueryString("ID") rs.Open sql, conn, 1, 1 SeoTitle = rs("AboutName") rs.Close Set rs = Nothing End If %> <% =SeoTitle %> - <% =SiteTitle %>

<%=SeoTitle%>

<%=SiteTitle%>
<%=ComName%>
地址:<%=Address%>
邮编:<%=ZipCode%>
电话:<%=Telephone%> 传真号码:<%=Fax%>