UC知道关于asp 输出程序报错的问题
来源：百度知道 编辑：UC知道 时间：2024/05/26 05:12:53
未结束的字符串常量
/aaaaaaaaaaaaaaa.asp, line 14, column 48
rs.open "select id from liv where id1=1,conn,1,3
-----------------------------------------------^
这个错在哪里了 该怎么改？
源代码
<%
dim db
const DatabaseType="ACCESS"
db= "C:\Documents and Settings\li\My Documents\db1.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select id from liv where id1=1,conn,1,3
response.Write &id
%>
/aaaaaaaaaaaaaaa.asp, line 14, column 48
rs.open "select id from liv where id1=1,conn,1,3
-----------------------------------------------^
这个错在哪里了 该怎么改？
源代码
<%
dim db
const DatabaseType="ACCESS"
db= "C:\Documents and Settings\li\My Documents\db1.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select id from liv where id1=1,conn,1,3
response.Write &id
%>
1.sql语句少了双引号,这样写可读性不强,可以写成这样
sql="select * from liv where id1=1"
rs.open sql,conn,1,1
2.加上判断再循环输出
do while not rs.eof
response.write rs("id")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
3.还有,数据库目录可以使用相对目录,这样不会因为文件目录的迁移而发生错误