<% 
  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>"%>

解决方案 »

  1.   

    change localhost to your sql server machine name:
    <%
    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