求DW制作表单提交数据到ACCESS实例

第一步:

建立一个ACCESS数据库,名称为:DATA.MDB

数据库中建立数据表,名称为:Form_Table

数据表中建立字段

ID,自动编号,主键

Title,文本(Access 2013中为短文本),长度为255

Content,备注(Access 2013中为长文本)

第二步:建立CONN.ASP文件(用于连接数据库) 内容如下

   <%
    DIM CONN,CONNSTR
    DIM DBPATH
    DBPATH="./DATA.MDB"  '数据库路径
    connstr="DBQ="+server.mappath(""&DBPATH&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    set conn=server.createobject("ADODB.CONNECTION")
    if err then
        err.clear
    else
        conn.open connstr
    end if
    %>

第三步:建立提交页面表单与处理过程,Test.asp,内容如下

<%
Dim Title,Content
Title=trim(request.Form("Title")) '过滤首尾空格
Content=trim(request.Form("Content")) '过滤首尾空格
    SET DRS=SERVER.CreateObject("ADODB.RECORDSET") '建立数据流
    DSQL="select * from [Form_Table]"
    DRS.OPEN DSQL,CONN,3,3 '打开
    DRS.ADDNEW '添加新记录
    DRS("Title")=Title
    DRS("Content")=Content
    DRS.UPDATE '写进数据库
    DRS.CLOSE '关闭连接
    SET DRS=NOTHING
%>

标题:
内容:
提交:

以上三个文件,全放到IIS同级目录下.