又一个ASP 不能写入 ACCESS的问题,解决问题加分

[复制链接]
查看11 | 回复4 | 2009-6-18 17:09:45 | 显示全部楼层 |阅读模式
代码太多了没时间去看具体问题在哪,把on error resume next这行删掉再运行程序看看是什么错误提示,再把错误代码贴出来。
回复

使用道具 举报

千问 | 2009-6-18 17:09:45 | 显示全部楼层
不能写入数据库?iis有报错吗?我觉得你这里应该用 if 。。。 then elseif 。。。 thenelseend if改成这种结构看看
回复

使用道具 举报

千问 | 2009-6-18 17:09:45 | 显示全部楼层
错误提示啊。没那玩意实在没法整
回复

使用道具 举报

千问 | 2009-6-18 17:09:45 | 显示全部楼层
修改如下'引发动作程序
  • [url=]
    Back!
    [/url]" end if if trim(request.form("enquiry"))="" then
    founderr=true
    errmsg=errmsg+"
  • Please enter your enquiry!
  • [url=]
    Back!
    [/url]" end if if trim(request.form("email"))="" then
    founderr=true
    errmsg=errmsg+"
  • Please enter your email!
  • [url=]
    Back!
    [/url]" end if
    if founderr=false thenname=htmlencode(request.form("name"))email=request.form("email")address=request.form("address")
    tel=request.form("tel")
    if request("htmlable")="yes" thenenquiry=htmlencode2(request("enquiry"))elseenquiry=ubbcode(request.form("enquiry"))end if if request("action")="add" thencall newsoft() elseif request("action")="edit" thencall editsoft() elsefounderr=trueerrmsg=errmsg+"
  • 没有选定参数" end if conn.close set conn=nothingelse response.write "[B]由于以下的原因不能保存数据:[/B]" response.write errmsgend if%>"" thenrs("writer")=trim(request.form("writer")) end if if request.form("writefrom")"" thenrs("writefrom")=trim(request.form("writefrom")) end if rs.update id=rs("id") rs.close set rs=nothingend sub%>We will contact you ASAP!
    Please Wait......
    Thanks!
    即把rs 设为局部变量,放到(newsoft和editsoft函数)里面去。你这函数也是乱七八糟的插,函数要分开放置。什么动作引发添加数据动作?一般是点击一个什么按钮吧?
  • 回复

    使用道具 举报

    千问 | 2009-6-18 17:09:45 | 显示全部楼层
    你没有贴出报错信息。不过你可以检查一下你的数据库文件夹是不是有写入权限。我以前遇到过类似问题!
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    主题

    0

    回帖

    4882万

    积分

    论坛元老

    Rank: 8Rank: 8

    积分
    48824836
    热门排行