UC知道asp 添加ACCESS 查询 请帮忙检查代码~谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/30 07:45:00
<% '查询结果.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">
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">
其实问题很简单,我教你一个方法,以后在出现问题时你就不用病急乱投药了:)
一般情况下,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/200705091