仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 401|回复: 6
打印 上一主题 下一主题

[学习教程] ASP网站制作之菜鸟学ADO实例教程之ADO 更新纪录

[复制链接]
愤怒的大鸟 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:10:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。ado|教程  本站原创内容,转载请说明出处网页教授教养网
  我们可使用SQLUPDATE命令来更新数据库中的纪录。
  我们想更新数据库webjx中的一个表Customers中的一个纪录,起首我们把表Customers中的一切纪录显示出来。
  <html>
  <body>
  <%
  setconn=Server.CreateObject("ADODB.Connection")
  conn.Provider="Microsoft.Jet.OLEDB.4.0"
  conn.Open"e:/webjx/webjx.mdb"
  setrs=Server.CreateObject("ADODB.Recordset")
  rs.open"SELECT*FROMcustomers",conn
  %>
  <h2>ListDatabase</h2>
  <tableborder="1"width="100%">
  <tr>
  <%
  foreachxinrs.Fields
   response.write("<th>"&ucase(x.name)&"</th>")
  next
  %>
  </tr>
  <%dountilrs.EOF%>
  <tr>
  <formmethod="post"action="demo_update.asp">
  <%
  foreachxinrs.Fields
   iflcase(x.name)="customerid"then%>
    <td>
    <inputtype="submit"name="customerID"value="<%=x.value%>">
    </td>
   <%else%>
    <td><%Response.Write(x.value)%></td>
   <%endif
  next
  %>
  </form>
  <%rs.MoveNext%>
  </tr>
  <%
  loop
  conn.close
  %>
<br/>  </table>
  </body>
  </html>
  当用户点击了"customerID"按钮就要挪用"demo_update.asp":
  <html>
  <body>
  <h2>UpdateRecord</h2>
  <%
  setconn=Server.CreateObject("ADODB.Connection")
  conn.Provider="Microsoft.Jet.OLEDB.4.0"
  conn.Open"e:/webjx/webjx.mdb"
  cid=Request.Form("customerID")
  ifRequest.form("companyname")=""then
   setrs=Server.CreateObject("ADODB.Recordset")
   rs.open"SELECT*FROMcustomersWHEREcustomerID="&cid&"",conn
   %>
   <formmethod="post"action="demo_update.asp">
   <table>
   <%foreachxinrs.Fields%>
   <tr>
   <td><%=x.name%></td>
   <td><inputname="<%=x.name%>"value="<%=x.value%>"></td>
   <%next%>
   </tr>
   </table>
   <br/><br/>
   <inputtype="submit"value="更新纪录">
   </form>
  <%
  else
   sql="UPDATEcustomersSET"
   sql=sql&"companyname="&Request.Form("companyname")&","
   sql=sql&"contactname="&Request.Form("contactname")&","
   sql=sql&"address="&Request.Form("address")&","
   sql=sql&"city="&Request.Form("city")&","
   sql=sql&"postalcode="&Request.Form("postalcode")&","
   sql=sql&"country="&Request.Form("country")&""
   sql=sql&"WHEREcustomerID="&cid&""
   onerrorresumenext
   conn.Executesql
   iferr0then
    response.write("Noupdatepermissions!")
   else
    response.write("Record"&cid&"wasupdated!")
   endif
  endif
  conn.close
  %>
<br/>  </body>
  </html>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;
山那边是海 该用户已被删除
沙发
发表于 2015-2-2 22:20:36 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
精灵巫婆 该用户已被删除
板凳
发表于 2015-2-8 14:19:29 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
第二个灵魂 该用户已被删除
地板
发表于 2015-2-25 19:19:02 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
海妖 该用户已被删除
5#
发表于 2015-3-8 02:04:26 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
灵魂腐蚀 该用户已被删除
6#
发表于 2015-3-15 20:55:30 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
不帅 该用户已被删除
7#
发表于 2015-3-22 04:10:18 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 04:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表