日期:2014-05-17  浏览次数:21010 次

大家帮帮忙啊~~为什么我象数据库插入不进数据啊~!!
代码如下:

<%
dim   Action,bx_name,bx_title,bx_img,rs,FoundErr,ErrMsg
Action=trim(Request( "Action "))
bx_name=trim(Request( "bx_name "))
bx_title=trim(Request( "bx_title "))
bx_img=trim(Request( "bx_img "))
if   Action= "Add "   then
if   bx_name= " "   then
FoundErr=True
ErrMsg=ErrMsg   &   " <br> <li> 产品大类名不能为空! </li> "
end   if
if   FoundErr <> True   then
Set   rs=Server.CreateObject( "Adodb.RecordSet ")
rs.open   "Select   *   From   bx_bc   Where   bx_name= ' "   &   bx_name   &   " ' ",conn,1,3
if   not   (rs.bof   and   rs.EOF)   then
FoundErr=True
ErrMsg=ErrMsg   &   " <br> <li> 产品大类“ "   &   bx_name   &   "”已经存在! </li> "
                else
          rs( "bx_name ")=trim(Request( "bx_name "))
rs( "bx_title ")=trim(Request( "bx_title "))
rs( "bx_img ")=trim(Request( "bx_img "))
rs.update
          rs.Close
          set   rs=Nothing
          call   CloseConn()
Response.Redirect   "bx_Manage.asp "    
end   if
end   if
end   if
if   FoundErr=True   then
call   WriteErrMsg()
else
%>


为什么我象数据库插如不进去啊~~我是象表必须bx_bc插如bx_name,bx_title,bx_img的数值为什么我写不进去拉~~而且还没有什么提示:知道的朋友告诉我一下   在线等着回复谢谢!!!

------解决方案--------------------
因为你是插入新记录而不是修改记录
在 else 后加入
rs.addnew
即可!