General Function Modification and addition [Asp]

 

Generally, the main problems to be solved for database editing programs are addition, deletion, modification, and query. This type of programming is very simple. Next, I will use a little free time to send a function that contains and adds and deletes the function. The experiment architecture can use the iis.5web server to access the database. I don't need to mention this in detail, because everyone should know it. I directly paste the function. You only need to modify it a little.

 

<% <Br/> sub adminedit () <br/> dim action, rscheckadd, RS, SQL <br/> action = request. querystring ("action") <br/> If action = "saveedit" then' save and edit the Administrator Information <br/> set rs = server. createobject ("ADODB. recordset ") <br/> If result = "add" then' create a website administrator <br/> set rscheckadd = conn.exe cute ("select adminname from ameav_admin where adminname = '" & trim (request. form ("adminname") & "'") <br/> if not (rscheckadd. bof and RS Checkadd. EOF) then' determines whether the Administrator name exists <br/> response. Write "<MCE: script language = JavaScript> <! -- <Br/> alert ('"& trim (request. Form (" adminname ") &" The Administrator already exists. Please try another login name! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> SQL = "select * From ameav_admin" <br/> Rs. open SQL, Conn, 1, 3 <br/> Rs. addnew <br/> If Len (TRIM (request. form ("adminname") <3 or Len (TRIM (request. form ("password")> 10 then <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('the administrator login name is required and the number of characters is 3-10! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> If Len (TRIM (request. form ("password") <6 or Len (TRIM (request. form ("password")> 16 then <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('the administrator password is required and the number of characters is 6-16! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> If request. form ("password") <> request. form ("vpassword") Then <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('two passwords are different! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> RS ("adminname") = trim (request. form ("adminname") <br/> If request. form ("working") = 1 then <br/> RS ("working") = request. form ("working") <br/> else <br/> RS ("working") = 0 <br/> end if <br/> RS ("password ") = MD5 (request. form ("password") <br/> RS ("username") = trim (request. form ("username") <br/> RS ("adminpurview") = request. fo Rm ("purview111") & request. form ("purview112") & request. form ("purview113") & _ <br/> request. form ("purview114") & request. form ("purview115") & request. form ("purview116") & _ <br/> request. form ("purview117") & request. form ("purview118") & request. form ("purview119") & _ <br/> request. form ("purview120") & request. form ("purview121") & request. form ("purview122") & _ <br/> request. form ("purview123") & reque St. form ("purview124") & request. form ("purview125") & _ <br/> request. form ("purview126") & request. form ("purview127") & request. form ("purview128") & _ <br/> request. form ("purview129") & request. form ("purview130") & request. form ("purview131") & _ <br/> request. form ("purview132") & request. form ("purviewparts") & request. form ("purview134") & _ <br/> request. form ("purview135") & request. form ("purview136 ")& Request. form ("purview.pdf") & _ <br/> request. form ("purview138") & request. form ("purview139") & request. form ("purview140") & _ <br/> request. form ("purview141") & request. form ("purview142") & request. form ("purview143") & _ <br/> request. form ("purview144") & request. form ("purview145") & request. form ("purview146") & _ <br/> request. form ("purview147") & request. form ("purview148") & request. form ("purview149 ") & _ <Br/> request. form ("purview150") & request. form ("purview151") & request. form ("purview152") & _ <br/> request. form ("purview153") <br/> RS ("Explain") = trim (request. form ("Explain") <br/> RS ("addtime") = now () <br/> end if <br/> If result = "modify" then' modify the website administrator <br/> SQL = "select * From ameav_admin where id =" & id <br /> Rs. open SQL, Conn, 1, 3 <br/> RS ("adminname") = trim (request. form ("adminname") <br/> If Request. form ("working") = 1 then <br/> RS ("working") = request. form ("working") <br/> else <br/> RS ("working") = 0 <br/> end if <br/> If trim (request. form ("password") <> "" Then <br/> If Len (TRIM (request. form ("password") <6 or Len (TRIM (request. form ("password")> 20 then <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('the administrator password is required and the number of characters is 6-20! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> If request. form ("password") <> request. form ("vpassword") Then <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('two passwords are different! '); History. back (-1); <br/> // --> </MCE: SCRIPT> "<br/> response. end <br/> end if <br/> RS ("password") = MD5 (request. form ("password") <br/> end if <br/> RS ("username") = trim (request. form ("username") <br/> RS ("adminpurview") = request. form ("purview111") & request. form ("purview112") & request. form ("purview113") & _ <br/> request. form ("purview114") & request. form ("purview115") & request. form ("purview116 ")&_ <Br/> request. form ("purview117") & request. form ("purview118") & request. form ("purview119") & _ <br/> request. form ("purview120") & request. form ("purview121") & request. form ("purview122") & _ <br/> request. form ("purview123") & request. form ("purview124") & request. form ("purview125") & _ <br/> request. form ("purview126") & request. form ("purview127") & request. form ("purview128") & _ <br/> request. form ("pur View129 ") & request. form ("purview130") & request. form ("purview131") & _ <br/> request. form ("purview132") & request. form ("purviewparts") & request. form ("purview134") & _ <br/> request. form ("purview135") & request. form ("purview136") & request. form ("purview.pdf") & _ <br/> request. form ("purview138") & request. form ("purview139") & request. form ("purview140") & _ <br/> request. form ("purview141") & request. form ("Purview142") & request. form ("purview143") & _ <br/> request. form ("purview144") & request. form ("purview145") & request. form ("purview146") & _ <br/> request. form ("purview147") & request. form ("purview148") & request. form ("purview149") & _ <br/> request. form ("purview150") & request. form ("purview151") & request. form ("purview152") & _ <br/> request. form ("purview153") <br/> RS ("Explain") = trim (request. form ("Explain") <br/> end if <br/> Rs. update <br/> Rs. close <br/> set rs = nothing <br/> response. write "<MCE: script language = JavaScript> <! -- <Br/> alert ('website administrator edited successfully! '); Changeadminflag ('website Postmaster'); location. replace ('adminlist. ASP '); <br/> // --> </MCE: SCRIPT> "<br/> else' extract administrator Information <br/> If result =" modify "then <br/> set rs = server. createobject ("ADODB. recordset ") <br/> SQL =" select * From ameav_admin where id = "& id <br/> Rs. open SQL, Conn, 1, 1 <br/> adminname = RS ("adminname") <br/> working = RS ("working ") <br/> username = RS ("username") <br/> purview = RS ("adminpurview") <br/> explain = RS ("Explain ") <br/> Rs. close <br/> set rs = nothing <br/> end if <br/> end sub </P> <p> %>