半岛之恋相亲会:我的这些代码那儿出错了呢(asp)

来源:百度文库 编辑:中科新闻网 时间:2024/05/04 06:55:39
<%
dim conn
dim sql
dim rs
set con=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver(*.mdb)}";
dbq="&server.mappath("student.mdb")"
set rs=server.CreateObject("adodb.recordset")
sql="select *from t_student"
rs.open sql.conn.1.1
do while not rs.eof
response.Write"</br>"
for i=0 to rs.fields.count-1
response.Write rs.fields(i).volue
next
response.write"</br>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

修改后的代码:
<%
dim conn
dim sql
dim rs
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver(*.mdb)}; dbq="&server.mappath("student.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select * from t_student"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"</br>"
for i=0 to rs.fields.count-1
response.Write rs.fields(i).value
next
response.write "</br>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


set con=server.CreateObject("adodb.connection")
改为
set conn=server.CreateObject("adodb.connection")


rs.open sql.conn.1.1
改为
rs.open sql,conn,1,1


response.Write rs.fields(i).volue
改为
response.Write rs.fields(i).value

修改后的代码就是楼下兄所写的(请参考楼下兄代码)

set con=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver(*.mdb)}";

第一行是: con
第二行是:conn

第一行少一个“n”啊