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

最新推荐文章于 2024-09-18 10:06:00 发布

peiqin

最新推荐文章于 2024-09-18 10:06:00 发布

阅读量1k

点赞数

分类专栏：技能文章标签： asp vbscript table security html insert

技能专栏收录该内容

11 篇文章 0 订阅

订阅专栏

资料来源：http://blog.csdn.net/owl2008/

//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>
                <td><input name="name" type="text" /></td>
            </tr>
            <tr>
                <td align="right">phone:</td>
                <td><input name="phone" type="text" /></td>
            </tr>
            <tr>
                <td><input name="submit" type="submit" value="submit" /></td>
                <td><input name="reset" type="reset" value="reset" /></td>
            </tr>
        </table>
        </form>
    </body>
</html>