加入收藏 | 设为首页 | 会员中心 | 我要投稿 银川站长网 (https://www.0951zz.com/)- 云通信、基础存储、云上网络、机器学习、视觉智能!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp迅速开发方法之数据操作实例代码

发布时间:2023-08-04 13:14:00 所属栏目:Asp教程 来源:
导读:这是我自己的心得,给大家作个参考。我的目的是让开发变得简单,尽可能少地考虑实现语句,更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。如果你对ASP不熟悉,可以先看以下教程:1、http://布鲁斯

这是我自己的心得,给大家作个参考。

我的目的是让开发变得简单,尽可能少地考虑实现语句,更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。

如果你对ASP不熟悉,可以先看以下教程:

1、http://布鲁斯狼的ASP编程入门进阶

2、www.w3schools.com的ASP教程(英文/中文),查看更多

好吧,让我们进入正题:

先看以下例子:

<%

db_path = "database/cnbruce.mdb"

Set conn= Server.CreateObject("ADODB.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)

conn.Open connstr

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "Select * from cnarticle"

rs.Open sql,conn,1,1

if rs.EOF and rs.BOF then

response.write ("暂时还没有文章")

else

Do Until rs.EOF

response.write("文章标题是:"& rs("cn_title"))

response.write("<br>文章作者是:"& rs("cn_author"))

response.write("<br>文章加入时间是:"& rs("cn_time"))

response.write("<br>文章内容是:"& rs("cn_content"))

response.write("<hr>")

rs.MoveNext

Loop

end if

rs.close 

Set rs = Nothing

conn.close 

set conn=Nothing

%>

嗯,这是一个典型的读取数据并显示的例子,参见:http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=448

嗯,确实简单。从上至下,很容易明白。但是当你对多个表进行读插删改的时候,当你的代码里有很多HTML/js混杂的时候,你会有疑问:为什么有这么多东西要重复呢?

所以一般我们把一些简单的操作独立出来,写成类或者函数放进包含文件(include)。

那么以上的操作我们可以使用两个文件来实现:

conn.asp

<%

db_path = "database/cnbruce.mdb"

Set conn= Server.CreateObject("ADODB.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)

conn.Open connstr

%>

showit.asp

<!--#include file="conn.asp" -->

<%

Set rs = Server.CreateObject ("ADODB.Recordset")

sql = "Select * from cnarticle"

rs.Open sql,conn,1,1

if rs.EOF and rs.BOF then

response.write ("暂时还没有文章")

else

Do Until rs.EOF

response.write("文章标题是:"& rs("cn_title"))

response.write("<br>文章作者是:"& rs("cn_author"))

response.write("<br>文章加入时间是:"& rs("cn_time"))

response.write("<br>文章内容是:"& rs("cn_content"))

response.write("<hr>")

rs.MoveNext

Loop

end if

rs.close 

Set rs = Nothing

(编辑:银川站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章