<% 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 Qianbo_About Where ViewFlag and ID="&request.QueryString("ID")).EOF Then SeoTitle = "参数错误" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_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 %>|十堰/重庆/成都/西安/洛阳/武汉/金凤化工|金凤油漆|金凤实业 咨询电话: 0719-6481264
<% Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 3 If rs.EOF Then %> <% Else If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then %> <% Else %> <% End If rs.update End If rs.Close Set rs = Nothing %>
<%=WebLocation()%>
 
暂无相关信息
<%=rs("AboutName")%>
 
更新时间:<%=FormatDate(rs("UpdateTime"),13)%>     浏览次数:
 
<%=rs("Content")%>
 
<% Function WebMenu() Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select ID,AboutName from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "
暂无相关信息
" Else Do If ISHTML = 1 Then AutoLink = ""&AboutNameDiy&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "about.asp?id="&rs("ID")&"" End If response.Write ""&rs("AboutName")&""&vbCrLf rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing End Function Function WebLocation() WebLocation = " 当前位置:首页 - 关于金凤 - "&vbCrLf Dim rs, sql Set rs = server.CreateObject("adodb.recordset") If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then sql = "select top 1 * from Qianbo_About where ViewFlag and not ChildFlag order by Sequence asc" Else sql = "select * from Qianbo_About where ViewFlag and ID="&request.QueryString("ID") End If rs.Open sql, conn, 1, 1 If rs.EOF Then WebLocation = WebLocation&"参数错误" Else WebLocation = WebLocation&""&rs("AboutName")&"" End If rs.Close Set rs = Nothing End Function %>