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
%>
嗯,这是一个典型的读取数据并显示的例子,参见:?cat_id=26&log_id=448" target=_blank>http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=448
嗯,确实简单。从上至下,很容易明白。但是当你对多个表进行读插删改的时候,当你的代码里有很多htmljs混杂的时候,你会有疑问:为什么有这么多东西要重复呢?
所以一般我们把一些简单的操作独立出来,写成类或者函数放进包含文件(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
conn.close
set conn=nothing
%>
参考:
现在相对简单多了,如果有多个操作页面我们只要导入连接文件就可以了,不过还是不够简洁,哪里不简洁?
一直在创建server,一直在写close,这样很容易出错,并且看起来与内容无关的太多。
那我再改进下:
把conn.asp文件改成:
<%
dim conn
dim rs
sub closedatabase
conn.close
set conn = nothing
end sub
sub opendatabase
dim strserver,struid,strsapwd,strdbname
strserver="192.168.1.1" 服务器名
struid="sa" 您的登录帐号
strsapwd="" 您的登录密码
strdbname="cnbruce.mdb" 您的数据库名称
set conn = server.createobject("adodb.connection")
用于连接access
conn.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(strdbname)
用于连接mssql
conn.connectionstring = "driver={sql server};driver={sql server};server="&strserver&";uid="&struid&";pwd="&strsapwd&";database=
"&strdbname
set rs=server.createobject("adodb.recordset")
conn.open
if err then
err.clear
set conn = nothing
gbl_chk_tempstr = gbl_chk_tempstr & "数据库连接错误!"
response.write gbl_chk_tempstr
response.end
end if
end sub
%>
现在我们的showit.asp可以这样写:
showit.asp
<!--#include file="conn.asp" -->
<%
sql = "select * from cnarticle"
opendatabase
rs.open sql,conn,1,1
if not rs.eof then
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
else
response.write ("暂时还没有文章")
end if
closedatabase
%>
嗯,我们又少写了一些东西,这样是最简单的吗?当然不是!还可以更简单。
使用getrows把查询出来的数据传给一个变量,使用ubound方法取得数据记录条数。
不明白?没关系,让我们继续往下看:
再建个文件:sql.asp
sql.asp
<%
class datatable
public function selectdata(sql)
if sql<>"" then
opendatabase
rs.open sql,conn,1,1
if not rs.eof then
thedata=rs.getrows(-1)
closedatabase
else
closedatabase
end if
end if
selectdata=thedata
end function
end class
%>
嗯,复制它就可以了,现在我们的showit.asp可以简单地这样写:
showit.asp
<!--#include file="conn.asp" -->
<!--#include file="sql.asp" -->
<%
sql = "select * from cnarticle"
set loaddata=new datatable
thedata=loaddata.selectdata(sql)
if isarray(thedata) then
num=ubound(thedata,2)
for i=0 to num
response.write("文章标题是:"& thedata(1,i))
response.write("<br>文章作者是:"& thedata(2,i))
response.write("<br>文章加入时间是:"& thedata(3,i))
response.write("<br>文章内容是:"& thedata(4,i))
&nbs
上一篇: ASP教程:关于AJAX一个简单的例子
下一篇: Oracle 下马观花看redo