<% 'Title=request.QueryString("Title") ID=replace(Trim(request.QueryString("ID")),"'","") Set rs = Server.CreateObject("ADODB.Recordset") if ID="" or not IsNumeric(ID) then sql="select top 1 * from okuoo_xiyi" else sql="select * from okuoo_xiyi where ID="&ID end if rs.open sql,conn,1,3 HeadTitle=rs("Title") Content=rs("Content") if HeadTitle<>"" then SiteTitleAll= HeadTitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>
<% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select * from okuoo_xiyi where Title<>'联系我们' order by Aboutusorder" rslist.open sql,conn,1,3 do while not rslist.eof %>
" class="left_link"><%= rslist("Title") %>
<%rslist.movenext loop%>
 
<%=HeadTitle%> 当前位置:首页 >> 关于我们 > <%=HeadTitle%>
<%=Content%>
<%rs.close set rs=nothing rslist.close set rslist=nothing %>