在ASP中用ADO连接SQLSERVER

[Alern]

可以执行单纯的ASP脚码，可是访问数据库时就出错了
脚码如下：user pwd 都是对的
<%
dim conn
dim connstr
on error resume next
set conn=server.createobject("ADODB.CONNECTION")
conn.open "Driver={SQL Server};server=(local);UID=sa;PWD=;database=his"


%>
<%

dim rs
ls_Userid=request.form("Userid")
ls_PassWd=request.form("PassWd")
ls_sql = "select * from hs_czyml where gh='" & ls_Userid & "'"

set rs=server.CreateObject("ADODB.RecordSet")
rs.open ls_sql,conn,1
if ls_PassWd<>rs("kl") then
session("logon")="N"
session("information")="对不起,用户ID或密码错误，请返回重新输入!<a href='javascript:history.back()'>返回</a>"
else
session("gh")=ls_userid
session("Username")=RS("xm")
session.Timeout = 20 '用户登录有效时间
session("Logon")="Y"
end if
session("gh")=ls_userid
rs.close
conn.close
set rs = nothing
set conn=nothing
if session("Logon")="Y" then
response.redirect "default.asp"
else
response.redirect "pub_result.asp"
end if
%>

[ybjhyr]

conn.open "Provider=sqloledb.1;Data Source=localhost;Initial Catalog=his;User Id=sa;Password=; "

[wesheng]

set conn=server.createobject("ADODB.Connection")
ConnStr="DRIVER=SQL Server;SERVER=;DATABASE=data;User Id=sa;PASSWORD=;"
conn.open ConnStr