asp快速开发方法之数据操作实例代码第1/3页

这是我自己的心得，给大家作个参考。 我的目的是让开发变得简单，尽可能少地考虑实现语句，更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。 如果你对ASP不熟悉，可以先看以下教程： 1、http://?*????*??*??狼的ASP编程入门进阶 2、www.w3schools.com的ASP教程(英文中文)，查看更多 好吧，让我们进入正题： 先看以下例子： <% db_path="database/cnbruce.mdb" Setconn=Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db_path) conn.Openconnstr Setrs=Server.CreateObject("ADODB.Recordset") sql="Select*fromcnarticle" rs.Opensql,conn,1,1 ifrs.EOFandrs.BOFthen response.write("暂时还没有文章") else DoUntilrs.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 endif rs.close Setrs=Nothing conn.close setconn=Nothing %> 嗯，这是一个典型的读取数据并显示的例子，参见：http://www.cnbr*u**ce.com/blog/showlog.asp?cat_id=26&log_id=448 嗯，确实简单。从上至下，很容易明白。但是当你对多个表进行读插删改的时候，当你的代码里有很多HTMLjs混杂的时候，你会有疑问：为什么有这么多东西要重复呢？ 所以一般我们把一些简单的操作独立出来，写成类或者函数放进包含文件(include)。 那么以上的操作我们可以使用两个文件来实现： conn.asp <% db_path="database/cnbruce.mdb" Setconn=Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db_path) conn.Openconnstr %> showit.asp <!--#includefile="conn.asp"--> <% Setrs=Server.CreateObject("ADODB.Recordset") sql="Select*fromcnarticle" rs.Opensql,conn,1,1 ifrs.EOFandrs.BOFthen response.write("暂时还没有文章") else DoUntilrs.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 endif rs.close Setrs=Nothing conn.close setconn=Nothing %> 参考：http://www.cnbr*u**ce.com/blog/showlog.asp?cat_id=26&log_id=448 现在相对简单多了，如果有多个操作页面我们只要导入连接文件就可以了，不过还是不够简洁，哪里不简洁？ 一直在创建server，一直在写close，这样很容易出错，并且看起来与内容无关的太多。 那我再改进下： 把conn.asp文件改成：复制代码 代码如下:<% DimConn DimRs SubCloseDatabase Conn.close SetConn=Nothing EndSub SubOpenDatabase DimStrServer,StrUid,StrSaPwd,StrDbName StrServer="192.168.1.1"'数据库服务器名 StrUid="sa"'您的登录帐号 StrSaPwd=""'您的登录密码 StrDbName="cnbruce.mdb"'您的数据库名称 SetConn=Server.CreateObject("ADODB.Connection") '用于连接ACCESS Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(StrDbName) '用于连接MSSQL 'Conn.ConnectionString="Driver={sqlserver};driver={SQLserver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName setrs=server.CreateObject("ADODB.RecordSet") conn.open ifErrThen err.Clear SetConn=Nothing GBL_CHK_TempStr=GBL_CHK_TempStr&"数据库连接错误!" Response.WriteGBL_CHK_TempStr Response.End EndIf EndSub %>123下一页阅读全文