%title=Trim(request("title"))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select content from aboutus where title='"&title&"'"
rs.open sql,conn,1,3
%>
江阴科尔华工贸有限公司
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select title from aboutus order by aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>