实体类

<%

Class UserInfo

    Private mintId

    Public Property Let UserId(intUserId)

        mintId = intUserId

    End Property

    Public Property Get UserId()

        UserId=mintId

    End Property

    Private mstrName

    Public Property Let UserName(strName)

            mstrName = strName

    End Property

    Public Property Get UserName()

            UserName = mstrName

    End Property

    Private mintAge

    Public Property Let UserAge(intAge)

            mintAge=intAge

    End Property

    Public Property Get UserAge()

        UserAge = mintAge

    End Property

End Class

%>

　　数据访问层类

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

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

<%

Class UserDAL

    Public Sub InsertUser(objUserInfo)

        strInsertSql="insert into Users (UserName,UserAge) values ('" &objUserInfo.UserName &_

            "',"& objUserInfo.UserAge &")"

        DB.ExecuteNonQuery(strInsertSql)

    End Sub

    Public Sub DeleteUser(intUserId)

        strDeleteSql="delete from Users where UserId="& intUserId

        DB.ExecuteNonQuery(strDeleteSql)

    End Sub

    Public Sub UpdateUser(objUserInfo)

        strUpdateSql="update Users set UserName='"& objUserInfo.UserName  &"',UserAge="& objUserInfo.UserAge &_

            " where UserId="& objUserInfo.UserId

        DB.ExecuteNonQuery(strUpdateSql)

    End Sub

    Public Function GetAllUser()

        strSelectSql="select * from Users"

        Set rs=DB.ExecuteQuery(strSelectSql)

        Set dic=Server.CreateObject("Scripting.Dictionary")

        While not rs.eof

            Set user=CreateUser(rs)

            dic.Add user.UserId,user

            rs.MoveNext

        wend

        rs.Close

        Set rs=nothing

        Set GetAllUser=dic

    End Function

    Public Function GetUserById(intUserId)

        strSelectSql="select * from Users where UserId="&intUserId

        Set rs=DB.ExecuteQuery(strSelectSql)

        Set user=CreateUser(rs)

        rs.Close

        Set rs=nothing

        Set GetUserById=user

    End Function

    Private Function CreateUser(rs)

        Set user=new UserInfo

        user.UserId=rs("UserId")

        user.UserName=rs("UserName")

        user.UserAge=rs("UserAge")

        Set CreateUser=user

    End Function

End Class

Set UserDao=new UserDAL

%>

　　用到的DBHelper类

<%

Class DBHelper

    Private conn

    Private Sub Class_Initialize

        strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb")

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

        conn.Open(strConn)

    End Sub

    Private Sub Class_Terminate

        conn.Close()

        Set conn=nothing

    End Sub

    Public Function ExecuteQuery(strSql)

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

        rs.Open strSql,conn,1,1

        Set ExecuteQuery=rs

    End Function

    Public Sub ExecuteNonQuery(strSql)

        conn.Execute(strSql)

    End Sub

End Class

Set DB=new DBHelper

%>

　　业务层类

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

<%

Class UserBLL

    Public Function InsertUser(objUserInfo)

        If not IsNumeric(objUserInfo.UserAge) Then

            InsertUser="年龄必需是数字!"

        Else

            UserDao.InsertUser(objUserInfo)

            InsertUser="添加用户成功！"

        End If

    End Function

    Public Function DeleteUser(intUserId)

        If IsNumeric(intUserId) Then

            UserDao.DeleteUser(intUserId)

            DeleteUser="删除用户成功！"

        End If

    End Function

    Public Function UpdateUser(objUserInfo)

        If not IsNumeric(objUserInfo.UserAge) Then

            UpdateUser="年龄必需是数字!"

        Else

            UserDao.UpdateUser(objUserInfo)

            UpdateUser="更新用户成功!"

        End If

    End Function

    Public Function GetAllUser()

        Set GetAllUser=UserDao.GetAllUser()

    End Function

    Public Function GetUserById(intUserId)

        Set GetUserById=UserDao.GetUserById(intUserId)

    End Function

End Class

Set UserManager=new UserBLL

%>

下面是表示层代码
显示所有User

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>无标题文档</title>

</head>

<body>

<form id="form1" name="form1" method="post" action="DoInsertUser.asp">

  <label>姓名:

  <input type="text" name="Name" />

  年龄：

  <input type="text" name="Age" />

  <input type="submit" name="Submit" value="添加" />

  </label>

  <table width="361" border="1">

  <tr>

    <td width="56">UserId</td>

    <td width="74">UserName</td>

    <td width="65">UserAge</td>

    <td width="73"> </td>

    <td width="59"> </td>

  </tr>

  <%Set users=UserManager.GetAllUser()

  For Each user in users.Items

  %>

    <tr>

    <td><%=user.UserId%></td>

    <td><%=user.UserName%></td>

    <td><%=user.UserAge%></td>

    <td><a href="EditUser.asp?UserId=<%=user.UserId%>">编辑</a></td>

    <td><a href="DoDeleteUser.asp?UserId=<%=user.UserId%>">删除</a></td>

  </tr>

  <%

  Next

  %>

</table>

</form>

</body>

</html>

　　

asp也玩三层架构(有源代码)的更多相关文章

  1. ASP.NET的三层架构(DAL,BLL,UI)

    ASP.NET的三层架构(DAL,BLL,UI) BLL   是业务逻辑层   Business   Logic   Layer DAL   是数据访问层   Data   Access   Laye ...

  2. Asp.Net MVC三层架构之autofac使用教程

    开发环境:vs2015..net4.5.2.mvc5.ef6 Autofac简介 IOC控制反转(Inversion of Control,缩写为IOC),Autofac是一个开源的依赖注入框架,Au ...

  3. Asp.Net之三层架构

    三层架构之理论: 通常意义上讲的三层架构就是将整个项目应用划分为:表现层(UI),业务逻辑层(BLL),数据访问层(DAL).与传统的二层架构的区别在于在用户界面(UI)和数据库服务器之间,添加中间层 ...

  4. asp.net中三层架构与mvc之区别？

    对于标题中的问题,如果是没有同时接触三层架构和mvc的初级.net开发人员,想必一定会非常糊涂和混淆.关于此我也百度过N回,看过N多帖子和 回答,但几乎没有人能表述清楚.近期我从典型mvc+entit ...

  5. ASP.NET创建三层架构图解详细教程

    1.新建项目 2.创建Visual Studio解决方案 3.再创建项目 4.选择类库类型 5.依次创建bll(业务逻辑层),dal(数据访问层)和model(模型层也可以叫实体层) 6.添加一个网站 ...

  6. asp.net 3.三层架构

    1.新建项目和类库 CZBK.ItcastProject (空白项目) CZBK.ItcastProject.BLL (类库) -- 逻辑业务 CZBK.ItcastProject.Common (类 ...

  7. ASP.NET三层架构的分析

    BLL   是业务逻辑层   Business   Logic   Layer DAL   是数据访问层   Data   Access   Layer ASP.NET的三层架构(DAL,BLL,UI ...

  8. MVC项目实践,在三层架构下实现SportsStore-02,DbSession层、BLL层

    SportsStore是<精通ASP.NET MVC3框架(第三版)>中演示的MVC项目,在该项目中涵盖了MVC的众多方面,包括:使用DI容器.URL优化.导航.分页.购物车.订单.产品管 ...

  9. ASP.Net MVC+EF架构

    ASP.Net MVC是UI层的框架,EF是数据访问的逻辑. 如果在Controller中using DbContext,把查询的结果的对象放到cshtml中显示,那么一旦在cshtml中访问关联属性 ...

随机推荐

  1. 「LOJ#10015」「一本通 1.2 练习 2」扩散（并查集

    题目描述 一个点每过一个单位时间就会向 444 个方向扩散一个距离,如图所示:两个点 a .b 连通,记作 e(a,b),当且仅当 a .b的扩散区域有公共部分.连通块的定义是块内的任意两个点 u.v ...

  2. pycharm常用快捷键和自定义快捷键

     默认快捷键 编辑类: Ctrl + Space 基本的代码完成(类.方法.属性)Ctrl + Alt + Space 类名完成Ctrl + Shift + Enter 语句完成Ctrl + P 参数 ...

  3. Win32编程点滴3 - 简单ActiveX控件的使用

    虽然这里一片的.net气氛,到处充斥着像MVC.WPF.WorkFlow.LINQ等各种niubility的术语.但我们使用的Windows还是由COM技术主宰着:我们在选择日常使用的软件时,也会避免 ...

  4. BZOJ2599：[IOI2011]Race

    浅谈树分治:https://www.cnblogs.com/AKMer/p/10014803.html 题目传送门:https://www.lydsy.com/JudgeOnline/problem. ...

  5. linear_classifier.py

    import numpy as np from cs231n.classifiers.linear_svm import * from cs231n.classifiers.softmax impor ...

  6. could not get wglGetExtensionsStringARB

    第一种解释: 现象: 启动应用程序时,在Emulator中,提示"could not get wglGetExtensionsStringARB". 原因分析: device sp ...

  7. 读取关联数据（EF Core2.1.1）

    对象-关系映射框架比如EF有三种 方式使用 模型中的导航属性来加载关联数据. 一..Lazy Loading.(关联数据在访问导航属性时被透明的加载,不需要特别的代码,自动的加载) 当一个实体第一次读 ...

  8. Struts2 基础典型应用

    例子 下面就是运用Struts2 实现的例子的运行效果 输入正确名字 不输入直接点击提交按钮 在首页面中输入名称,点击提交按钮,显示欢迎界面. 如果没有名称,点击提交按钮,就显示错误界面. ===== ...

  9. Linux系统调用及其效率

    操作系统相关概念: 操作系统---管理计算机硬件与软件资源的软件,是用户与系统操作交互的接口,为在它上面运行的程序提供服务. 操作系统内核 ----操作系统的核心.负责管理系统的进程.内核.设备驱动程 ...

  10. js引用类型的赋值

    在开发中,有时候需要将数组或者对象的值赋予其他另一个变量,但是两个变量之间会相互影响,因为在将引用类型的值赋给其他变量时,赋予的其实是内存中的存储地址 var arr = [1,2,3,4,5] va ...