<%
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=19791010;"
set conn = Server.CreateObject("ADODB.Nonnection")
conn.Open sConn
set rs = conn.Execute("select * from [l1000]")
do until rs.EOF
for i=0 to rs.fields.count - 1
Response.Write rs.fields(i).name & "=" & rs.fields(i).value & "<BR>"
next
rs.moveNext
loop
rs.close
conn.close
set conn=nothing
%>http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=19791010;"
set conn = Server.CreateObject("ADODB.Nonnection")
conn.Open sConn
set rs = conn.Execute("select * from [l1000]")
do until rs.EOF
for i=0 to rs.fields.count - 1
Response.Write rs.fields(i).name & "=" & rs.fields(i).value & "<BR>"
next
rs.moveNext
loop
rs.close
conn.close
set conn=nothing
%>http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN
<sessionState
mode="InProc"
stateConnectionString="tcpip=127.0.0.1:42424"
sqlConnectionString="data source=127.0.0.1;user id=sa;password="
cookieless="false"
timeout="20"
/>
<%
iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")iRe.close
set iRe=Nothing
%>