新微赢技术网

标题: 新手求助 asp页面记录插入数据库 [打印本页]

作者: 不材之木 时间: 2010-1-11 01:45
标题: 新手求助 asp页面记录插入数据库
郁闷了好几天了，首先承认我比较菜
本人专业不是编程，而是搞网络的偏偏又接了个网站
现在是我的提交信息的页面提交不了记录进数据库，希望大大门帮忙
提交的代码

<%
lb=request.form("xz")
gsmc=trim(request.form("gsmc"))
lxr=trim(request.form("lxr"))
dh=trim(request.form("dh"))
sj=trim(request.form("sj"))
dz=trim(request.form("dz"))
ywjs=trim(request.form("ywjs"))
ztcp=trim(request.form("ztcp"))
zy=trim(request.form("zy"))
qq=trim(request.form("qq"))
msn=trim(request.form("msn"))
email=trim(request.form("email"))
If gsmc="" or lxr=""or  dh=""Or sj="" Or dz="" or email=""or ywjs=""Then
response.write  "<script language=javascript>alert('星号处为必填!');history.go(-1);</script>"
response.end
Else
  set rse=server.createobject("adodb.recordset")
se="select * from ["&lb&"] where gsmc='"&gsmc&"'"
rse.open se,conn,1,1
  if rse.eof and rse.bof then
ins="insert into ["&lb&"](gsmc,lxr,dh,sj,dz,ywjs,ztcp,zy,qq,msn,email) values ('"&gsmc&"','"&lxr&"','"&dh&"','"&sj&"','"&dz&"','"&ywjs&"','"&ztcp&"','"&zy&"','"&qq&"','"&msn&"','"&email&"')"
conn.execute ins
Set myErrors=conn.errors
If myErrors.count=0 Then
   response.write  "<script language=javascript>alert('出错了!');history.go(-1);</script>"
response.End
else
response.write  "<script language=javascript>alert('允许提交!');history.go(-1);</script>"
response.End
end if
else
  response.write  "<script language=javascript>alert('已有该公司信息!感谢您的提交!');history.go(-1);</script>"
  response.end
end if
end if
rse.close
set rse=nothing
%>
conn页面的代码
<%
on error resume next
SqlDataBase = "../database/db.mdb"       '数据库路径
SqlProvider = "Microsoft.Jet.OLEDB.4.0"       '驱动程序[ Microsoft.Jet.OLEDB.4.0  Microsoft.ACE.OLEDB.12.0 ]
SqlPassword = ""                         'ACCESS数据库密码
adConn="Provider="&SqlProvider&";Jet Oledb:Database Password="&SqlPassword&"; Data Source="&Server.MapPath("\")&""&SqlDataBase&""
set conn=server.createobject("ADODB.CONNECTION")
if err then
      err.clear
else
      conn.open adconn
end if
SqlNowString="now()"

sub CloseConn()
conn.close
set conn=nothing
   end sub
%>
本人恳请大家帮忙为谢

作者: ￡籍の口∮ 时间: 2010-1-11 01:45
数据库给锁了吗？？

作者: ┗白觀喑﹖ 时间: 2010-1-11 01:45
没有错误信息
显示的是允许提交!
可是就是数据库里面没有插入进记录去

作者: ˇ风逍遥ˇ 时间: 2010-1-11 01:45
hmhz
斑竹大大
我也用你的代码试了
老是信息添加成功！信息添加成功！
可是就是信息添加不成功！
我现在怀疑该是我的表上字段定义的问题
数据库CONN大家帮我看看了吗？
没问题吧？
字段是这样的

作者: 封xin封mg 时间: 2010-1-11 01:45
我是听说这个论坛大家都对新手很好
但是现在怎么没人理我？
谁告诉我下啊~~~

作者: 夜来香 时间: 2010-1-11 01:45
程序代码：

<%
lb=request.form("xz")
gsmc=trim(request.form("gsmc"))
lxr=trim(request.form("lxr"))
dh=trim(request.form("dh"))
sj=trim(request.form("sj"))
dz=trim(request.form("dz"))
ywjs=trim(request.form("ywjs"))
ztcp=trim(request.form("ztcp"))
zy=trim(request.form("zy"))
qq=trim(request.form("qq"))
msn=trim(request.form("msn"))
email=trim(request.form("email"))

if gsmc="" or lxr="" or dh="" or sj="" or dz="" or email=""or ywjs="" then
response.write "<script language=javascript>alert('星号处为必填！');history.go(-1);</script>"
response.end
end if

if conn.execute("select count(*) from ["&lb&"] where gsmc='"&gsmc&"'")(0)<>0 then
response.write "<script language=javascript>alert('该公司信息已存在！');history.go(-1);</script>"
else
conn.execute "insert into ["&lb&"](gsmc,lxr,dh,sj,dz,ywjs,ztcp,zy,qq,msn,email) values('"&gsmc&"','"&lxr&"','"&dh&"','"&sj&"','"&dz&"','"&ywjs&"','"&ztcp&"','"&zy&"','"&qq&"','"&msn&"','"&email&"')"
response.write "<script language=javascript>alert('信息添加成功！');history.go(-1);</script>"
end if
%>

作者: ミつン戀ン 时间: 2010-1-11 01:45
具体错误信息

作者: 无民 时间: 2010-1-11 01:45
字段名称数据类型
id       自动编号
sfxs       数字
lxr       文本
dh       文本
sj       文本
dz       文本
ywjs       备注
ztcp       备注
zy       文本
qq       文本
msn       文本
email    文本
click    数字
riqi    日期/时间
tj       数字

作者: ＂Ｍy!ove-、 时间: 2010-1-11 01:45
感谢斑竹hmhz
不管行不行总算有人理了
我先试试
不行再找大家帮帮

作者: 小猫钓鱼tp 时间: 2010-1-11 01:45
没有屏掉错误吧，帮你顶！

作者: 文仔 时间: 2010-2-1 02:05
顶你一下，好贴要顶！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)