连接sql数据库.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 15 行

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={SQL Server};uid=test;pwd=test888;server=QQ;database=test"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from table1"
rs.Open sql,Conn,1,1
while not rs.eof
	Response.Write(rs("username"))
	rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>