[ASP中使用三层架构] 1.前言
直奔主题.
目前在维护一套大型的ASP售后系统(2000多个asp page),代码是2001年出来的,期间多年未做更新,代码中参杂多个程序员的风格,结构上只是简单的将main function 集中起来,将复杂的sql集中起来. 页面上相当混乱.
没有简单地去转向.net环境,因为这个系统使用得比较频繁,加上一些人事上的因素.
所以我试图用asp建立一个三层架构的开发模式来统御整个系统,前后几个月间,改进了很多方案和规则,如今形成了一个稍显成熟的三层架构的基础框架. 看到还有很多同仁在使用ASP做开发,所以拿出来与大家共享.
最先尝试三层架构的系统,是我另外私人开发的一个小项目,名叫Appdb,用于管理程序功能和数据库表的文档信息,及其之间的关联信息,本系列将使用这个项目作为例码展示,希望这个系列做完以后,大家也可以建起自己的appdb系统.
平时工作比较忙,在讲完三层架构的基本规则后,实现代码的部分会更新慢一些.
阅读本系列,需要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中的三大通用类,它贯穿于我所设计的三层架构中,是对ASP语法的扩展,可以提高很多细节处理上的效率,可以算是一点点框架的味道.
& ......
记得在建立一个文件夹"updata"
saveannounce_upload.asp 上传页
------------------------------------
<html>
<head>
<style type="text/css
">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>文件上传</title>
</head& ......
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '不显示警告
'xlApp.Application = false ......
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&passwor ......
