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='"&password&"'"
 set rs=server.createobject("adodb.recordset")
 rs.open StrSQL,conn,1,1
 If rs.EOF then
  response.write("<script>alert('用户名或密码错误');history.back();</script>")
  response.End()
 else
  response.Write( "<script>location.href='IP_Address.asp'</script>") 
  response.End()   
 End If  ......

'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
   function checkAll(){
   for (i=0;i<document.forms[0].length;i++){
    if (document.forms[0][i].tagName=="INPUT"){
    if (document.forms[0][i].type=="radio")
     {document.forms[0][i].checked="checked"}
    }
   }
   }
</script>
<style type="text/css">
<!--
.STYLE1 {
 color: #CC3300;
 font-size: 13px;
 font-family: "宋体";
 font-weight: bold;
}
.STYLE5 {
 font-family: "宋体";
 color: #FF0000;
}
.STYLE7 {
 font-family: "宋体";
 font-size: 13px;
}
-->
</style>
<script language="javascript">
<!--
function checkform1()
......

'-------------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>
<script>
   function checkAll(){
   for (i=0;i<document.forms[0].length;i++){
    if (document.forms[0][i].tagName=="INPUT"){
    if (document.forms[0][i].type=="radio")
     {document.forms[0][i].checked="checked"}
    }
   }
   }
</script>
<style type="text/css">
<!--
.STYLE1 {
 color: #CC3300;
 font-size: 13px;
 font-family: "宋体";
 font-weight: bold;
}
.STYLE5 {
 font-family: "宋体";
 color: #FF0000;
}
.STYLE7 {
 font-family: "宋体";
 font-size: 13px;
}
-->
</style>
<form name="form1" method="post" action="folder-action.asp">
<%
AttPath=Request.Que ......

'--------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<script>
   function checkAll(){
   for (i=0;i<document.forms[1].length;i++){
    if (document.forms[1][i].tagName=="INPUT"){
    if (document.forms[1][i].type=="checkbox")
     {document.forms[1][i].checked="checked"}
    }
   }
   }
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<form name="form2" action="delf.asp" method="post" onsubmit="if (confirm('是否删除选择的文件或文件夹')) {return true} else {return false}">
<input type="hidden" name="whatdo" value="DelFiles"/>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#ff9600" colspan="5"height="2"></td>
  </tr><%
AttPat ......

 <% 
Function Zodiac(birth) 
If IsDate(birth) Then 
birthyear = Year(birthday) 
ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊") 
Zodiac = ZodiacList(birthyear Mod 12) 
End If 
End Function 
%> ......

    直奔主题.
    目前在维护一套大型的ASP售后系统(2000多个asp page),代码是2001年出来的,期间多年未做更新,代码中参杂多个程序员的风格,结构上只是简单的将main function 集中起来,将复杂的sql集中起来. 页面上相当混乱.
    没有简单地去转向.net环境,因为这个系统使用得比较频繁,加上一些人事上的因素.
    所以我试图用asp建立一个三层架构的开发模式来统御整个系统,前后几个月间,改进了很多方案和规则,如今形成了一个稍显成熟的三层架构的基础框架. 看到还有很多同仁在使用ASP做开发,所以拿出来与大家共享.
    最先尝试三层架构的系统,是我另外私人开发的一个小项目,名叫Appdb,用于管理程序功能和数据库表的文档信息,及其之间的关联信息,本系列将使用这个项目作为例码展示,希望这个系列做完以后,大家也可以建起自己的appdb系统.
    平时工作比较忙,在讲完三层架构的基本规则后,实现代码的部分会更新慢一些.
    阅读本系列,需要asp比较纯熟,并且熟悉一些面向对象的基本概念,了解一点三层架构的常识就可以了. ......