马上给分啊。在线等啊。
<title>股票行情</title>
<center>
<font size="6" face="宋体">股票行情表</font>
<P>
<form action="d1.asp" method="post">
请输入股票查询的股票名称：
<input type="text" name="txtname">
<input type="submit" value="查询">
</form>
</center>
<%
name=request("txtname")
if name="" then
response.write"<center>没有输入股票名称，请重新输入</center>"
response.end
end if
set newconn=server.createobject("adodb.connection")
dbpath=server.mappath("mydatabase.mdb")
newconn.open "driver={microsoft access driver(*.mdb)};dbq="& dbpath
sqlcmd="select * from luo where a_name='"&name&"'"
set rs=newconn.execute(sqlcmd)
if rs.eof then
%>
<font size="6" face="宋体">找不到这个股票,请重新输入股票名称</font>
<%else%>
<table align="center">
<tr bgcolor="aqua">
<th>编号
<th>股票编号
<th>股票名称
<th>开盘
<th>收盘
<th>最高
<th>最低
<th>成交数量
<%do while not.eof%>
<tr bgcolor="yellow">
<%for i=0 to rs.fields.count-1%>
<td><%=rs(i)%>
<%next%>
<%rs.movenext
loop
rs.close
newconn.close
end if
%>
问题点数：0、回复次数：4Top
1 楼luotofeng（骆驼峰）回复于 2004-12-03 00:21:10 得分 0
出错原因：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
/d1.asp，行19
谢谢各位。指点小弟。刚学的。
Top
2 楼lienzhu（李强）回复于 2004-12-03 00:30:46 得分 0
这样写数据库和你的文件再同一目录下：
下面看看：
dbpath=server.mappath("mydatabase.mdb")
newconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & & dbpath
Top
3 楼luotofeng（骆驼峰）回复于 2004-12-03 00:36:39 得分 0
/d1.asp，行19
newconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & & dbpath
--------------------------------------------------------------这样写不行啊。我是刚学的啊。你觉得我上面哪里不行啊。
Top
4 楼cheng17（+天空+）回复于 2004-12-03 00:43:19 得分 0
dbpath=server.mappath("mydatabase.mdb")
newconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpathTop
