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" -->
<!
相关文档：
应用程序域是通过CLR强制界定的确保应用程序间不相互影响的地址空间，它具有以下特征
1．一个独立的Web应用程序的所有Web页共享相同的内存资源，例如全局的应用程序数据，每个用户的Session数据以及缓存数据。这些信息不能被其他的ASP.Net或ASP应用程序直接访问。
2．一个独立的Web应用程序所有Web页共 ......
禁止站外提交表单的asp代码如下：
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '缓存图片
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '建立下载对象
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '开始获取图片,http://xxx/png这节可以改成� ......
session
===================================
session对象用于存储特定的用户会话所需的信息 。 Session对象的引入是为了弥补HTTP协议的不足，HTTP协议是一种无状态的协议。
Session中文是“会话”的意思，在ASP中代表了服务器与客户端之间的“会话”。Session的作用时间从用户到达某个特定的 ......
<%
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 ' 改成你你文件的存 ......
