易截截图软件、单文件、免安装、纯绿色、仅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的应用程序域(The Application Domain)

 应用程序域是通过CLR强制界定的确保应用程序间不相互影响的地址空间,它具有以下特征
 1.一个独立的Web应用程序的所有Web页共享相同的内存资源,例如全局的应用程序数据,每个用户的Session数据以及缓存数据。这些信息不能被其他的ASP.Net或ASP应用程序直接访问。
 2.一个独立的Web应用程序所有Web页共 ......

ASP加密

给你一个微软的加密好东东:  
  Script   Encoder   下载地址:  
http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe
  Windows   Script   Engine   5.0    
  Windows ......

ASP连接SQLite数据库一例

要用ASP来操作SQLite数据库,前提条件是在服务器上得安装SQLite的ODBC驱动程序,可到这个站点上下载安装:http://www.ch-werner.de/sqliteodbc/,安装好后就可以像使用Access一样来使用SQLite了!下边是一个SQLite数据库结构:
引用内容
Create TABLE admin(username text,age integer);
我们再来用ASP演示下如何对SQLi ......

Asp中隐藏下载地址

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '传参
strFileName="/files/"&strFileName    ' 改成你你文件的存 ......

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

<%
'==================================================
'函数名:GetHttpPage
'作 用:获取网页源码
'参 数:HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号