%@ Language=VBScript%> <% Response.Buffer=false '集团简介 Response.Expires=0 %> <% set cn=Server.CreateObject("ADODB.Connection") cn.Open mycnstr set rs=server.CreateObject("ADODB.Recordset") menu="12111111" id=Request.QueryString ("id") flag=Request.QueryString ("flag") pageno=Request.QueryString ("pageno") if id="" then id=0 else id=cint(id) end if if flag="" then flag=0 else flag=cint(flag) end if if id=0 then sqltext="select top 1 id from danwei where enable=1 and pid=1 order by pl" rs.Open sqltext,cn,1,1 if not rs.EOF then id=rs("id") end if rs.Close end if if id<>0 then sqltext="select name,body from danwei where enable=1 and id="&id rs.Open sqltext,cn,1,1 if not rs.EOF then title=trim(rs("name")) content=checkstr(rs("body")) end if rs.Close end if if flag=1 then title="诚正文化" end if %>