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" -->
<!
相关文档：
上下文对象
===================================
一种对象，它当MTS服务器组件在一个活动中运行时跟踪该组件的属性，包括被跟踪组件的激活状态、安全信息、事务处理状态（如果存在）等。这样就免除了让组件去跟踪其自身状态。
上下文对象是web服务器上基于web应用的一个背景环境对象，上下文对象提供了一个同一web应用 ......
Perl、PHP、ASP、JSP技术比较
本文将对目前最常用的四种动态网页语言Perl（Practical Extraction and Report Language）、PHP（Hypertext Preprocessor）、ASP（Active Server Pages）、JSP（JavaServer Pages）进行一些技术性的比较。
Perl
Perl（Practical Extraction and Report Language）是一种很古老的脚� ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
本文链接：http://www.oversteper.com/wprogram/asp/827.html
条件语句之 if ... then ... else 语句
用来判断条件是 true 或 false ，并根据判断结果来执行指定的语句，通常条件是用比较运算符对值或变量进行比较来表达。
if ... then ... else 可以根据需要进行嵌套使用，可以写成 elseif 。
示例：
以下� ......
<%
'==================================================
'函数名：GetHttpPage
'作 用：获取网页源码
'参 数：HttpUrl ------网页地址
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
