7-01.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 10 行

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("driver={SQL Server};database=pubs;"&_
	"server=localhost;uid=sa;pwd=")
set rs = Conn.Execute("SELECT * FROM Titles")
For i = 0 to rs.Fields.Count - 1
	Response.Write(rs(i).Name + "<br>")
Next
%>