a高手请进在线等待,急急急~~!!!

qfacy 2004-04-06 08:27:02
<!-- #include file="../db/database_connection.asp" -->
<%
'Check the Session("strID")



Sub OrderList()
'Exact the order list
Dim rsOrder 'as New ADODB.Recordset
Set rsOrder=Server.CreateObject("ADODB.Recordset")
Dim strSql 'as String
strSql="select itrID ,strChineseName from tbl_book order by dteGenerate DESC"
rsOrder.Open strSql,m_con,1,1
if rsOrder.RecordCount>0 then

%>
<table width="1015" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="973" height="54"></td>
<td width="42"></td>
</tr>
<tr>
<td valign="top" height="82">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="22" width="388" valign="top">
<div align="center">书名</div>
</td>
<td valign="top" width="257">
<div align="center">编号</div>
</td>
<td width="328" valign="top">
<p align="center">修改</p>
</td>
</tr>
<%
while not rsOrder.BOF and not rsOrder.EOF
%>
<tr>
<td height="30" valign="top">
<%=strChineseName%>
</td>
<td valign="top">
<% =rsOrder("strID") %>
</td>
<td valign="top">
<% =rsOrder("strBID") %>
</td>
</tr>
<%
rsOrder.MoveNext
wend
%>
</table>
</td>
</tr>
</table>
<%
end if
rsOrder.Close
Set rsOrder=Nothing
end sub
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<% OrderList %>

</body>
</html>
然后出现下列问题
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/bat/admin/searchbook.asp,行13
...全文
5 点赞 收藏 19
写回复
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
qfacy 2004-04-06
搞定了,谢谢各位
回复
qfacy 2004-04-06
不是只显示出来的只是搜索字段而是只显示主键字段
回复
qfacy 2004-04-06
<!-- #include file="../db/database_connection.asp" -->的database_connection.asp代码如下:
<%
'On Error Resume Next

Dim m_con 'as ADODB.Connection
Dim strConnection 'as String
Set m_con = Server.CreateObject("ADODB.Connection")
strConnection="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/dbKanshu.asp")
m_con.Open strConnection
'm_con.Open "dbKanshu"
'Check the error and report it
if err.number<>0 then
Response.write "<font color=red>err.number=" & err.number & "<br>err.description=" & err.Description & "<br>err.source=" & err.Source & "</font>"
Response.Write "<br>And the strConnection=" & strConnection
Response.End
end if
%>


如果rsOrder.Open strSql,m_con,1,3
rsOrder.Open strSql,m_con,3,1
rsOrder.Open strSql,m_con,3,3时候都提示:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'

[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。

/bat/admin/searchbook.asp,行13 的错误

如果把strSql="select itrID ,strChineseName from tbl_book order by dteGenerate DESC"
改成:
strSql="select * from tbl_book"
程序不报错误,但是运行时候出现如下
但是显示出来的只是搜索字段
回复
caoshangfei 2004-04-06
检查数据库连接。
回复
luluso 2004-04-06
strSql="select itrID ,strChineseName from tbl_book order by dteGenerate DESC"
改成:
strSql="select * from tbl_book"
先改成不排序。简单的试试看还有没错!!
回复
luluso 2004-04-06
rsOrder.Open strSql,m_con,1,3
rsOrder.Open strSql,m_con,3,1
rsOrder.Open strSql,m_con,3,3
分别改下看看.
rsOrder.Open strSql,m_con,1,1
这句的m_con错保没打错吧?不是m_conn等?会不会打少了个n??
回复
qfacy 2004-04-06
如果是iis 问题的话其他的文件也应该出现这个问题,但是其他文件不出现这个问题
回复
yuanbxr 2004-04-06
IIS出的问题,重装一下吧!
回复
qfacy 2004-04-06
<% =rsOrder("strBID") %> 这句暂时没有用处
<% OrderList %> 是调函数
问题出现在rsOrder.Open strSql,m_con,1,1 这句上
回复
qfacy 2004-04-06
我不是很懂,呵呵
问题没有解决
回复
luluso 2004-04-06
晕倒。不必重起吧?
回复
qfacy 2004-04-06
rsOrder.Open strSql,m_con,1,1
这行出错

好,等我重起机器
回复
qfacy 2004-04-06
如果order by dteGenerate DESC删掉应该没有问题了!但是删除后哪个问题还是出现
回复
luluso 2004-04-06
13 行是哪行?具体指出.是不是还是13行出错?
是否缓存的题?排除缓存外再查错!
回复
qfacy 2004-04-06
我试了ahuiok(fervor)的做法,还是出现刚才哪个问题
回复
luluso 2004-04-06
楼上说的对!
回复
ahuiok 2004-04-06
strSql="select itrID ,strChineseName from tbl_book order by dteGenerate DESC"

这一句是不是有问题啊。

select 语句语法规定,当你查询 itrid 和 strchinesename 时又用到 ordery by 做限制时。 也得把 dtegenereate 加在被查询字段里。。你试试这个。

strSql="select itrID ,strChineseName,dteGenerate from tbl_book order by dteGenerate DESC"
回复
若白师妹 2004-04-06
<% =rsOrder("strBID") %> 你也沒有select strBID
還有<% OrderList %> ?這個是什麼意思?
回复
若白师妹 2004-04-06
看不出什麼問題,可能這句rsOrder.Open strSql,m_con,1,1 的問題,檢查一下數據庫連接
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告