一般來說編資料庫類別的程式主要要解決的問題無非是添加，刪除，修改和查詢。這類程式設計都非常的簡單。接下來我利用一點空餘時間發一個函數裡麵包含和新增和刪除功能。實驗的架構可以使用IIS.5WEB伺服器ACCESS資料庫。這個我其實不用說的很詳細了，因為大家都應該知道的。我就直接把函數貼出來。大家只要稍微修改即可使用。
複製代碼代碼如下:
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString(Action)
if Action=SaveEdit then '儲存編輯管理員訊息
set rs = server.createobject(adodb.recordset)
if Result=Add then '建立網站管理員
set rsCheckAdd = conn.execute(select AdminName from Ameav_Admin where AdminName=' & trim(Request.Form(AdminName)) & ')
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名稱是否存在
response.write <script language=javascript><!--
alert(' & trim(Request.Form(AdminName)) & 管理者已經存在，請換一個登入名稱再試一次！');history.back(-1);
// --></script>
response.end
end if
sql=select * from Ameav_Admin
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form(AdminName)))<3 or len(trim(Request.Form(Password)))>10 then
response.write <script language=javascript><!--
alert('管理員登入名稱必填，且字元數為3-10位元！');history.back(-1);
// --></script>
response.end
end if
if len(trim(Request.Form(Password)))<6 or len(trim(Request.Form(Password)))>16 then
response.write <script language=javascript><!--
alert('管理員密碼必填，且字元數為6-16位元！');history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>
response.end
end if
rs(AdminName)=trim(Request.Form(AdminName))
if Request.Form(Working)=1 then
rs(Working)=Request.Form(Working)
else
rs(Working)=0
end if
rs(Password)=Md5(Request.Form(Password))
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_
Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_
Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_
Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_
Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_
Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_
Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_
Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_
Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_
Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_
Request.Form(Purview153)
rs(Explain)=trim(Request.Form(Explain))
rs(AddTime)=now()
end if
if Result=Modify then '修改網站管理員
sql=select * from Ameav_Admin where ID=&ID
rs.open sql,conn,1,3
rs(AdminName)=trim(Request.Form(AdminName))
if Request.Form(Working)=1 then
rs(Working)=Request.Form(Working)
else
rs(Working)=0
end if
if trim(Request.Form(Password))<> then
if len(trim(Request.Form(Password)))<6 or len(trim(Request.Form(Password)))>20 then
response.write <script language=javascript><!--
alert('管理員密碼必填，且字元數為6-20位元！');history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>
response.end
end if
rs(Password)=Md5(Request.Form(Password))
end if
rs(UserName)=trim(Request.Form(UserName))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_
Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_
Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_
Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_
Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_
Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_
Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_
Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_
Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_
Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_
Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_
Request.Form(Purview153)
rs(Explain)=trim(Request.Form(Explain))
end if
rs.update
rs.close
set rs=nothing
response.write <script language=javascript><!--
alert('成功編輯網站管理員！');changeAdminFlag('網站管理員');location.replace('AdminList.asp');
// --></script>
else '提取管理員資訊
if Result=Modify then
set rs = server.createobject(adodb.recordset)
sql=select * from Ameav_Admin where ID=& ID
rs.open sql,conn,1,1
AdminName=rs(AdminName)
Working=rs(Working)
UserName=rs(UserName)
Purview=rs(AdminPurview)
Explain=rs(Explain)
rs.close
set rs=nothing
end if
end if
end sub
%>