Question

请教ASP与SQL链接程序

<%
dim rs
dim sql
dim Conn
Set Conn = server.CreateObject("ADODB.Connection")
dim ConnStr="provider=SQLOLEDB.1;server=127.0.0.1;UID=sa;PWD=111111;Database=tire"
Conn.Open ConnStr
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from chanpin1"
rs.Open sql,Conn,1,1
if rs.EOF or rs.BOF then
Response.Write("<hr>数据库中暂无资料！"
Else
do while not rs.EOF or rs.BOF
%>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
请问我的链接程序怎么错了，显示错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/asp+server/index.asp, line 31, column 11
dim ConnStr="provider=SQLOLEDB.1;server=127.0.0.1;UID=sa;PWD=111111;Database=tire"谢谢！！帮帮小弟
Response.Write("<hr>数据库中暂无资料！")加上还是这样！ 改过后，出现：[Microsoft][ODBC SQL Server Driver][SQL Server]用户 'sa' 登录失败。高人指点下啊

Answer 1

可能你连接SQL数据库的代码写得不对吧，我用下面的代码连接SQL数据库，肯定成功的，你改动试下：
ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=11111"
set conn=server.createobject("adodb.connection")
conn.open ConnStr
-------------
另外，do while not rs.EOF or rs.BOF 你这种写法是不是不正确呀，查询记录的结果，指针肯定要么在记录头部前一行，要么在记录尾部后一行，如果针指一开始就处于BOF的位置，那你后面再跟一个MOVENEXT操作，那程序就会出错。

Answer 2

这个问题倒没遇到过。。

dim ConnStr="provider=SQLOLEDB.1;server=127.0.0.1;UID=sa;PWD=111111;Database=tire"
改成

dim ConnStr
ConnStr="provider=SQLOLEDB.1;server=127.0.0.1;UID=sa;PWD=111111;Database=tire"
后呢？

Answer 3

下面两种连接方式，试下看，怎么都觉的连接有问题
Str = "Provider = SqlOledb; User ID = sa; Password = 111111; Initial Catalog = tire; Data Source =(local);"

str="Driver={SQLServer};Server=127.0.0.1;UID=sa;PWD=111111;database=tire"

Answer 4

恩 楼上的两位朋友说得是！！