转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
ASP+ADO实现数据读写简单示例    热     ★★★★

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

作者：闵涛 文章来源：闵涛的学习笔记 点击数：592 更新时间：2009/4/23 10:38:50
//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>


[VB.NET程序]ADO 在informix的 Addnew  [VB.NET程序]ADO 的测试
[VB.NET程序]ADO 揭密 1  [Web开发][ADO]如何修改ADO的线程模型
[Web开发]Delphi7下仿Ado.Net类的实现  [Web开发]通过COM使用ADO
[Web开发]ADO & ADO.NET中使用存储过程的两个共用的函数  [Web开发]Binding a DataGrid to an ADO Recordset
[Web开发]ADOCE for ADO Programmers  [Web开发]Delphi多线程下的ADO编程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台