ASP+ADO实现数据读写简单示例

站内文章搜索:

ASP+ADO实现数据读写简单示例

作者：佚名文章来源：网络转载更新时间：2007-11-26 1:01:25

//showdata.asp
〈%@ language="vbscript" codepage="936" %〉

〈html〉
    〈head〉
        〈title〉[show the data]〈/title〉

    〈/head〉
    〈body〉
    〈%
        Application.Lock()
        set dataConnect = Server.CreateObject("ADODB.Connection")
        strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_
                     &Server.MapPath("db1.mdb")&_
                     ";Persist Security Info=True"
        dataConnect.Open(strConnect)
        if Request.Form("name") 〈〉 "" or Request.Form("phone") then
             sqlInsertcmd = "insert into table1(name,phone) values(’"_
                            &Request.Form("name")&"’,’"&Request.Form("phone")&"’)"
             dataConnect.Execute(sqlInsertcmd)
        end if
        set dbtabptr = Server.CreateObject("ADODB.Recordset")
        dbtabptr.ActiveConnection = dataConnect
        strSql = "select * from table1"
        dbtabptr.Open(strSql)
        Response.Write("〈table width=’100%’ border=’1’〉")
        Response.Write("〈tr〉")
        Response.Write("〈th〉name〈/th〉")
        Response.Write("〈th〉phone〈/th〉")
        dbtabptr.MoveFirst()
        do until dbtabptr.EOF
            Response.Write("〈tr〉")
            Response.Write("〈td〉")
            Response.Write(dbtabptr("name"))
            Response.Write("〈/td〉")
            Response.Write("〈td〉")
            Response.Write(dbtabptr("phone"))
            Response.Write("〈/td〉")
            Response.Write("〈/tr〉")
            dbtabptr.MoveNext()
        loop
        Response.Write("〈/tr〉")
        Response.Write("〈/table〉")
        dataConnect.Close()
        Application.UnLock()
    %〉
    〈a href="addData.asp"〉Add a Data to Database〈/a〉
    〈/body〉
〈/html〉
// addData.asp
〈%@ language="vbscript" codepage="936" %〉
〈html〉
    〈head〉
        〈title〉[Add data]〈/title〉
    〈/head〉
    〈body〉
        〈form name="adddata" action="showData.asp" method="post"〉
        〈table〉
            〈tr〉
                〈td align="right"〉name:〈/td〉
&n

[1] [2] 下一页

上一篇文章：一个简单的用户登录接口ASP实现

下一篇文章： ASP产生随机密码的函数

百度搜索： ASP+ADO实现数据读写简单示例