ado.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 26 行

<% 
set conn=server.createobject("adodb.connection")
conn.open "Provider=SQLOLEDB.1;Data Source=xhxy.;User ID=sa;Password=;Initial Catalog=xhdlxy"

s="select sfzh,xm from jbxxb"
set rs=conn.execute(s)
%>
<table border=2>
<tr bgcolor=#0000ff>
<%
for i=0 to rs.fields.count-1
response.write "<td>"&rs(i).name&"</td>"
next
%>
</tr>
<%rs.movefirst
while not rs.eof
row="<tr>"
for i=0 to rs.fields.count-1
row=row&"<td>"&rs(i)&"</td>"
next
response.write row&"</tr>"
'exit do
rs.movenext
wend
%>