change localhost to your sql server machine name:
<%
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
%>see more connection strings at
http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN