<% Class UserInfo Private mintId PublicPropertyLet UserId(intUserId) mintId = intUserId End Property PublicPropertyGet UserId() UserId=mintId End Property Private mstrName PublicPropertyLet UserName(strName) mstrName = strName End Property PublicPropertyGet UserName() UserName = mstrName End Property Private mintAge PublicPropertyLet UserAge(intAge) mintAge=intAge End Property PublicPropertyGet UserAge() UserAge = mintAge End Property End Class %>
数据访问层类
<!--#include file="Model.asp"--> <!--#include file="DBHelper.asp"--> <% Class UserDAL PublicSub InsertUser(objUserInfo) strInsertSql="insert into Users (UserName,UserAge) values ('"&objUserInfo.UserName &_ "',"& objUserInfo.UserAge &")" DB.ExecuteNonQuery(strInsertSql) End Sub PublicSub DeleteUser(intUserId) strDeleteSql="delete from Users where UserId="& intUserId DB.ExecuteNonQuery(strDeleteSql) End Sub PublicSub UpdateUser(objUserInfo) strUpdateSql="update Users set UserName='"& objUserInfo.UserName &"',UserAge="& objUserInfo.UserAge &_ " where UserId="& objUserInfo.UserId DB.ExecuteNonQuery(strUpdateSql) End Sub PublicFunction GetAllUser() strSelectSql="select * from Users" Set rs=DB.ExecuteQuery(strSelectSql) Set dic=Server.CreateObject("Scripting.Dictionary") Whilenot rs.eof Set user=CreateUser(rs) dic.Add user.UserId,user rs.MoveNext wend rs.Close Set rs=nothing Set GetAllUser=dic End Function PublicFunction 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 PrivateFunction 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 PrivateSub 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 PrivateSub Class_Terminate conn.Close() Set conn=nothing End Sub PublicFunction ExecuteQuery(strSql) Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSql,conn,1,1 Set ExecuteQuery=rs End Function PublicSub ExecuteNonQuery(strSql) conn.Execute(strSql) End Sub End Class Set DB=new DBHelper %>
业务层类
<!--#include file="DAL.asp"--> <% Class UserBLL PublicFunction InsertUser(objUserInfo) IfnotIsNumeric(objUserInfo.UserAge) Then InsertUser="年龄必需是数字!" Else UserDao.InsertUser(objUserInfo) InsertUser="添加用户成功！" EndIf End Function PublicFunction DeleteUser(intUserId) IfIsNumeric(intUserId) Then UserDao.DeleteUser(intUserId) DeleteUser="删除用户成功！" EndIf End Function PublicFunction UpdateUser(objUserInfo) IfnotIsNumeric(objUserInfo.UserAge) Then UpdateUser="年龄必需是数字!" Else UserDao.UpdateUser(objUserInfo) UpdateUser="更新用户成功!" EndIf End Function PublicFunction GetAllUser() Set GetAllUser=UserDao.GetAllUser() End Function PublicFunction GetUserById(intUserId) Set GetUserById=UserDao.GetUserById(intUserId) End Function End Class Set UserManager=new UserBLL %>