求救! "参数不足，期待是 1"怎么办
运行后提示:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/index.asp，行 34
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>星旧多媒体教室申请系统--www.dqe2008.com</title>
</head>
<body>
<% dim aspxingqi,aspjiechi
aspxingqi=request.QueryString("xingqi")
aspjiechi=request.QueryString("jiechi")
If (aspxingqi="")or(aspjiechi="") Then
%>
<% End If %>
<br>
<br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#000000" bgcolor="#E9E2F3">
<tr bgcolor="#8F6DC4">
<td height="30" colspan="6" bgcolor="#ffffff"><div align="left"></div>
<div align="center" class="STYLE7">星旧多媒体教室申请系统</div>
<div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF"><div align="left"></div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期一</div></td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF"><div align="center">第一节课</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<% dim Rs,sql
sql="Select * From yuding where xingqi='星期一' and jiechi='第一节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
If rs.eof Then
Response.Write("空 闲")
%><% Else %><a href="index.asp?xingqi=星期一&jiechi=第一节">查看详情</a><% End If %>
</div></td>
</tr>
</table>
</body>
</html>
conn.asp代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/Mhsoft.mdb")
%>
</body>
</html>
运行后提示:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/index.asp，行 34
代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>星旧多媒体教室申请系统--www.dqe2008.com</title>
</head>
<body>
<% dim aspxingqi,aspjiechi
aspxingqi=request.QueryString("xingqi")
aspjiechi=request.QueryString("jiechi")
If (aspxingqi="")or(aspjiechi="") Then
%>
<% End If %>
<br>
<br>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#000000" bgcolor="#E9E2F3">
<tr bgcolor="#8F6DC4">
<td height="30" colspan="6" bgcolor="#ffffff"><div align="left"></div>
<div align="center" class="STYLE7">星旧多媒体教室申请系统</div>
<div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF"><div align="left"></div></td>
<td height="40" bgcolor="#FFFFFF"><div align="center">星期一</div></td>
</tr>
<tr>
<td width="100" bgcolor="#FFFFFF"><div align="center">第一节课</div></td>
<td width="100" height="40" bgcolor="#FFFFFF"><div align="center">
<% dim Rs,sql
sql="Select * From yuding where xingqi='星期一' and jiechi='第一节'and riqi>=#"&date()&"#"
Set Rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,3
If rs.eof Then
Response.Write("空 闲")
%><% Else %><a href="index.asp?xingqi=星期一&jiechi=第一节">查看详情</a><% End If %>
</div></td>
</tr>
</table>
</body>
</html>
conn.asp代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/Mhsoft.mdb")
%>
</body>
</html>
2008-6-4 11:38
