帮忙找错 asp

[daynight2]

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
/xujun/datebase/newssave.asp, 第 68 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
POST 9480 ??? /xujun/datebase/newssave.asp

POST Data:
name=admin&pw=admin&tital=%D1%EE%D2%BB%C3%F1%B3%C9%B9%A6%CE%D3%D0%FD%A1%B0%C8%FD%B2%BF%C7%FA%A1%B1+%D6%D0%B9%FA%D5%E2%D1%F9%B3%C9%CE%AA%D6%D6%D7%D3%B6%D3&zt=%CC%E5%CC%B3%D6%DC%B1%A8&neirong=%BC%C7%D5% . . .

时间：
2003年7月15日, 15:00:00


详细信息：
Microsoft 支持



<!--#INCLUDE file="conn.asp" -->
<%
dim name,pw
name=Trim(Request.form("name"))
pw=Trim(Request.form("pw"))
if name="" then
%>
<script language=javascript>
alert( "错误：请输入用户名！" );
location.href = "javascript:history.back()"
</script>
<%end if
if pw="" then%>
<script language=javascript>
alert( "错误：请输入管理密码！" );
location.href = "javascript:history.back()"
</script>
<%end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From admin where name='" &name&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert( "错误：此用户名不存在！" );
location.href = "javascript:history.back()"
</script>
<%elseif pw<>rs("pw") then%>
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>
<%else%>
<%
dim tital,zt,neirong
tital=Trim(Request.form("tital"))
zt=Trim(Request.form("zt"))
neirong=Trim(Request.form("neirong"))

if trim(tital="") then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入标题！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(neirong)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if zt="" then zt="不详"

neirong=replace(neirong,"<","<")
neirong=replace(neirong,">",">")
neirong=replace(neirong,"'","<|>")
neirong=replace(neirong,vbCrLf,"<br>")
neirong=replace(neirong," "," ")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "news",conn,1,2
rs.addnew
rs("tital")=tital
rs("neirong")=neirong // 68 行
rs("zt")=zt
rs("time")=now
rs.update

response.write "<script language='javascript'>" & VbCRlf
response.write "alert('添加成功！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF

response.redirect "newsadd.asp"
%>

<%end if%>

[despider]

检查字段长度

[tana]

你主要要看看数据库的字段名是不是正确，字段设计的大小是否满足需要