Microsoft JET Database Engine 错误 '80040e10'

nonamehacker 2009-06-26 07:59:43

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
dim mcid
mcid=request.QueryString("mcid")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">

</style>
</head>

<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
<tr>
<td width="61" class="border">序号</td>
<td width="61" class="border">商户ID</td>
<td width="115" class="border"> 唯一订单号</td>
<td width="71" class="border">充值金额</td>
<td width="96" class="border">充值时间</td>
<td width="114" class="border">手机号</td>
<td width="98" class="border">充值结果</td>
<td width="216" class="border">结算</td>
<td width="28" class="border"> </td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM data where mcid="&mcid
rs.open sql,conn
If NOT(Rs.EOF AND Rs.BOF) Then
Do While NOT Rs.EOF
%>
<tr>
<td class="border">
<%=rs("id")%></td>
<td class="border"> <%=rs("mcid")%> </td>
<td class="border"> <%=rs("order_id")%> </td>
<td class="border"> <%=rs("amount")%> </td>
<td class="border"> <%=rs("time")%> </td>
<td class="border"> <%=rs("teleno")%> </td>
<td class="border"> </td>
<td class="border"><%weekdate=weekday(date())
if weekdate<>0 then response.Write("周日可结算")
%></td>
<td class="border"> </td>
</tr>
<%rs.movenext
loop
end if%>
</table>
</body>
<%
rs.close
set rs=nothing
%>
</html>

这是全文文件名是 jiesuan.asp
但是用 jiesuan.asp?mcid=jx123 访问的时候提示错误如下：

Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。

/2/jiesuan.asp，行 62

申明一下jx123在数据库中是存在的。

...全文

69 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

Ad-Huang 2009-06-26

打赏
举报

<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM data where mcid="&mcid
rs.open sql,conn
If NOT(Rs.EOF AND Rs.BOF) Then
Do While NOT Rs.EOF
%>

改!

<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM data where mcid="&mcid
response.write sql
response.end()
rs.open sql,conn
If NOT(Rs.EOF AND Rs.BOF) Then
Do While NOT Rs.EOF
%>

看看结果.