首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

大家帮帮忙啊为什么小弟我象数据库插入不进数据啊

2012-04-04 
大家帮帮忙啊~~为什么我象数据库插入不进数据啊~!!代码如下:%dimAction,bx_name,bx_title,bx_img,rs,Foun

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

<%
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
即可!

热点排行