易截截图软件、单文件、免安装、纯绿色、仅160KB

MVC三层架构在ASP中的应用


前段时间读了不少关于MVC的文章,试着在ASP中应用了一下,发现对于小程序,代码量会大幅度增加,但是逻辑清晰,数据封装很合理,以前需要仔细规划的代码复用竟然成了理所当然的事情。
所谓MVC,即Model(模型),View(视图),Control(控制)三层架构。各部分各司其职,Model即底层构架,包含与数据库连接的部分,View即UI展示部分,与用户直接打交道,Control即控制层,负责接收View的请求并做适当预处理后交由Model处理,然后接收Model返回值并做格式化处理返回View层。简单地说,Model直接与系统底层如数据库等打交道,而不管数据出去后如何用,View只负责请求和展示数据,而不管详细流程,Control分别与View和Model打交道,并负责数据的验证、格式化等工作。
写了一个获取用户资料的ASP中应用:
先写Model层,定义数据库地址,打开连接数据库,获取记录。
在写Model层之前定义了两个类:Cls_Config整站设置,包括数据库地址;Cls_DatabaseModel,负责打开关闭数据库连接。
Cls_ConfigModel.asp代码如下:
<%
Class Cls_ConfigModel
    Private i_datapath,i_sitename,i_sitedomain,i_mastermail
    Private Sub Class_Initialize()
        i_datapath="mytdata\mytdata2.mdb"
        i_sitename="中国地质大学(武汉)民族乐团官方网站"
        i_sitedomain="www.cugmyt.cn"
        i_mastermail="master@cugmyt.cn"
    End Sub
    Public property get DataPath
        DataPath=server.MapPath(i_datapath)
    End property
    Public property get SiteName
        SiteName=i_sitename
    End property
    Public property get SiteDomain
        SiteDomain=i_sitedomain
    End property
    Public property get MasterMail
        MasterMail=i_mastermail
    End property
End Class
%>
Cls_DatabaseModel.asp代码如下:
<!--#include file="cls_configmodel.asp" -->
<!


相关文档:

ASP.NET之四——ASP.NET DEV

上下文对象
===================================
一种对象,它当MTS服务器组件在一个活动中运行时跟踪该组件的属性,包括被跟踪组件的激活状态、安全信息、事务处理状态(如果存在)等。这样就免除了让组件去跟踪其自身状态。
上下文对象是web服务器上基于web应用的一个背景环境对象,上下文对象提供了一个同一web应用 ......

ASP循环语句之do...loop语句

本文链接:http://www.oversteper.com/wprogram/asp/830.html
do ... loop 语句两种格式的示例
do whil ... loop :
以下为引用内容:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt ......

asp 小偷 采集 类 函数 常用 必须 截取 编码转换

<%
'==================================================
'函数名:GetHttpPage
'作 用:获取网页源码
'参 数:HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......

ASP通过VBA方式调用EXCEL模版生成新的EXCEL (转)

<%
 '1、创建EXCEL对像
  set objExcelApp = CreateObject("Excel.Application")
  objExcelApp.DisplayAlerts = false '不显示警告
  objExcelApp.Application.Visible = false '不显示界面
  '2、 新建Excel文件
  objExcelApp.WorkBooks.add
  set objExcelBook = ob ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号