Generally speaking, the main problems to be solved when writing database programs are nothing more than adding, deleting, modifying and querying. This type of programming is very simple. Next, I will use some spare time to create a function that contains the adding and deleting functions. The experimental architecture can use the IIS.5WEB server ACCESS database. I actually don’t need to go into detail about this, because everyone should know it. I'll just post the function directly. Everyone can use it with only slight modifications.
Copy the code code as follows:
<%
subAdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString(Action)
if Action=SaveEdit then 'Save the edited administrator information
set rs = server.createobject(adodb.recordset)
if Result=Add then 'Create website administrator
set rsCheckAdd = conn.execute(select AdminName from Ameav_Admin where AdminName=' & trim(Request.Form(AdminName)) & ')
if not (rsCheckAdd.bof and rsCheckAdd.eof) then 'Determine whether this administrator name exists
response.write <script language=javascript><!--
alert(' & trim(Request.Form(AdminName)) & The administrator already exists, please try again with a different login name!');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('The administrator login name is required and the number of characters must be 3-10 characters!');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('The administrator password is required and the number of characters must be 6-16 characters!');history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert('The passwords entered twice are different!');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 'Modify website administrator
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('The administrator password is required and must be 6-20 characters!'); history.back(-1);
// --></script>
response.end
end if
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <script language=javascript><!--
alert('The passwords entered twice are different!');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('Successfully edited website administrator!'); changeAdminFlag('website administrator'); location.replace('AdminList.asp');
// --></script>
else 'Extract administrator information
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
%>