Allgemeine ASP-Änderung und Hinzufügung von Funktionscode

Autor：Eve Cole Aktualisierungszeit：2025-03-17 19:48:02

Im Allgemeinen sind die Hauptprobleme, die beim Schreiben von Datenbankprogrammen gelöst werden müssen, nichts anderes als das Hinzufügen, Löschen, Ändern und Abfragen. Diese Art der Programmierung ist sehr einfach. Als nächstes werde ich etwas Freizeit nutzen, um eine Funktion zu erstellen, die die Funktionen zum Hinzufügen und Löschen enthält. Die experimentelle Architektur kann die ACCESS-Datenbank des IIS.5WEB-Servers verwenden. Darauf muss ich eigentlich nicht näher eingehen, denn das sollte ja jeder wissen. Ich werde die Funktion einfach direkt posten. Jeder kann es mit nur geringfügigen Modifikationen nutzen.

Kopieren Sie den Codecode wie folgt:

subAdminEdit()

dim Action,rsCheckAdd,rs,sql

Action=request.QueryString(Action)

wenn Action=SaveEdit dann 'Speichern Sie die bearbeiteten Administratorinformationen

set rs = server.createobject(adodb.recordset)

Wenn Ergebnis = Hinzufügen, dann „Website-Administrator erstellen“.

set rsCheckAdd = conn.execute(select AdminName from Ameav_Admin where AdminName=' & trim(Request.Form(AdminName)) & ')

Wenn nicht (rsCheckAdd.bof und rsCheckAdd.eof), dann „Bestimmen Sie, ob dieser Administratorname existiert.“

Response.write <script language=javascript><!--

alarm(' & trim(Request.Form(AdminName)) & Der Administrator existiert bereits, bitte versuchen Sie es erneut mit einem anderen Anmeldenamen!');history.back(-1);

// --></script>

Antwort.Ende

Ende wenn

sql=select * aus Ameav_Admin

rs.open sql,conn,1,3

rs.addnew

wenn len(trim(Request.Form(AdminName)))<3 oder len(trim(Request.Form(Password)))>10 dann

Response.write <script language=javascript><!--

warning('Der Administrator-Anmeldename ist erforderlich und die Anzahl der Zeichen muss 3-10 Zeichen betragen!');history.back(-1);

// --></script>

Antwort.Ende

Ende wenn

wenn len(trim(Request.Form(Password)))<6 oder len(trim(Request.Form(Password)))>16 dann

Response.write <script language=javascript><!--

warning('Das Administratorkennwort ist erforderlich und die Anzahl der Zeichen muss 6-16 Zeichen betragen!');history.back(-1);

// --></script>

Antwort.Ende

Ende wenn

wenn Request.Form(Password)<>Request.Form(vPassword) dann

Response.write <script language=javascript><!--

warning('Die zweimal eingegebenen Passwörter sind unterschiedlich!');history.back(-1);

// --></script>

Antwort.Ende

Ende wenn

rs(AdminName)=trim(Request.Form(AdminName))

wenn Request.Form(Working)=1 dann

rs(Working)=Request.Form(Working)

anders

rs(Arbeiten)=0

Ende wenn

rs(Passwort)=Md5(Request.Form(Passwort))

rs(Benutzername)=trim(Request.Form(Benutzername))

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()

Ende wenn

Wenn Ergebnis = Ändern, dann „Website-Administrator ändern“.

sql=select * aus Ameav_Admin, wobei ID=&ID

rs.open sql,conn,1,3

rs(AdminName)=trim(Request.Form(AdminName))

wenn Request.Form(Working)=1 dann

rs(Working)=Request.Form(Working)

anders

rs(Arbeiten)=0

Ende wenn

if trim(Request.Form(Password))<> then

wenn len(trim(Request.Form(Password)))<6 oder len(trim(Request.Form(Password)))>20 dann

Response.write <script language=javascript><!--

warning('Das Administratorkennwort ist erforderlich und muss 6-20 Zeichen lang sein!');