asp 공통 수정 및 함수 코드 추가

다음 에 나 는 약간의 여가 시간 을 이용 하여 함수 에 포함 되 고 추가 되 며 삭제 되 는 기능 을 보 냈 다.실험의 구 조 는 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 

%>