宗申z one:Microsoft VBScript 编译器错误 错误 '800a03f6'

来源：百度文库 编辑：高校问答 时间：2024/05/04 16:56:33
错误提示：

sutdent数据表中的数据 姓名 性别 入学日期
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/cafe_townsend/111.asp，行26

源代码如下：
<%@language=VBScript%>
<html>
<head>
<title>
asp与sql server 2000 数据库连接实例
</title>
</head>

<body>
<center>
sutdent数据表中的数据
<table border=1>
<tr>
<td>姓名</td>
<td>性别</td>
<td>入学日期</td>
</tr>
<%
dim strsql
dim conn,studentrs
dim strconn

set conn=server.createobject("ADODB.connection")
set studentrs=server.createobject("ADODB.recordset")

conn.open "dsn=student;uid=aspbook;pwd=aspbook"
studentrs.open "select * from students",conn

do while not studentrs.eof
response.write"<tr>"
response.write"<td>"&studentrs.fields("name")&"</td>"
response.write"<td>"&studentrs.fields("sex")&"</td>"
response.write"<td>"&studentrs.fields("birthday")&"</td>"
response.write"<td>"&studentrs.fields("enterdate")&"</td>"
response.write"</tr>"

studentrs.movenxt
loop

response.write"</table>"

studentrs.close
set studentrs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
以下两位的指点我都试过了，还是不行，并且我已经设置了ODBC数据源，且测试通过的，请大家帮帮忙啊？

一点儿小改动,试试:
<%
dim strsql
dim conn,studentrs
dim strconn

set conn=server.createobject("ADODB.connection")
set studentrs=server.createobject("ADODB.recordset")

conn.open "dsn=student;uid=aspbook;pwd=aspbook"
studentrs.open "select * from students",conn,1,3

do while not studentrs.eof
response.write"<tr>"
response.write"<td>"&studentrs.fields("name")&"</td>"
response.write"<td>"&studentrs.fields("sex")&"</td>"
response.write"<td>"&studentrs.fields("birthday")&"</td>"
response.write"<td>"&studentrs.fields("enterdate")&"</td>"
response.write"</tr>"

studentrs.movenext
loop

问题出在：
“conn.open "dsn=student;uid=aspbook;pwd=aspbook" ”
报错说得很清楚，你没有在系统中设置数据源，或者设置不对，怎么设置？ 控制面板->管理工具->数据源 (ODBC)->ODBC数据源管理器->再不会在网上查更详细的资料吧

建议用下面的方式连接数据库：
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=127.0.0.1;database=student;uid=aspbook;pwd=aspbook"
Conn.Open
其中，server=127.0.0.1是指定你的数据库名或所在的IP地址，如果是本机数据库就是127.0.0.1，database=student是指定所要连接的数据库名，student就是你的sql数据库名

如有问题，欢迎与我交流

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)