asp也玩三层架构(有源代码)

实体类

<%
Class UserInfo
    Private mintId
    Public Property Let UserId(intUserId)
        mintId = intUserId
    End Property
    Public Property Get UserId()
        UserId=mintId
    End Property
    Private mstrName
    Public Property Let UserName(strName)
            mstrName = strName
    End Property

    Public Property Get UserName()
            UserName = mstrName
    End Property

    Private mintAge
    Public Property Let UserAge(intAge)
            mintAge=intAge
    End Property
    Public Property Get UserAge()
        UserAge = mintAge
    End Property
End Class
%>

数据访问层类

Class UserDAL

Public Sub InsertUser(objUserInfo)

strInsertSql="insert into Users (UserName,UserAge) values ('" &objUserInfo.UserName &_

"',"& objUserInfo.UserAge &")"

DB.ExecuteNonQuery(strInsertSql)

End Sub

Public Sub DeleteUser(intUserId)

strDeleteSql="delete from Users where UserId="& intUserId

DB.ExecuteNonQuery(strDeleteSql)

End Sub

Public Sub UpdateUser(objUserInfo)

strUpdateSql="update Users set UserName='"& objUserInfo.UserName &"',UserAge="& objUserInfo.UserAge &_

" where UserId="& objUserInfo.UserId

DB.ExecuteNonQuery(strUpdateSql)

End Sub

Public Function GetAllUser()

strSelectSql="select * from Users"

Set rs=DB.ExecuteQuery(strSelectSql)

Set dic=Server.CreateObject("Scripting.Dictionary")

While not rs.eof

Set user=CreateUser(rs)

dic.Add user.UserId,user

rs.MoveNext

wend

rs.Close

Set rs=nothing

Set GetAllUser=dic

End Function

Public Function GetUserById(intUserId)

strSelectSql="select * from Users where UserId="&intUserId

Set rs=DB.ExecuteQuery(strSelectSql)

Set user=CreateUser(rs)

rs.Close

Set rs=nothing

Set GetUserById=user

End Function

Private Function CreateUser(rs)

Set user=new UserInfo

user.UserId=rs("UserId")

user.UserName=rs("UserName")

user.UserAge=rs("UserAge")

Set CreateUser=user

End Function

End Class

Set UserDao=new UserDAL

用到的DBHelper类

Class DBHelper

Private conn

Private Sub Class_Initialize

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DB.mdb")

Set conn=Server.CreateObject("ADODB.Connection" )

conn.Open(strConn)

End Sub

Private Sub Class_Terminate

conn.Close()

Set conn=nothing

End Sub

Public Function ExecuteQuery(strSql)

Set rs=Server.CreateObject("ADODB.RecordSet")

rs.Open strSql,conn,1,1

Set ExecuteQuery=rs

End Function

Public Sub ExecuteNonQuery(strSql)

conn.Execute(strSql)

End Sub

End Class

Set DB=new DBHelper

业务层类

Class UserBLL

Public Function InsertUser(objUserInfo)

If not IsNumeric(objUserInfo.UserAge) Then

InsertUser="年龄必需是数字!"

Else

UserDao.InsertUser(objUserInfo)

InsertUser="添加用户成功！"

End If

End Function

Public Function DeleteUser(intUserId)

If IsNumeric(intUserId) Then

UserDao.DeleteUser(intUserId)

DeleteUser="删除用户成功！"

End If

End Function

Public Function UpdateUser(objUserInfo)

If not IsNumeric(objUserInfo.UserAge) Then

UpdateUser="年龄必需是数字!"

Else

UserDao.UpdateUser(objUserInfo)

UpdateUser="更新用户成功!"

End If

End Function

Public Function GetAllUser()

Set GetAllUser=UserDao.GetAllUser()

End Function

Public Function GetUserById(intUserId)

Set GetUserById=UserDao.GetUserById(intUserId)

End Function

End Class

Set UserManager=new UserBLL

下面是表示层代码
显示所有User

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>无标题文档</title>

</head>

<body>

<label>姓名:

年龄：

</label>

<tr>

<td width="56">UserId</td>

<td width="74">UserName</td>

<td width="65">UserAge</td>

</tr>

<%Set users=UserManager.GetAllUser()

For Each user in users.Items

<tr>

</tr>

</table>

</form>

</body>

</html>

其他的添加删除修改，页面不贴了。可以下载/Files/xhan/asp.rar