<%
id=request.QueryString("id")
if not IsNumeric(id) then
response.Redirect("index.asp")
else
if id="" then
set AboutRsSet=conn.execute("select top 1 * from AboutUs order by Px desc, ID asc")
else
set aboutRsSet=conn.execute("select * from aboutus where id="&id)
end if
if aboutRsSet.bof and aboutRsSet.eof then
response.Redirect("index.asp")
else
%>
<% set SEORs=Conn.execute("select * from SEO where ID=1") %>
<%= AboutRsSet("Title") %>-<%=SEORs("Title")%>
" name="description">
" name="keywords">
">
"><% SEORs.close
set SEORs=nothing %>
<% If FuDongQQ=1 Then %>
<% End If %>
关于我们
<%
set Ars=server.CreateObject("adodb.recordset")
Asql="select * from Aboutus order by Px desc, ID asc"
Ars.open Asql,conn,1,2
for j=1 to Ars.recordcount
if Ars.eof then exit FOR
%>
class="on"<% End If %>>" title="<%= Ars("Title") %>"><%= Ars("Title") %>
<%
Ars.movenext
if Ars.eof then exit FOR
next
Ars.close
set Ars=nothing
%>
