帮助中心
|

ASP连接access数据库例程

方法/步骤

  • ASP连接access数据库例程
    注意：要运行上述ACCESS例程请先下载数据库，放在db 或 rwdata文件夹下。请将例程放在根目录下。
    <%
    Dim mode
    mode=request.form("text4")
    if mode=1 then
    name=request.form("text1")
    age=request.form("text2")
    addr=request.form("text3")
    if not isnumeric(age) then response.write "age must be number!try again":response.end
    age=clng(age)
    end if     '********************************************************************
    ' 与AccessDB相关的连接信息
    ' 可以参照它建立您的数据库连接
    '********************************************************************
    Dim conn,rs,dbpath
    Set conn=Server.CreateObject("ADODB.Connection")
    Set rs=Server.CreateObject("ADODB.RecordSet")
    dbpath=Server.MapPath("rwdata/db_test_com.mdb")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
    '********************************************************************
    '********************************************************************

    dim strsql
    '********************************************************************
    ' 读数据库相关操作
    sub readdb()
    strsql="select * from test"
    rs.open strsql,conn,1,1
    if rs.EOF then response.write "no record at all":exit sub
    response.write "

    "
    response.write "    "
    for i=0 to rs.Fields.Count-1
    response.write "    "
    next
    response.write "    "
    while not rs.EOF
    response.write "    "
    for i=0 to rs.Fields.Count-1
    response.write "    "
    next
    response.write "    "
    rs.MoveNext
    wend
    response.write "
    "&rs.Fields(i).Name&"
    "&rs.Fields(i).Value&"
    "
    rs.Close
    end sub
    '********************************************************************


    '********************************************************************
    ' 写数据库相关
    sub insertdata()
    strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
    rs.Open strsql,conn,1,3
    end sub
    '********************************************************************

    if mode=1 then
    call insertdata()
    response.write "insert ok!"
    elseif mode=2 then
    call readdb()
    end if

    '********************************************************************
    ' 释放数据库连接对象
    set rs=nothing
    set conn=nothing
    %>







    name:
    age:
    city:






    注意：要运行上述ACCESS例程请先下载数据库，放在rwdata文件夹下。请将例程放在根目录下。