Recommandé: ASP implémente les opérations d'addition et de soustraction au format de date de déclaration SQL J'ai rencontré un problème au travail aujourd'hui, et j'avais besoin de me demander par le temps, mais les résultats de la requête ont été affichés de manière incorrecte. Par exemple, pour découvrir les membres inscrits sur le site Web entre 2007-10-12 et 2007-10-31, après avoir sélectionné la date, cliquez sur "Query & R
ASP implémente le code source de compression et de décompression RAR, et peut être fait avec un seul fichier. ASP comprime les répertoires ou les fichiers, décompressez les fichiers RAR, supprime des fichiers spécifiques et d'autres fonctions. Ce code source est pratique pour tout le monde de développer et de partager.
Voici le code winrar.asp:
| Ce qui suit est le contenu cité: <! - Nom - Plugin Ayan Online Winrar Copyright - Beiguo Pharmaceutical Garden BBS (www.pubbs.com) Créé - 2006/5/17 Auteur - Ayan: [email protected] QQ: 12895551 -> <% @ Language = codepage VBScript = 936%> <Title> Bienvenue sur Ayan Online Winrar Plugin </TITAL> <body> <Table Border = 0 Width = 80% Align = Center Cellpacing = 1 CellPadding = 3 Style = Font-Family: Verdana; Font-Size: 14px; Border: # 000000 1px solide; Background-Color: # f7f7f7> <tr> <th width = 100% height = 24 bgcolor = # e4e4e4> <strong> <font color = # ff0000> Ayan online winrar plugin </font> </strong> le dernier temps de mise à jour 2006.5.17 [<a href = http: //www.spubbs.com/dispbbs.asp? BoardId = 24 & id = 19979 Target = _blank> Page </a>] </th> </tr> <tr> <TD> <% Server.scriptTimeout = 99999 Dim Winrar, CMDDIR Winrar = c: / programme files / winrar / winrar.exe 'chemin de winrar.exeprogra ~ 1. cmddir =% windir% / system32 / cmd.exe 'cmd.exe' chemin vers cmd.exe user = Spubbs.com 'Nom d'utilisateur Pwd = Spubbs.com Connexion, compresser, décompresser le mot de passe, pour des raisons de sécurité, veuillez définir ce mot de passe suffisamment fort si request.form (utilisateur) = utilisateur et request.form (pwd) = pwd alors Response.Write ce chemin de dossier: & server.mappath (.) & <br> From = request.form (de) où = request.form (où) Si de <> et où <> alors Dim a, b, shell, runing, runcode, cmd Si instr (où, :) = 0 alors a = server.mappath (et où &) else a = où Si instr (from, :) = 0 alors b = server.mappath (& from &) else b = from 'Réponse.WRITE B Si droit (b, 1) <> / et gauche (droite (b, 4), 1) <>. alors b = b & .rar Sur l'erreur reprendre ensuite Set shell = server.createObject (wscript.shell) si request.querystring (action) = 1 alors 'décompresser Si ce n'est pas un rapportFileStatus (b) alors la réponse.Write (b & n'existe pas!): Response.end () Runing = cmddir & / c & winrar & x -ibck -t -y -o -p & pwd & 'définissez la commande pour exécuter la décompression. Cmd = runing & b & & a & / elseif request.querystring (action) = 0 puis 'compression if (pas reportFileStatus (a)) et (pas reportfolderstatus (a)) alors réponse.write (a & n'existe pas!): 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 & 'Compression. Cmd = runing & b & & a else 'Supprimer le fichier CMD = CMDDIR & / C DEL / F / Q&B terminer si Runcode = shell.run (cmd, 1, true) Runing = shell.run (cmddir & / c taskkill / im winrar.exe, 1, false) Runing = shell.run (exit cmddir & / c, 1, false) Set Shell = Rien Errinfo %> <% else%> <Form Name = FRM Method = Post Action =? Action = 1 Style = Border: # D9D9D9 1PX solide; Background-Color: # F7F7F7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> Veuillez saisir l'adresse du fichier RAR: <name d'entrée = de la valeur = 1.Rar size = 50> <br> Unzip to: <input name = où value =. taille = 50> Veuillez utiliser le chemin absolu vers le dossier et ajouter / <br> à la fin <br> <input name = soumider type = soumider value = décompression> <input type = caché name = user value = <% = request.form (utilisateur)% >> <entrée type = name caché = valeur pwd = <% = request.form (pwd)% >> </ form> <Form Name = FRM Method = Post Action =? Action = 0 Style = Border: # D9D9D9 1PX SOLID; Background-Color: # F7F7F7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Veuillez saisir l'adresse du fichier pour compresser: <name d'entrée = où value =. / data / dvbbs7 # .mdb size = 50> Des dossiers sont également disponibles <br> <br> Chemin de stockage et nouveau nom de fichier: <name d'entrée = de valeur = .. / data / 1.rar size = 50> Écraser automatiquement le fichier avec le même nom <br> <br> <input name = soumed type = soumider value = compression> <input type = caché name = user value = <% = request.form (utilisateur)% >> <entrée type = name caché = valeur pwd = <% = request.form (pwd)% >> </ form> <% Errinfo terminer si autre se connecter() terminer si Sub errinfo Si pas iSEmpty (runcode) et runcode = 0 alors Response.Write (la commande a été exécutée avec succès, la commande que vous avez soumise est la suivante: <br> & cmd) ElseIf pas iSempty (runcode) puis Response.Write (l'exécution de la commande a échoué! autre terminer si Si err alors Réponse.write <br> & err.description err.Clear Terminer si %> <Form Name = FRM Method = Post Action =? Action = 2 Style = Border: # D9D9D9 1PX solide; Background-Color: # F7F7F7> ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Veuillez saisir l'adresse pour supprimer le fichier: <Name d'entrée = de taille = 50 valeur = <% = de% >> Veuillez utiliser le chemin absolu vers le dossier et ajouter / <br> à la fin <Type d'entrée = nom caché = où value = <% Si où <> alors réponse.write où ailleurs réponse.write.% >> <br> <entrée name = soumettre type = soumettre une valeur = delete> <entrée type = nom caché = valeur utilisateur = <% = request.form (utilisateur)% >> <entrée type = name caché = valeur pwd = <% = request.form (pwd)% >> </ form> <br> <% Sub-Sub Fonction ReportFileStatus (Filescec) DIM FSO Set fso = createObject (scripting.fileSystemObject) ReportFileStatus = false If (fso.fileexists (filespec)) puis reportFileStatus = true Définir FSO = rien Fonction finale Fonction Reportfolderstatus (FLDR) DIM FSO Set fso = createObject (scripting.fileSystemObject) Reportfolderstatus = false If (fso.folderexists (fldr)) puis reportfolderstatus = true Définir FSO = rien Fonction finale Sous-connexion () %> <Form Name = FRM Method = Post Action =? Action = 2 Style = Border: # D9D9D9 1PX solide; Background-Color: # F7F7F7> <p> ------------------------------------------- <strong> Système de connexion </strong> --------------------------------------------------- <br> <br> nom d'utilisateur: <entrée name = valeur utilisateur = spubbs.com> </p> mot de passe: <entrée name = pwd type = mot de passe id = pwd> <br> <br> <name d'entrée = soumettre Type = Soumider Value = Login> </ form> <% End sous%> </td> </tr> <tr> <td height = 22 align = Center bgcolor = # e8e8e8> alimenté par: <a href = mailto: [email protected]> ayan </a> & nbsp; <a cible = vierge href = http: //wpa.qq.com/msgrd? v = 1 & uin = 12895551 & site = www.pubbs.com winrar en ligne et menu = oui> <img border = 0 src = http: //wpa.qq.com/pa? QQ: 12895551 Align = ABSBOTTOM> </a> Copyright & Copy; 2003 - 2006 <a href = http: //www.pubbs.com> beiguo pharmaceutical jardin bbs </a> </td> </tr> </ table> </docy> |
Partager: comment améliorer la vitesse d'accès aux programmes ASP Lorsque vous utilisez un programme ASP pour la conception de pages Web, c'est principalement parce que vous devez accéder à la base de données, puis afficher les données sur la page. S'il y a beaucoup de données, la vitesse d'accès de la page ralentira. Afin de résoudre ce problème, vous pouvez utiliser les techniques suivantes pour améliorer la vitesse d'accès de la page. Compétences