培勤

人生在勤，不索何获？像蚂蚁一样工作，像蝴蝶一样生活。

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]peiqin的公告

一个程序简单来讲就是系统中一套有序动作的系列指令。虚心学习先行者们的成果，开始新的探索之旅。<p> 一个编程初学者<br>愿与志同者分享点滴快乐<br>路在脚下．．．．．．<p> <p align=left><a href="http://messenger.msn.com/" target="Window_Name"><img src="http://www.msn.com.cn/pidl/12864338/messenger1.jpg"></a><a href="mailto:songheb@hotmail.com"><img src="http://www.msn.com.cn/pidl/12864338/hotmail12.gif"></a><a href="http://spaces.msn.com/songheb" target="Window_Name"><img src="http://www.msn.com.cn/pidl/12864338/spaces0112.gif"></a> songheb@hotmail.com</p> <img src="http://www.cnblogs.com/images/cnblogs_com/peiqin/peiqin.gif"><br><font face="华文隶书" size="3"><font color="#000000">悟天地之真，恒笃行之，美、凝、谨、新、情。</font></font>

[编辑]文章分类

[编辑]CSDN.NET

[编辑]参考资源

[编辑]珍藏博客

[编辑]综合信息

存档

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

资料来源：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>