Empfohlen: ASP implementiert Additions- und Subtraktionsvorgänge im SQL -Anweisungsdatumformat Ich habe heute bei der Arbeit auf ein Problem gestoßen, und ich musste nach Zeit nachfragen, aber die Abfragergebnisse wurden falsch angezeigt. Zum Beispiel, um die auf der Website zwischen 2007-10-12-12 und 2007-10-31 registrierten Mitglieder nach Auswahl des Datums auf "Abfrage & R) zu ermitteln
ASP implementiert die RAR -Komprimierung und den Dekompressionsquellcode und kann mit nur einer Datei erfolgen. ASP komprimiert Verzeichnisse oder Dateien, dekomprimiert RAR -Dateien, löscht bestimmte Dateien und andere Funktionen. Dieser Quellcode ist für alle zu entwickeln und zu teilen.
Hier ist der Code winrar.asp:
| Das Folgende ist der zitierte Inhalt: <!- Name - Ayan Online Winrar Plugin Copyright - Beiguo Pharmaceutical Garden BBS (www.spubbs.com) Erstellt - 2006/5/17 Autor - Ayan: [email protected] QQ: 12895551 -> <%@Sprache = vbscript codepage = 936%> <titels> Willkommen bei Ayan Online Winrar Plugin </title> <body> <Table Border = 0 Breite = 80% Align = Center Cellpacing = 1 Cellpadding = 3 Style = Schriftfamilie: Verdana; Schriftgröße: 14px; Rand: #000000 1px Solid; Hintergrundfarbe: #f7f7f7> <tr> <th width = 100% Höhe = 24 bgcolor =#e4e4e4> <strong> <font color =#ff0000> Ayan Online Winrar Plugin </font> </strong> Neueste Updatezeit 2006.5.17 [<a href = http: //www.spubbs.com/dispbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbs. Seite </a>] </th> </tr> <tr> <td> <% Server.ScriptTimeout = 99999 Dim Winrar, Cmddir Winrar = c:/Programmdateien/Winrar/Winrar.exe 'Pfad von Winrar.exeprogra ~ 1. CMDDIR =%weiden%/system32/cmd.exe 'cmd.exe' Pfad zu cmd.exe user = spubbs.com 'Benutzername PWD = spubbs.com 'Login, Komprimieren, Dekomprimieren Passwort aus Sicherheitsgründen, bitte setzen Sie dieses Kennwort stark genug Wenn request.form (user) = user und request.form (pwd) = pwd dann response.write diesen Ordnerpfad: & server.mappath (.) & <br> von = request.form (von) wo = request.form (wo) wenn aus <> und wo <> dann Dim A, B, Shell, Runing, Runcode, CMD Wenn Instrument (wo, :) = 0 dann a = server.mappath (& wo &) else a = wo Wenn Instrument (von, :) = 0 dann b = server.mappath (& from &) else b = aus 'response.write b Wenn rechts (b, 1) <>/ und links (rechts (b, 4), 1) <>. dann b = b & .rar Bei der nächsten Fehleraufnahme als nächstes Set Shell = server.createObject (wscript.shell) Wenn request.queryString (action) = 1 dann 'dekomprimieren Wenn nicht reportFilestatus (b), dann Antwort.Write (B & B & nicht existiert!): response.end () Runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'Setzen Sie den Befehl, um die Dekompression auszuführen. CMD = Runing & B & & A &/ elseif request.queryString (action) = 0 dann 'Komprimierung if (nicht reportFilestatus (a)) und (nicht reportFolderStatus (a)) dann Antwort.Write (a & existiert nicht!): response.end () Cmd = cmddir & /c del /f /q & b RunCode = Shell.run (CMD, 1, True) Runing = cmddir & /c & winrar & a -ibck -y -ep -o -p & pwd & 'Komprimierung. CMD = Runing & B & & a sonst 'löschen die Datei Cmd = cmddir & /c del /f /q & b Ende wenn RunCode = Shell.run (CMD, 1, True) Runing = Shell.run (CMDDIR & /C TaskKill /IM Winrar.exe, 1, Falsch) Runing = Shell.run (CMDDIR & /C Exit, 1, Falsch) Setzen Sie Shell = nichts Errinfo %> <%sonst%> <Formular name = frm method = post action =? action = 1 style = border: #d9d9d9 1px solide; Hintergrundfarbe: #f7f7f7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ <br> <br> Bitte geben Sie die Adresse der RAR -Datei ein: <Eingabename = von Wert = 1.rar size = 50> <br> Unzippieren Sie: <Eingabename = wobei Value =. Größe = 50> Bitte verwenden Sie den absoluten Pfad zum Ordner und fügen Sie / <br> am Ende hinzu <br> <Eingabename = Senden type = Sendenwert surfen <Eingabetyp = Hidden Name = PWD -Wert = <%= Request.Form (PWD)%>> </Form> <Formular name = frm method = post action =? action = 0 style = border: #d9d9d9 1px solide; Hintergrundfarbe: #f7f7f7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ <br> Bitte geben Sie die Dateiadresse ein, um zu komprimieren: <Eingabename = wobei value =./data/dvbbs7#.mdb size = 50> Ordner sind auch verfügbar <br> <br> Speicherpfad und neuer Dateiname: <Eingabename = von value = ../data/1.rar size = 50> Überschreiben Sie die Datei automatisch mit demselben Namen <br> <br> <Eingabename = Sendentyp = Senden value = compression> <Eingabe type = HIDDEN NAME = Benutzer value = <%= request.Form (Benutzer)%>> <Eingabetyp = Hidden Name = PWD -Wert = <%= Request.Form (PWD)%>> </Form> <% Errinfo Ende wenn anders Login() Ende wenn Sub errinfo Wenn nicht isEmpty (runcode) und runcode = 0, dann dann Antwort.Write (Der Befehl wurde erfolgreich ausgeführt. Der von Ihnen eingereichte Befehl lautet wie folgt: <br> & CMD) Elsef nicht isempty (runcode) dann Antwort.Write (Befehlsausführung fehlgeschlagen! Es gibt unzureichende Erlaubnis oder das Programm kann in DOS -Status nicht ausgeführt werden. Der von Ihnen eingereichte Befehl lautet wie folgt: <br> & cmd). anders Ende wenn Wenn irren Response.write <br> & err.description err.clear Ende wenn %> <Formular name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solide; Hintergrundfarbe: #f7f7f7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ <br> Bitte geben Sie die Adresse ein, um die Datei zu löschen: <Eingabename = aus size = 50 value = <%= von%>> Bitte verwenden Sie den absoluten Pfad zum Ordner und fügen Sie / <br> am Ende hinzu <Eingabe type = Hidden name = wobei value = <%Wenn <> dann Antwort.WER WHERE ANTWORT ANTWORT.WRITE.%>> <br> <Eingabename = Senden Typ = Senden Wert = Delete> <Eingabe type = HIDDEN NAME = Benutzerwert = <%= Request.Form (Benutzer)%>> <Eingabetyp = Hidden Name = PWD -Wert = <%= Request.Form (PWD)%>> </Form> <br> <% Ende sub Funktion ReportFilestatus (filespec) Dim fso Setzen Sie fso = createObject (scripting.filesystemObject) ReportFilestatus = false If (fso.FileExists (filespec)) dann reportFilestatus = true Fso = nichts setzen Endfunktion Funktion ReportFolderStatus (FLDR) Dim fso Setzen Sie fso = createObject (scripting.filesystemObject) ReportFolderStatus = false If (fso.FORDEREXISTS (FLDR)), dann reportFolderStatus = true Fso = nichts setzen Endfunktion Sub login () %> <Formular name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solide; Hintergrundfarbe: #f7f7f7> <p> ------------------------------------------- <strong> Anmeldesystem </strong> --------------------------------------------------- <br> <br> Benutzername: <Eingabe name = user value = spubbs.com> </p> Passwort: <Eingabename = PWD type = Passwort ID = PWD> <br> <br> <Eingabename = Typ Typ = Senden Wert = Login> </Form> <%Ende Sub%> </td> </tr> <tr> <td height = 22 align = center bgcolor =#e8e8e8> betrieben von: <a href = mailto: [email protected]> ayan </a> & nbsp; <a target = leer href = http: //wpa.qq.com/msgrd? v = 1 & uin = 12895551 & seiten = www.spubbs.com Online Winrar & Menü = Ja> <img Border = 0 SRC = HTTP: //wpa.qq.com/pa? QQ: 12895551 Align = Absbottom> </a> Copyright & Copy; 2003 - 2006 <a href = http: //www.spubbs.com> Beiguo Pharmaceutical Garden Bbs </a> </td> </tr> </table> </body> |
Anteil: So verbessern Sie die Geschwindigkeit des Zugangs zu ASP -Programmen Wenn Sie ein ASP -Programm für das Design von Webseiten verwenden, müssen Sie hauptsächlich darauf zurückzuführen sein, dass Sie auf die Datenbank zugreifen und dann die Daten auf der Seite anzeigen müssen. Wenn es viele Daten gibt, verlangsamt sich die Zugriffsgeschwindigkeit der Seite. Um dieses Problem zu lösen, können Sie die folgenden Techniken verwenden, um die Zugriffsgeschwindigkeit der Seite zu verbessern. Fähigkeiten