<%Title=Trim(request("Title")) Set rs = Server.CreateObject("ADODB.Recordset") sql="select Content from Aboutus where Title='"&Title&"'" rs.open sql,conn,1,3 %>

用户登陆 <% call ShowUserLogin() %> <% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select Title from Aboutus where Language='1' order by Aboutusorder" rslist.open sql,conn,1,3 do while not rslist.eof %> <%rslist.movenext loop%>       公司简介 "><%=rslist("Title")%> 公司文化

<% If IsFlash1="Yes" Then %> <% Else %> <% end If%> <%=Title%>         <%=rs("Content")%>

<%rs.close set rs=nothing rslist.close set rslist=nothing %>