一个老问题:ADODB.Recordset (0x800A0BB9)参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突
<!--添加文章的htm页-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../all.css" rel="stylesheet" type="text/css">
</head>
<body onLoad="eWebEditor1.setMode('EDIT');">
<table width="100%" border="1">
<tr>
<td>新增文章</td>
</tr><form name="form1" method="post" action="handle.asp?action=addnews">
<tr>
<td>作者-
<input name="txtAuthor" type="text" class="box" id="txtAuthor" size="50" maxlength="50">
</td>
</tr>
<tr>
<td>来源-
<input name="txtSrc" type="text" class="box" id="txtSrc" size="50" maxlength="50"></td>
</tr>
<tr>
<td>标题-
<input name="txtTitle" type="text" class="box" id="txtTitle" size="50" maxlength="50"></td>
</tr>
<tr>
<td>关键字-
<input name="txtKeyword" type="text" class="box" id="txtKeyword" size="10" maxlength="10">
推荐等级-
<select name="selRec" id="selRec" style="height:12px ">
<option value="0" selected>无</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select></td>
</tr>
<tr>
<td><INPUT type="hidden" name="content1">
<iframe ID="eWebEditor1" src="../ewebeditor/ewebeditor.asp?id=content1&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td><input name="Submit" type="submit" class="submit" value="提交">
<input name="reset" type="reset" class="submit" id="reset" value="重填"></td>
</tr></form>
</table>
</body>
</html>
问题点数：40、回复次数：9Top
1 楼willbetter（夜之哀伤）回复于 2005-05-12 21:02:18 得分 0
<%
'提交后的处理页面handle.asp
%>
<% Option Explicit %>
<%
dim author,src,keyword,title,content,news_sql,news_rs,rec,i
Server.ScriptTimeout = 300
dim faction,nid
faction=request("action")
select case faction
case "editnews" nid=cint(request("id")):call editnews(nid)
case "addnews" call addnews()
case "delnews" nid=cint(request("id")):call delnews(nid)
end select
%>
<!--#include file="../lib/adodbconnection.asp"-->
<% '编辑新闻
'=========================================================
sub editnews(nid)
author=trim(replace(request.form("txtAuthor"),"'",""))
src=trim(replace(request.form("txtSrc"),"'",""))
keyword=trim(replace(request.form("txtKeyword"),"'",""))
title=trim(replace(request.form("txtTitle"),"'",""))
rec=trim(replace(request.form("selRec"),"'",""))
For i = 1 To Request.Form("content1").Count
Content = Content& Request.Form("content1")(i)
Next
if author<>"" and keyword<>"" and title<>""and content<>"" then
set news_rs=server.CreateObject("ADODB.RecordSet")
news_sql="select * from article where id="&nid
news_rs.open news_sql,conn,1,3
news_rs("author")=author
news_rs("src")=src
news_rs("keyword")=keyword
news_rs("title")=title
news_rs("content")=content
news_rs("rec")=rec
news_rs("time")=date()
news_rs.update
news_rs.close
set news_rs=nothing
conn.close
set conn=nothing
response.redirect("amdmin_news.asp")
else
link="admin_news.asp?action=edit&"&nid
response.Redirect(link)
end if
end sub
%>
<%
'添加新闻
'============================================================
sub addnews
dim link
author=trim(replace(request.form("txtAuthor"),"'",""))
src=trim(replace(request.form("txtSrc"),"'",""))
keyword=trim(replace(request.form("txtKeyword"),"'",""))
title=trim(replace(request.form("txtTitle"),"'",""))
rec=trim(replace(request.form("selRec"),"'",""))
For i = 1 To Request.Form("content1").Count
Content = Content& Request.Form("content1")(i)
Next
if author<>"" and keyword<>"" and title<>"" and content<>"" then
set news_rs=server.CreateObject("ADODB.RecordSet")
news_sql="select * from article where id=null"
news_rs.open news_sql,conn,1,3
news_rs.addnew
news_rs("author")=author
news_rs("src")=src
news_rs("keyword")=keyword
news_rs("title")=title
news_rs("content")=content
news_rs("rec")=rec
news_rs.update
news_rs.close
set news_rs=nothing
conn.close
set conn=nothing
response.Redirect("admin_news.asp")
else
link="admin_news.asp?action=newnews"
response.Redirect(link)
response.Write("worng")
end if
end sub
%>
<%
'删除新闻
'======================================================
sub delnews(nid)
dim news_rs,news_sql
set news_rs=server.CreateObject("adodb.recordset")
news_sql="select * from article where id="&nid
news_rs.open news_sql,conn,1,3
news_rs.delete
news_rs.close
set news_rs=nothing
conn.close
set conn=nothing
response.Redirect("admin_news.asp")
end sub
%>Top
2 楼willbetter（夜之哀伤）回复于 2005-05-12 21:04:18 得分 0
出错于添加新闻部分
news_rs.open news_sql,conn,1,3 这句,
提示:
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/bylw/article/handle.asp, 第 64 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler )
网页：
POST 127 ??? /bylw/article/handle.asp
POST Data:
txtAuthor=haidao&txtSrc=sohu.com&txtTitle=this+is+a+test%21&txtKeyword=test&selRec=2&content1=7575767674545&Submit=%CC%E1%BD%BBTop
3 楼thinkming（难点）回复于 2005-05-12 21:07:47 得分 20
看看程序错在那一行,如果是该出错行是否在插入或更新范围当中,如果在那么检查你要插入/更新的值是否和数据库里定义的字段匹配,大部分情况是数据库没有取得当前值或当前值不与当前数据库里字段类型匹配造成的Top
4 楼zhuifengsn（www.d8space.com）回复于 2005-05-12 21:21:52 得分 10
应该是你的SQL查询写错了。Top
5 楼willbetter（夜之哀伤）回复于 2005-05-12 23:01:50 得分 0
是匹配的啊!
出错于添加新闻部分
news_rs.open news_sql,conn,1,3 这句,
news_sql="select * from article where id=null"
这句没错吧?!Top
6 楼huangkw007（水若寒）回复于 2005-05-12 23:10:19 得分 10
news_rs.open news_sql,conn,1,3 改成
news_rs.open news_sql,conn,3,3 呢？Top
7 楼willbetter（夜之哀伤）回复于 2005-05-12 23:38:39 得分 0
还是不行!
环境:asp+IIS5.1+access 2003
数据库article表:
id 自动编号
title 文本
src 文本
author 文本
keyword 文本
content 备注
time 时间/日期 (默认值Date())
rec 文本Top
8 楼willbetter（夜之哀伤）回复于 2005-05-12 23:40:00 得分 0
对了,表是以前在2000的版本下建的!Top
9 楼willbetter（夜之哀伤）回复于 2005-05-14 11:44:43 得分 0
有高手帮我看看吗?Top
