• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp快速开发方法之数据操作实例代码第1/3页
    这是我自己的心得,给大家作个参考。
    我的目的是让开发变得简单,尽可能少地考虑实现语句,更多地把精力用于思考业务逻辑。希望我的文章对大家有所启发和帮助。
    如果你对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=26log_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
    conn.close 
    set conn=Nothing
    %>
    参考:http://www.cnbruce.com/blog/showlog.asp?cat_id=26log_id=448

    现在相对简单多了,如果有多个操作页面我们只要导入连接文件就可以了,不过还是不够简洁,哪里不简洁?
    一直在创建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
    %>

    123下一页阅读全文
    上一篇:asp Chr 函数 数字转字母的方法
    下一篇:asp去除所有的超级链接的两种方法 替换与正则
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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