请问如何让查询的内容显示在本页里?
Response.Write("<table border='1'>")
Response.Write("<tr>")
For Each oField In oRs.Fields
Resonse.Write("<td>" & oField.name & "</td>")
Next
Response.Write("</tr>")
While(Not oRs.Eof)
Response.Write("<tr>")
For Each oField In oRs.Fields
Resonse.Write("<td>" & oField.value & "</td>")
Next
Response.Write("</tr>")
oRs.MoveNext
Wend
Response.Write("</table>")
<%
dim conn
dim connstr
' on error resume next
connstr="DBQ="+server.mappath("news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql=request.form("execsql")
Rs.Open sql,Conn
%>
------------------------------------------------------------------