asp 添加ACCESS 查询 请帮忙检查代码~谢谢
<%'查询结果.asp程序ConstHead="查询结果"MyPath=SERVER.MapPath("huayu.mdb")SetMyConn=Server.Creat...
<% '查询结果.asp程序
Const Head="查询结果"
MyPath = SERVER.MapPath("huayu.mdb")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyPath
Set MyRS=Server.CreateObject("ADODB.RecordSet")
Sql="select * from 花语"
MyRS.open SQL,MyConn,1,1
Mynub=request.form("txtN")
MyVal=request.form("txtVal")
if mynub=1 then
MySQL="select * from 花语 where name='"&MyVal&"'"
title="按花名查询的结果"
end if
'set MyRS1=Myconn.execute(MYSQL)
'建立查询集MyRS1
Set MyComm=Server.CreateObject("ADODB.Command")
Set Mycomm.ActiveConnection=MyConn
MyComm.CommandText=MySQL
set MyRS1=MyComm.Execute
%>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY BACKGROUND="029.jpg">
<center><H2><font color=red><font face="华文中宋"><%=Title%></font></H2>
<%if MyRS1.eof then%>
<%response.write "没有要查的资料..."%>
<%else%>
<table><tr>
<td>花名</td>
<td>花语</td>
<% While Not MyRS.EOF %>
<tr>
<td><%=MyRS("花名")%></td>=
<td><%=MyRS("花语")%></td></tr><br>
<%MyRS1.MoveNext %>
<%Wend %>
</table>
<%end if
set MyRS1=nothing
%>
</BODY>
<!--#Include file="花卉世界1.asp"-->
一直无法显示~
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/huA/花卉/070602434/查询结果1.asp, 第 26 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /huA/花卉/070602434/查询结果1.asp
时间：
2007年12月9日, 下午 12:07:56
详细信息：
Microsoft 支持
谢谢啊，我改来改去还是不行，请再帮帮忙～
第26行
<%if MyRS1.eof then%>
<%response.write "没有要查的资料..."%>
<%else%> 展开
Const Head="查询结果"
MyPath = SERVER.MapPath("huayu.mdb")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & MyPath
Set MyRS=Server.CreateObject("ADODB.RecordSet")
Sql="select * from 花语"
MyRS.open SQL,MyConn,1,1
Mynub=request.form("txtN")
MyVal=request.form("txtVal")
if mynub=1 then
MySQL="select * from 花语 where name='"&MyVal&"'"
title="按花名查询的结果"
end if
'set MyRS1=Myconn.execute(MYSQL)
'建立查询集MyRS1
Set MyComm=Server.CreateObject("ADODB.Command")
Set Mycomm.ActiveConnection=MyConn
MyComm.CommandText=MySQL
set MyRS1=MyComm.Execute
%>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY BACKGROUND="029.jpg">
<center><H2><font color=red><font face="华文中宋"><%=Title%></font></H2>
<%if MyRS1.eof then%>
<%response.write "没有要查的资料..."%>
<%else%>
<table><tr>
<td>花名</td>
<td>花语</td>
<% While Not MyRS.EOF %>
<tr>
<td><%=MyRS("花名")%></td>=
<td><%=MyRS("花语")%></td></tr><br>
<%MyRS1.MoveNext %>
<%Wend %>
</table>
<%end if
set MyRS1=nothing
%>
</BODY>
<!--#Include file="花卉世界1.asp"-->
一直无法显示~
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/huA/花卉/070602434/查询结果1.asp, 第 26 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /huA/花卉/070602434/查询结果1.asp
时间：
2007年12月9日, 下午 12:07:56
详细信息：
Microsoft 支持
谢谢啊，我改来改去还是不行，请再帮帮忙～
第26行
<%if MyRS1.eof then%>
<%response.write "没有要查的资料..."%>
<%else%> 展开
3个回答
展开全部
其实问题很简单,我教你一个方法,以后在出现问题时你就不用病急乱投药了:)
一般情况下,ASP出现错误时,都会出现错误提示,如果没出现,请去除 on error resume next 代码或在internet选项的高戚缺虚级选项框中的 [显示友好HTTP错误信息] 勾勾去掉,就可以显示错误信息了.
现在跟据你的代码已经能看到错误提示了,问题很明显摆在眼前:
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/huA/花卉/070602434/查询结果1.asp, 第 26 行
缺少对象: '' ,第26行,这样一看,就知道你的问题在<!--#Include file="花卉世界1.asp"--> 这个文件的26行,建议你用editplus工具或Dreamweaver编辑代码,就可以显高燃示行数了,你注意查看第26行是什么代扮宏码,问题就在哪里了..
如果方便,请你补充第26行代码上来,会有人帮你解决的.
如果你需要editplus或Dreamweaver编辑软件,方便查看行数,在下面地址有下载:
editplus中文汉化版:
http://www.alixixi.com/down/Tool/WebTools/2007/2007103024413.html
Dreamweaver8中文版:
http://www.alixixi.com/down/Tool/WebTools/2007/2007050914939.html
希望你的问题早日解决:)
一般情况下,ASP出现错误时,都会出现错误提示,如果没出现,请去除 on error resume next 代码或在internet选项的高戚缺虚级选项框中的 [显示友好HTTP错误信息] 勾勾去掉,就可以显示错误信息了.
现在跟据你的代码已经能看到错误提示了,问题很明显摆在眼前:
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/huA/花卉/070602434/查询结果1.asp, 第 26 行
缺少对象: '' ,第26行,这样一看,就知道你的问题在<!--#Include file="花卉世界1.asp"--> 这个文件的26行,建议你用editplus工具或Dreamweaver编辑代码,就可以显高燃示行数了,你注意查看第26行是什么代扮宏码,问题就在哪里了..
如果方便,请你补充第26行代码上来,会有人帮你解决的.
如果你需要editplus或Dreamweaver编辑软件,方便查看行数,在下面地址有下载:
editplus中文汉化版:
http://www.alixixi.com/down/Tool/WebTools/2007/2007103024413.html
Dreamweaver8中文版:
http://www.alixixi.com/down/Tool/WebTools/2007/2007050914939.html
希望你的问题早日解决:)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
那显示什么错误？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
'set MyRS1=Myconn.execute(MYSQL)
'建立查询集MyRS1
这是你写的 你把MyRS1创燃银建的语句注释掉了数祥.你再If MyRS.EOF 当然就会出错了皮毕宴
'建立查询集MyRS1
这是你写的 你把MyRS1创燃银建的语句注释掉了数祥.你再If MyRS.EOF 当然就会出错了皮毕宴
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
