求这段asp代码的问题（连接access）
<%setxs1=server.createobject("ADODB.Connection")p1="Provider=Microsoft.Jet.OLEDB.4.0;...
<%
set xs1=server.createobject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
path1="Data Source="& Server.MapPath("图书馆.mdb")
xs1.open p1 &Path1
set xs2=Server.CreateObject("ADODB.RecordSet")
xs2.open "图书",xs1,2,2
从这里strSQL1="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1111','南征北战','顾刚','顾刚出版社')"
strSQL2="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1101','北征南战','刚顾','刚顾出版社')"
xs2.Execute(strSQL1)
xs2.Execute(strSQL2)到这里是加上的
%>
<HTML><br><center>所有记录</center>
<body>
<table border=1 align=center><tr>
<%
response.write "<TH>序号</TH>"
for i=0 to xs2.fields.count-1
response.write "<TH>" & xs2(i).name & "</TH>"
next
%> </tr>
<%
n=1
xs2.movefirst
while not xs2.eof
if n mod 2 =0 then
row="<tr >"
else
row="<tr bgcolor=#00ff00>"
end if
row=row & "<TD>" & n & "</td>"
for i=0 to xs2.fields.count-1
row=row& "<td>" & xs2(i) & "</td>"
next
response.write row & "</tr>"
xs2.movenext
n=n+1
wend
xs1.close
%>
</table></center>
</body></html>
图书馆是一个mdb文件，有“图书一个表，分成编号书名作者出版社四栏。
去除加上的部分运行正常，不去除则出现各种错误，调试iis只能改变错误类型。
源文件我发不了，可以问我要 展开
set xs1=server.createobject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
path1="Data Source="& Server.MapPath("图书馆.mdb")
xs1.open p1 &Path1
set xs2=Server.CreateObject("ADODB.RecordSet")
xs2.open "图书",xs1,2,2
从这里strSQL1="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1111','南征北战','顾刚','顾刚出版社')"
strSQL2="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1101','北征南战','刚顾','刚顾出版社')"
xs2.Execute(strSQL1)
xs2.Execute(strSQL2)到这里是加上的
%>
<HTML><br><center>所有记录</center>
<body>
<table border=1 align=center><tr>
<%
response.write "<TH>序号</TH>"
for i=0 to xs2.fields.count-1
response.write "<TH>" & xs2(i).name & "</TH>"
next
%> </tr>
<%
n=1
xs2.movefirst
while not xs2.eof
if n mod 2 =0 then
row="<tr >"
else
row="<tr bgcolor=#00ff00>"
end if
row=row & "<TD>" & n & "</td>"
for i=0 to xs2.fields.count-1
row=row& "<td>" & xs2(i) & "</td>"
next
response.write row & "</tr>"
xs2.movenext
n=n+1
wend
xs1.close
%>
</table></center>
</body></html>
图书馆是一个mdb文件，有“图书一个表，分成编号书名作者出版社四栏。
去除加上的部分运行正常，不去除则出现各种错误，调试iis只能改变错误类型。
源文件我发不了，可以问我要 展开
4个回答
展开全部
楼主想问什么 真的不明
追问
这段代码运行出错
追答
图书馆.mdb 数据库里面又没有 图书 (编号, 书名,作者,出版社 这个相关的收据
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你把错误提示放出来还好！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你想问啥？
追问
这段代码运行出错
追答
错误是什么？哪一行错误？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%
set xs1=server.createobject("ADODB.Connection")
p1="Provider=Microsoft.Jet.OLEDB.4.0;"
path1="Data Source="& Server.MapPath("图书馆.mdb")
xs1.open p1 &Path1
strSQL1="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1111','南征北战','顾刚','顾刚出版社')"
strSQL2="INSERT INTO 图书 (编号, 书名,作者,出版社) VALUES ('1101','北征南战','刚顾','刚顾出版社')"
xs1.Execute(strSQL1)
xs1.Execute(strSQL2)
set xs2=Server.CreateObject("ADODB.RecordSet")
xs2.open "图书",xs1,1,1
%>
<HTML><br><center>所有记录</center>
<body>
<table border=1 align=center><tr>
<%
response.write "<TH>序号</TH>"
for i=0 to xs2.fields.count-1
response.write "<TH>" & xs2(i).name & "</TH>"
next
%> </tr>
<%
n=1
xs2.movefirst
while not xs2.eof
if n mod 2 =0 then
row="<tr >"
else
row="<tr bgcolor=#00ff00>"
end if
row=row & "<TD>" & n & "</td>"
for i=0 to xs2.fields.count-1
row=row& "<td>" & xs2(i) & "</td>"
next
response.write row & "</tr>"
xs2.movenext
n=n+1
wend
xs1.close
%>
</table></center>
</body></html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
