培勤

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

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>

 

阅读更多
个人分类: 技能
上一篇“万丈高楼从地起” ASP 基础
下一篇论金庸小说的现代精神
想对作者说点什么? 我来说一句

文件存储的使用

2013年02月28日 1.76MB 下载

C#读写USB示例

2014年05月30日 10KB 下载

没有更多推荐了,返回首页

关闭
关闭