请帮我看看ASP问题，谢谢大家！(100分)

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #1

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
/search.asp，行4
我的程序，我检查过，没错误了。但就是 运行不了。还出现上面所列的错误，
请各位高手帮我解说一下，顺便解说一下如何 解决这些问题了

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #2

数据库连接问题，估计出在路径没找到，把源文件那几行贴上来

 

Y

yxz123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #3

源程序贴出来吧

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #4

<%
set conn=server.CreateObject("ADODB.connection")
conn.connectionstring="provider=Microsoft.jet.OLEDB.4.0;"&amp;"Data source="&amp;server.MapPath("zhuce.mdb")
conn.open
nl1=request("nl")
dim sql
sql="select * from database where name1='"&amp;nl1&amp;"'"
set rs=conn.execute(sql)
if not rs.eof then
response.Write"对不起，没有你要搜索的内容，如果想重新搜索请点击返回"
response.End()
end if
'关闭数据库连接并释放对象
conn.close
set con=nothing
%>

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #5

server.MapPath("zhuce.mdb") 这里
把zhuce.mdb放到这个文件的同一目录下来

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #6

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
这个错误，提示我到底那里出错了 ?

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #7

少了一个enc呗
你找找你自己的语法

 

K

killerabby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #8

你不要理这个
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
了，如果你的数据库打开没问题，这个就不出现了。
像“小天”说的那边，网页跟数据库放在同一目录下！

 

H

hwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #9

这段代码问题。我试过了。

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #10

问题到底出在那里呢？

 

Y

yxz123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #11

代码本身没问题，我替你试过了，应该是数据库路径的问题，试一试将路径写死就知道了
例如：
Data source="c:/zhuce.mdb"
server.MapPath("zhuce.mdb")指的是你网页发布的目录

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #12

如果，我把数据库路径写成绝对路径，那我移植到其他的机子上，那不是没发运行了。

 

Y

yxz123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #13

我是说试一试，是不是路径的问题？

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #14

路径问题 ,我解决了。但是又出现新的问题
所以，我重新写了一段，但是怎么还是一个错误。
错误提示是Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
服务器对象 错误 'ASP 0231 : 80004005'
Server.Execute 错误
/zhuce.asp，行8
无效的 URL 表单或是合格的 URL 已被使用。使用相关的 URLs。
程序源代码是：
<%
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.connectionstring="provider=Microsoft.jet.OLEDB.4.0;"&amp;"data source="&amp;server.MapPath("zhuce.mdb")
conn.open
textname=request("text")
sql="select * from dbase where name='"&amp;textname&amp;"'"
set rs=server.Execute(sql)
if not rs.eof then
response.Write "对不起，没此记录"
response.End()
end if
conn.close
set conn=nothing
%>
我在写一段搜索代码，但一直没有写好，你能不能帮我写一段。让我参考参考！

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #15

set rs=server.Execute(sql)
改成
set rs=conn.Execute(sql)