大家帮帮忙.asp的问题.

Question

<!--#include virtual="/sys/dbopen.asp" -->
<%
if session("nb_admin")="" then
response.Redirect("log.asp")
response.End()
end if
%>
<!--#include virtual="/sys/UPLOAD.ASP"-->
<%
  set rs=server.createobject("adodb.recordset")         '查找审核员权限,文章默认状态
  rs.open "select * from news_parameter where parameterid=1",conn,1,1
  if not rs.bof and not rs.eof then
    if rs("newsstatus")=1 then
  newsstatus=1
    else
  newsstatus=0
    end if
if rs("auditer")=1 then
  auditer=1
    else
  auditer=0
    end if
  else 
auditer=0
    newsstatus=0
  end if
  rs.close
  set rs=nothing
  FormSize=Request.TotalBytes
  FormData=Request.BinaryRead(FormSize)
  Set Fields = GetUpload(FormData)
  topic=invert(trim(left(Fields("topic").Value,100)))
  bt2=invert(trim(left(fields("bt2").value,100)))
  borderid=Fields("borderid").Value
  keys=invert(left(Fields("keys").Value,100))
  imgsize= Fields("img").length
  imgtype= Fields("img").ContentType
  imgdata=Fields("img").Value
  imgsm=invert(left(fields("imgsm").value,50))
  typeid=Fields("typeid").Value
  page=Fields("page").Value
  newsid=Fields("newsid").Value
  nfrom=invert(trim(left(Fields("nfrom").Value,50)))
  writer=invert(trim(left(Fields("writer").Value,30)))
  content=invert(Fields("content").Value)
  action=Fields("action").Value
  'audit=Fields("audit").Value
  'qybh=fields("sel").value
  nb_user=cstr(session("nb_admin"))
'response.Write(nb_user)
'response.End()
  if topic="" or keys="" or content="" then
    response.write "错误!!带<font color=red>*</font>号的为必填项!  <a href='javascript:history.go(-1)'>返回</a>"
response.end
  end if
  hit=0
 ' response.End()
  modify=cstr(session("nb_admin"))
 ' if session("purview")<>"" then
if action="modify" then '*****************************修改文章******************************
  set rs=server.createobject("ADODB.recordset") 
      rs.Open "SELECT * from news Where newsid=" & newsid,conn,1,3 
  nochange=Fields("nochange").Value
  if nochange=0 then   '判断是否更改图片，1是不更改图片，0是更改图片
        if imgsize<>0 and (imgtype="image/pjpeg" or imgtype="image/gif") then
          rs("img").appendchunk imgdata 
          rs("imgsize")=imgsize
  rs("imgbt")=imgsm
        else
      rs("imgsize")=0
        end if
  end if

       rs("typeid")=typeid
       rs("borderid")=borderid
       rs("topic")=topic
   rs("bt2")=bt2
       rs("content")=content
       rs("keys")=keys
       rs("nfrom")=nfrom
   rs("adduser")=nb_user
   rs("writer")=writer
   rs("modify")=modify
       rs("auditer")=nb_user
   'if qybh<>0 then
  '   rs("qybh")=qybh
  ' end if
 rs.update
 rs.close
 set rs=nothing
 response.redirect "newsmanage.asp?typeid=" & typeid & "&borderid=" & borderid & "&newsid=" & newsid & "&page=" & page
   end if 'action="modify"
   
   
   if action="add" then '*****************************添加新文章******************************
 set rs=server.createobject("ADODB.recordset") 
     rs.Open "SELECT * from news",conn,1,3 
 rs.addnew
     if (imgtype="image/pjpeg" or imgtype="image/gif") and imgsize>0 then
       rs("img").appendchunk imgdata 
       rs("imgsize")=imgsize
   rs("imgbt")=imgsm
     else
   rs("imgsize")=0
     end if
 rs("ntime")=date()
     rs("typeid")=typeid
     rs("borderid")=borderid
     rs("topic")=topic
 rs("bt2")=bt2
     rs("content")=content
     rs("keys")=keys
     rs("nfrom")=nfrom
     rs("audit")=0
     rs("writer")=writer
     rs("modify")=modify
 rs("auditer")=nb_user
 rs("adduser")=nb_user
 'rs("dybm")=dybm
 rs.update
 rs.close
 set rs=nothing
     response.redirect "newsmanage.asp?typeid=" & typeid & "&borderid=" & borderid & "&newsid=" & newsid &"&page="&page 
   end if 'action="add" 'end if 'if auditer=1 or session("purview")="99999" or cstr(request("typeid"))=cstr(session("purview"))
 %>
<!--#include file="../sys/DBClose.asp"-->Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' 多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。 /nb_admin/SAVENEWS.ASP，行118