接下來我利用一點空余時間發一個函數里面包含和添加和刪除功能。實驗的架構可以使用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
%>
