change localhost to your sql server machine name:
<%
sConn = "Provider=SQLOLEDB;Database=库名;Server=服务器名;UID=用户名如sa;PWD=密码;"
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