%
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 CompanyCMS_About Where ViewFlag and ID="&request.QueryString("ID")).eof then
SeoTitle="参数错误"
else
set rs = server.createobject("adodb.recordset")
sql="select * from CompanyCMS_About where ViewFlag and ID="&request.QueryString("ID")
rs.open sql,conn,1,1
SeoTitle=rs("AboutName")
rs.close
set rs=nothing
end if
%>
<%
function WebMenu()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from CompanyCMS_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")&" "
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 CompanyCMS_About where ViewFlag and not ChildFlag order by Sequence asc"
else
sql="select * from CompanyCMS_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
%>