| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1919 人关注过本帖
标题:[求助][Microsoft][ODBC Microsoft Access Driver]行中有错误 怎么解决?
只看楼主 加入收藏
igi2010
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-5-22
收藏
 问题点数:0 回复次数:3 
[求助][Microsoft][ODBC Microsoft Access Driver]行中有错误 怎么解决?
各位高手我是个大四做毕业设计的学生,用ASP做一个企业销售管理系统,数据库是ACCESS。在做到客户提交订单时,发生了解决不了的错误, 我是个新手,查阅了无数资料还是不得结果。十分郁闷,特请教各位高手帮忙看看这是怎么回事,小弟不胜感激。错误提示如下:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]行中有错误

/ment4.asp,行30



ment4.asp的完整代码如下:


<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn2.asp" -->
<%
ProductList = Session("ProductList")
flags="尚未处理"
If Len(ProductList) = 0 Then
Response.Redirect "nothing.asp"
end if

'保存购买人信息
set rs=server.createobject("adodb.recordset")
sqltext="select * from orderlist"
rs.open sqltext,conn,3,3,1

'添加一个用户到数据库
rs.addnew
rs("User_Id")=request.form("UserId")
rs("Name")=request.form("Name")
rs("Zip")=request.form("Zip")
rs("Phone")=request.form("Phone")
rs("Email")=request.form("Email")
rs("Address")=request.form("Address")
rs("Pays")=request.form("Pays")
rs("Flag")=flags
rs("Remark")=request.form("Remark")
If rs("Remark")="" then
rs("Remark")="无"
End If
rs.update 这里就是提示的出错的地方
rs.close
sql="select Form_Id from OrderList order by regtime desc"
rs.open sql,conn,2,3
a=rs(0)
rs.close
%>
<%
products=split(request("cpbm"),",")
for i=0 to UBound(Products)
'response.write cpbm
next
set rs=server.createobject("adodb.recordset")
session("productlist")=productlist
sql = "Select * From Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
sql = sql & " Order By Product_No"
Set rs = conn.Execute( sql )
%>
<%
if session(rs("Product_Id"))=0 then
session(rs("Product_Id"))=1
end if

while not rs.eof
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from shoplist"
rs2.open sqltext2,conn,3,3,1
rs2.addnew
rs2("Product_Id")=rs("Product_Id")
rs2("Form_Id")=a
rs2("Product_Name")=rs("Product_Name")
rs2("Number")=cint(session(rs("Product_Id")))
rs2("P_NewPrice")=ccur(rs("P_NewPrice"))
rs2.update%>

<%
rs2.close
rs.movenext
wend
session.abandon
'response.redirect"success.asp"
rs.close
conn.close
%>

<head>
<href="style.css">
<title>提交成功</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>

<p align="center"> 
<p align="center">北京市内,货到付款! </p>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=341>
<TR>
<TD align=middle width="342">
<div align="center">
<TABLE width=373 height="123" border="0" cellpadding="5" cellSpacing=1 bgColor=#5A8BCE >
<TBODY>
<TR vAlign=top bgColor=#eeeeee>
<TD width="373" height="76" colspan="2" bgcolor="#EEEEEE">
<p><br>
 订单提交成功,您的订单号是:<%=a%>
<p>我们即可按您的订单发货,请牢记您的订单号,以便查询。请你把钱寄到以下地方!</p>
</TD></TR>
<center>
<center>
<TR bgColor=#eeeeee>
<TD width="70" height="27" bgcolor="#EEEEEE">
汇款地址</TD>

<TD width="303" height="27" bgcolor="#EEEEEE"> 北京市</TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="70" height="27" bgcolor="#EEEEEE">
收款人</TD>

<TD width="303" height="27" bgcolor="#EEEEEE"> **先生</TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="70" height="27" bgcolor="#EEEEEE">
帐户</TD>

<TD width="303" height="27" bgcolor="#EEEEEE"> **银行北京支行</TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="373" height="27" colspan="2" bgcolor="#EEEEEE">
<p align="center"> 
<h2 align="center"><input type="button" name="close" value="关闭窗口" onClick="window.close()"></TD></TR></TBODY></TABLE>
</center>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=373 bgColor=#006699>
<TBODY>
<TR>
<TD width=119 height=2 bgcolor="#5A8BCE"></TD>
<TD width=272 height=2 bgcolor="#5A8BCE">
<DIV align=right style="width: 212; height: 19"></DIV></TD></TR></TBODY></TABLE></TD></TR></TABLE>
</div>
<p align="center"> </p>
 

搜索更多相关主题的帖子: Microsoft FONT ODBC Driver Access 
2006-05-22 10:22
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
rs("User_Id")=request.form("UserId")
rs("Name")=request.form("Name")
rs("Zip")=request.form("Zip")
rs("Phone")=request.form("Phone")
rs("Email")=request.form("Email")
rs("Address")=request.form("Address")
rs("Pays")=request.form("Pays")
rs("Flag")=flags
rs("Remark")=request.form("Remark")
If rs("Remark")="" then
rs("Remark")="无
用户填写的数据正确吗?
2006-05-22 10:36
igi2010
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-5-22
收藏
得分:0 
正确啊,都是按照要求填写的
2006-05-22 11:05
程序错误
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2006-4-30
收藏
得分:0 
If request.form("Remark") = "" then
rs("Remark") = "无"
Else
rs("Remark") = request.form("Remark")
End If
rs.update 这里就是提示的出错的地方

天因你而更蔚蓝~~~~~~
地狱因我而黑暗~~~~~~
2006-05-22 11:49
快速回复:[求助][Microsoft][ODBC Microsoft Access Driver]行中有错误 怎么解 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045552 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved