일반적으로 데이터베이스 프로그램을 작성할 때 해결해야 할 주요 문제는 추가, 삭제, 수정 및 쿼리에 지나지 않습니다. 이러한 유형의 프로그래밍은 매우 간단합니다. 다음에는 약간의 시간을 들여 추가 및 삭제 기능이 포함된 함수를 만들어 보겠습니다. 실험적 아키텍처는 IIS.5WEB 서버 ACCESS 데이터베이스를 사용할 수 있습니다. 사실 이 내용은 모두가 알아야 하기 때문에 자세히 설명할 필요는 없습니다. 함수를 직접 게시하겠습니다. 약간의 수정만 하면 누구나 사용할 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<%
하위관리편집()
희미한 작업,rsCheckAdd,rs,sql
작업=request.QueryString(작업)
if Action=SaveEdit then '편집된 관리자 정보를 저장합니다.
rs = server.createobject(adodb.recordset) 설정
if Result=Add then '웹사이트 관리자 생성
rsCheckAdd = conn.execute(Ameav_Admin에서 AdminName 선택, 여기서 AdminName=' & Trim(Request.Form(AdminName)) & ')
그렇지 않은 경우(rsCheckAdd.bof 및 rsCheckAdd.eof) '이 관리자 이름이 존재하는지 확인합니다.
response.write <스크립트 언어=javascript><!--
Alert(' & Trim(Request.Form(AdminName)) & 관리자가 이미 존재합니다. 다른 로그인 이름으로 다시 시도하십시오!');history.back(-1);
// --></script>
응답.끝
종료하면
sql=Ameav_Admin에서 * 선택
rs.open SQL,콘,1,3
rs.addnew
if len(trim(Request.Form(AdminName)))<3 또는 len(trim(Request.Form(Password)))>10이면
response.write <스크립트 언어=javascript><!--
Alert('관리자 로그인 이름이 필요하며, 글자 수는 3~10자여야 합니다!');history.back(-1);
// --></script>
응답.끝
종료하면
if len(trim(Request.Form(Password)))<6 또는 len(trim(Request.Form(Password)))>16이면
response.write <스크립트 언어=javascript><!--
Alert('관리자 비밀번호가 필요하며, 글자 수는 6~16자여야 합니다!');history.back(-1);
// --></script>
응답.끝
종료하면
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <스크립트 언어=javascript><!--
Alert('두 번 입력한 비밀번호가 다릅니다!');history.back(-1);
// --></script>
응답.끝
종료하면
rs(관리자 이름)=trim(요청.양식(관리자 이름))
Request.Form(Working)=1이면
rs(작업 중)=Request.Form(작업 중)
또 다른
rs(작업)=0
종료하면
rs(비밀번호)=Md5(Request.Form(비밀번호))
rs(사용자 이름)=trim(Request.Form(사용자 이름))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
요청.양식(Purview114) & 요청.양식(Purview115) & 요청.양식(Purview116) &_
요청.양식(Purview117) & 요청.양식(Purview118) & 요청.양식(Purview119) &_
요청.양식(Purview120) & 요청.양식(Purview121) & 요청.양식(Purview122) &_
요청.양식(Purview123) & 요청.양식(Purview124) & 요청.양식(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
요청.양식(Purview129) & 요청.양식(Purview130) & 요청.양식(Purview131) &_
요청.양식(Purview132) & 요청.양식(Purview133) & 요청.양식(Purview134) &_
요청.양식(Purview135) & 요청.양식(Purview136) & 요청.양식(Purview137) &_
요청.양식(Purview138) & 요청.양식(Purview139) & 요청.양식(Purview140) &_
요청.양식(Purview141) & 요청.양식(Purview142) & 요청.양식(Purview143) &_
요청.양식(Purview144) & 요청.양식(Purview145) & 요청.양식(Purview146) &_
요청.양식(Purview147) & 요청.양식(Purview148) & 요청.양식(Purview149) &_
요청.양식(Purview150) & 요청.양식(Purview151) & 요청.양식(Purview152) &_
요청서식(Purview153)
rs(설명)=trim(Request.Form(설명))
rs(추가시간)=지금()
종료하면
if Result=Modify then '웹사이트 관리자 수정
sql=select * from Ameav_Admin 여기서 ID=&ID
rs.open SQL,콘,1,3
rs(관리자 이름)=trim(요청.양식(관리자 이름))
Request.Form(Working)=1이면
rs(작업 중)=Request.Form(작업 중)
또 다른
rs(작업)=0
종료하면
if Trim(Request.Form(Password))<> 그러면
if len(trim(Request.Form(Password)))<6 또는 len(trim(Request.Form(Password)))>20이면
response.write <스크립트 언어=javascript><!--
Alert('관리자 비밀번호는 6~20자여야 합니다!');
// --></script>
응답.끝
종료하면
if Request.Form(Password)<>Request.Form(vPassword) then
response.write <스크립트 언어=javascript><!--
Alert('두 번 입력한 비밀번호가 다릅니다!');history.back(-1);
// --></script>
응답.끝
종료하면
rs(비밀번호)=Md5(Request.Form(비밀번호))
종료하면
rs(사용자 이름)=trim(Request.Form(사용자 이름))
rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_
요청.양식(Purview114) & 요청.양식(Purview115) & 요청.양식(Purview116) &_
요청.양식(Purview117) & 요청.양식(Purview118) & 요청.양식(Purview119) &_
요청.양식(Purview120) & 요청.양식(Purview121) & 요청.양식(Purview122) &_
요청.양식(Purview123) & 요청.양식(Purview124) & 요청.양식(Purview125) &_
Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_
요청.양식(Purview129) & 요청.양식(Purview130) & 요청.양식(Purview131) &_
요청.양식(Purview132) & 요청.양식(Purview133) & 요청.양식(Purview134) &_
요청.양식(Purview135) & 요청.양식(Purview136) & 요청.양식(Purview137) &_
요청.양식(Purview138) & 요청.양식(Purview139) & 요청.양식(Purview140) &_
요청.양식(Purview141) & 요청.양식(Purview142) & 요청.양식(Purview143) &_
요청.양식(Purview144) & 요청.양식(Purview145) & 요청.양식(Purview146) &_
요청.양식(Purview147) & 요청.양식(Purview148) & 요청.양식(Purview149) &_
요청.양식(Purview150) & 요청.양식(Purview151) & 요청.양식(Purview152) &_
요청서식(Purview153)
rs(설명)=trim(Request.Form(설명))
종료하면
RS.업데이트
RS.닫기
rs=아무것도 설정하지 않음
response.write <스크립트 언어=javascript><!--
Alert('웹사이트 관리자를 성공적으로 편집했습니다!');changeAdminFlag('웹사이트 관리자') location.replace('AdminList.asp');
// --></script>
else '관리자 정보 추출
결과=수정인 경우
rs = server.createobject(adodb.recordset) 설정
sql=select * from Ameav_Admin 여기서 ID=& ID
rs.open SQL,콘,1,1
관리자 이름=rs(관리자 이름)
작업=rs(작업 중)
사용자 이름=rs(사용자 이름)
Purview=rs(AdminPurview)
설명=rs(설명)
RS.닫기
rs=아무것도 설정하지 않음
종료하면
종료하면
서브 끝
%>