ASP怎么更新ACCRESS

我有2个ASP文件，1个是cnedit,1个是submit，怎么更新不进去啊

解决方案 »

  1.   

    cnedit文件
    <HTML>
    <HEAD>
    <TITLE>修改</TITLE>
    <META http-equiv=Content-Type content="text/html; charset=gb2312">
    <style>
    body,td,input,textarea {font-size:9pt}
    </style>
    <script language="javascript">
    function getValue(){
    var info=myform.myTextArea.value;
    alert(info);
    }</script>
    </HEAD>
    <%
    e=request("action")
    db="db1.mdb"
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    conn.Open connstr
    Set rs=Server.CreateObject("ADODB.RecordSet")
    %>
    <BODY>
    <%
    rs.open"select * from cnlow where id=1",conn
    dim edlow
    edlow=rs("clow")
    rs.close
    %>
    <FORM method="POST" name="myform" action="submit.asp">
    <TABLE border="0" cellpadding="2" cellspacing="1">
    <TR>
    <TD>编辑内容：</TD>
    <TD>
    <INPUT type="hidden" name="content1" value="<%=edlow%>">
    <IFRAME ID="eWebEditor1" src="../ewebeditor.asp?id=content1&style=s_coolblue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>
    </TD>
    </TR>
    <TR>
    <TD colspan=2 align=right>
    <INPUT type=button name=b4 value="取值" onclick="myTextArea.value=eWebEditor1.getHTML()"> 
    </TD>
    </TR>
    <TR>
    <TD>修改的内容：</TD>
    <TD><TEXTAREA cols=50 rows=5 name=myTextArea id=myTextArea style="width:550px" ReadOnly=ture>点击“取值”按钮，看一下效果！</TEXTAREA></TD>
    <TD>
    </TR>
    <TR>
    <TD colspan=2 align=right>
    <INPUT type=submit name=b1 value="保存"> 
    </TD>
    </TR>
    </TABLE>
    </FORM>
    </BODY>
    </HTML>
      

  2.   

    submit
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
    <title>dasds</title>
    </head>
    <%
    e=request.form("myTextArea")
    db="db1.mdb"
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    conn.Open connstr
    conn.execute("update cnlow set clow='"&e&"' where id=1")
    conn.close
    response.write("你已修改")
    %><body>
    <form name="form1" id="form1" method="post" action="main.asp">
      <p>
         <input type="submit" name="Submit01" value="返回" />
      </p>
    </form>
    </body>
    </html>
      

  3.   

    检查xx.mdb文件的权限看是允许匿名可修改，
      

  4.   

    参考下：
    id=request("id")
    page=request("page")
    add=request("add")
    tel=request("tel")
    fax=request("fax")
    pc=request("pc")
    set rs=server.createobject("adodb.recordset")
    rs.open "select * from contact where id="&id,conn,3,3rs("add")=add
    rs("tel")=tel
    rs("fax")=fax
    rs("pc")=pcrs.update
    rs.close
    conn.close
      

  5.   

    右键mdb文件>>属性>>安全>>添加帐号IUSR_你的计算机名>>允许写入>>ok