28,406
社区成员
发帖
与我相关
我的任务
分享Microsoft JET Database Engine 错误 '80040e10'
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="data/conn.asp"-->
<%
dim mcid
mcid=request.QueryString("mcid")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.border {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: none;
border-bottom-style: solid;
border-left-style: solid;
border-top-color: #000000;
border-right-color: #000000;
border-bottom-color: #000000;
border-left-color: #000000;
text-align: center;
}
.table {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: none;
border-left-style: none;
border-top-color: #000000;
border-right-color: #000000;
border-bottom-color: #000000;
border-left-color: #000000;
text-align: center;
}
-->
</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在数据库中是存在的。
<!--#include file="data/conn.asp"-->
<%
dim mcid
mcid=request.QueryString("mcid")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.border {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: none;
border-bottom-style: solid;
border-left-style: solid;
border-top-color: #000000;
border-right-color: #000000;
border-bottom-color: #000000;
border-left-color: #000000;
text-align: center;
}
.table {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: none;
border-left-style: none;
border-top-color: #000000;
border-right-color: #000000;
border-bottom-color: #000000;
border-left-color: #000000;
text-align: center;
}
-->
</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在数据库中是存在的。
...全文
请发表友善的回复…
发表回复
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
%>
看看结果.
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
%>
看看结果.
