做一个SQL查询显示页面，应该怎么做？

[wlboy110]

想做一个测试页面，在输入栏写进去SQL语句，在页面内动态的查询出相应的记录并显示在页面内，能实现这样的dbgrid吗？
不知道数据列应该怎么去动态的确定？

[dh20156]

MARK一下先.

[kinogam]

ASP没有DATAGRID....只能通过提交,之后接受返回值....用request("xxxx")来接收....
之后赋值给一个变量
在通过这个变量来搜索............
比如
a=request("xxxx")
adors.open "select * from table where xxxx='"&a&"'"
这样来改变显示的值....

[comstep]

sql=request("sql")
set rs=server.cresteobject("adodb.recordset")
rs.open sql,conn,1,1


sql为文本筐输入的sql语句

[dh20156]

参考：
<% dsn = "Driver=SQL Server;Server=localhost;UID=sa;PWD=??????;Database=Northwind"
Set conn = Server.CreateObject("Adodb.Connection")
conn.Open dsn %>

<% sql ="SELECT * FROM Shippers"
Set rs = Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
If Not rs.eof then
fc = rs.fields.count-1
for i = 0 to fc
colname = colname + "<td>" + rs.fields(i).name + "</td>"
next
rc = rs.recordcount-1

Redim rsa(rc,fc)

dim n
n=0
do while not rs.eof
for m = 0 to fc
rsa(n,m) = rs.fields(m)
next
rs.MoveNext
n = n + 1
loop

end if
rs.close
Set rs = Nothing %>

<table border="1">
<tr><%=colname%></tr>
<%
for l = 0 to ubound(rsa)
response.write "<tr>"
for p = 0 to fc
response.write "<td>"
response.write rsa(l,p)
response.write "</td>"
next
response.write "</tr>" + chr(10)
next
%>
</table>

<% conn.close
Set conn = Nothing %>

其他模仿DATAGRID就自己去搞了！