<%
dim a,b,c
set a=server.createobject("adodb.connection")
a.open"driver={ sql server};server=gg;uid=ss;pwd=12331233;database=student"
b="select * from xsjk"
set c=server.createobject("adodb.recordset")
c.open b,a
response.write c("user")&"<br>"%>
dim a,b,c
set a=server.createobject("adodb.connection")
a.open"driver={ sql server};server=gg;uid=ss;pwd=12331233;database=student"
b="select * from xsjk"
set c=server.createobject("adodb.recordset")
c.open b,a
response.write c("user")&"<br>"%>
<%
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=19791010;"
set conn = Server.CreateObject("ADODB.Connection")
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
%>see more connection strings at
http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN