大家都知道JAVA裡最流行的是MVC模型的編程方式，如果你不知道MVC的概念，可以去網上搜尋下，應該會馬上找到N多資料。PHP5推出之後，也開始使用MVC模式開發，看來MVC確實有很大的吸引力！
我在平時開發ASP項目的時候，也借鑒了JAVA的這個開發模式，雖然實現的不是很好，但也使代碼結構清晰了不少，大大方便了美工修改程式！
下面是My Code，具體說明看注釋。
程式主要實現是後台管理員的操作：添加，刪除，修改
分兩個程式，adminusers_class.asp，adminusers_gl.asp
相當於JAVA力一個servlet，一個bean！所以沒有完全的實現MVC，只是類比了一下！
adminusers_class.asp代碼如下：
<%
rem *****************通用網站管理系統***********************************
rem 頁面功能：網站後台管理員管理類
rem @author 蔡曉亮
rem @version 1.0
rem @date 2005-2-22
%>
<!--#include file="conn.asp"-->
<%
'管理員管理類
Class AdminUsersGl
Dim ASO
Private adminuser_name
Private adminuser_password
Private admingroup_id
Private adminuser_isshow
Private adminuser_selfconfig
Private adminuser_realname
'建構函式開始
Private Sub Class_Initialize
Set ASO=Server.CreateObject("Adodb.RecordSet")
End Sub
'解構函式開始
Private Sub Class_Terminate
Err.Clear
Set ASO=Nothing
End Sub
'添加管理員
Public Function AdminUsers_Add(adminuser_name,adminuser_password,admingroup_id,adminuser_realname,adminuser_selfconfig,adminuser_isshow,adminuser_language)
sql="select adminuser_name from ce_adminusers where adminuser_name='"&adminuser_name&"'"
ASO.Open sql,conn,1,3
if ASO.RecordCount<>0 then
Response.Redirect("messages.asp?mess_name=DATA_ADD_FAILURE&back_page=adminusers_gl.asp?action=add")
end if
if ASO.RecordCount=0 then
ASO.Close
sql="insert into ce_adminusers(adminuser_name,adminuser_password,admingroup_id,adminuser_realname,adminuser_selfconfig,adminuser_isshow,adminuser_language) values('"&adminuser_name&"','"&adminuser_password&"',"&admingroup_id&",'"&adminuser_realname&"','"&adminuser_selfconfig&"','"&adminuser_isshow&"','"&adminuser_language&"')"
