救救我！！我快被它折磨死了！

yiran731028 2001-09-06 11:12:06

ADODB.Recordset 错误 '800a0bb9'

应用程序使用的参数或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

/xdsw/send_info_p.asp, 行39 （info_depart.open mysql2,conn2,3,3）

<%
if request.form("type_send")=1 then
set conn2=server.createobject("ADODB.connection")
conn2.open "provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("info.mdb")
set info_depart=server.createobject("adodb.recordset")
dim depart,a
a=session("level")
select case a
case 1
mysql2="select * from info_d"
session("bm")="整个公司"
case 2
mysql2="select * from info_d where "
mysql2=mysql1&"发布部门='营销部'or 发布部门='办公室' or 发布部门='电脑部' or 发布部门='维修部'"
session("bm")="除总经理室、财务部以外部门"
case 3
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='"&"电脑部"&"'"
session("bm")="电脑部"
case 4
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='维修部'"
session("bm")="维修部"
case 5
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='营销部'"
session("bm")="营销部"
case 6
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='电脑维修部'"
case 7
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='财务部'"
session("bm")="财务部"
case 8
mysql2="select * from info_d where "
mysql2=mysql2&"发布部门='"&"复印中心"&"'"
end select
info_depart.open mysql2,conn2,3,3
info_depart.movefirst
info_depart.addnew
info_depart(1)=request.form("biaoti")
info_depart(2)=session("bum")
info_depart(3)=session("username")
info_depart(4)=date()
info_depart(5)="详细"
info_depart.update
info_depart.close
set conn2=nothing
end if
if request.form("type_send")=2 then
set conn1=server.createobject("ADODB.connection")
conn1.open "provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("info.mdb")
set info_comon=server.createobject("adodb.recordset")
mysql1="select * from info_c"
info_comon.open mysql1,conn1,3,3
info_comon.movefirst
info_comon.addnew
info_comon(1)=request.form("biaoti")
info_comon(2)=session("bum")
info_comon(3)=session("username")
info_comon(4)=date()
info_comon(5)="详细"
info_comon.update
info_comon.close
set conn1=nothing
end if
%>
<html>
<head>
<title>发布新信息！</title>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
<link rel="stylesheet" href="css/style.css">
</head>

<body bgcolor="#CCCCFF">
<table width="100%" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="20"><font color="#0000FF" size="4"><b><font size="3">发送成功！</font></b></font></td>
</tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0">
<tr valign="bottom" align="center">
<td height="178"> </td>
</tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="30">>>关闭窗口<<</td>
</tr>
</table>
</body>
</html>

...全文