Recomendado: ASP implementa operaciones de adición y sustracción en formato de fecha de instrucción SQL Hoy me encontré con un problema en el trabajo, y necesitaba consultar por el tiempo, pero los resultados de la consulta se mostraron incorrectamente. Por ejemplo, para conocer los miembros registrados en el sitio web entre 2007-10-12 y 2007-10-31, después de seleccionar la fecha, haga clic en "Consulta y R
ASP implementa el código fuente de compresión y descompresión de RAR, y se puede hacer con solo un archivo. ASP comprime directorios o archivos, descomprime los archivos RAR, elimina archivos específicos y otras funciones. Este código fuente es conveniente para que todos se desarrollen y compartan.
Aquí está el código Winrar.asp:
| El siguiente es el contenido citado: <!- Nombre - Ayan en línea Winrar Plugin Copyright - BBS BEGUO Pharmaceutical Garden BBS (www.spubbs.com) Creado - 2006/5/17 Autor - Ayan: [email protected] QQ: 12895551 -> <%@Idioma = VBScript CodePage = 936%> <title> Bienvenido al complemento Winrar en línea de Ayan </title> <Body> <Border de tabla = 0 ancho = 80% align = Center CellPacing = 1 CellPadding = 3 Style = Font-Family: Verdana; Font-Size: 14px; Border: #000000 1px Solid; Color de fondo: #F7F7F7> <tr> <th width = 100% Height = 24 bgcolor =#e4e4e4> <strong> <font color =#ff0000> Ayan en línea winrar plugin </font> </strong> tiempo de actualización 2006.5.17 [<a href = http: //wwww.spubbs.com/dispbbs.asp? Página </a>] </th> </tr> <tr> <TD> <% Server.scripttimeout = 99999 Dim Winrar, cmddir Winrar = c:/programa archivos/winrar/winrar.exe 'ruta de winrar.exeprogra ~ 1. cmddir =%windir%/system32/cmd.exe 'cmd.exe' ruta a cmd.exe user = Spubbs.com 'Nombre de usuario pwd = spubbs.com 'Iniciar sesión, comprimir, descompresión de contraseña, por razones de seguridad, configure esta contraseña lo suficientemente fuerte if request.form (user) = user y request.form (pwd) = pwd entonces Response.Scite esta ruta de carpeta: & server.mappath (.) y <br> from = request.form (de) where = request.form (donde) Si de <> y donde <> entonces Dim A, B, Shell, Runing, RunCode, CMD if instrer (dónde, :) = 0 entonces a = server.mappath (& where &) de lo contrario a = dónde if instrer (de, :) = 0 entonces b = server.mappath (& from &) else b = desde 'Respuesta. Escribe B Si es correcto (b, 1) <>/ y a la izquierda (derecha (b, 4), 1) <>. Entonces b = b & .rar En el currículum de error siguiente Establecer shell = server.createObject (wscript.shell) if request.queryString (Action) = 1 entonces 'Descompresión Si no se informa Filestatus (b), entonces Response.write (¡B & no existe!): Response.end () Runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'Establezca el comando para ejecutar la descompresión. CMD = Runing & B & & A &/ Elsef Soly.queryString (Action) = 0 entonces 'Compresión if (no informarfilestatus (a)) y (no informarfolderstatus (a)) entonces respuesta.write (a & no existe!): respuesta.end () Cmd = cmddir & /c del /f /Q & B RunCode = shell.run (cmd, 1, verdadero) Runing = cmddir & /c & winrar & a -ibck -y -ep -o -p & pwd & 'compresión. CMD = Runing & B & A else 'eliminar el archivo Cmd = cmddir & /c del /f /Q & B final si RunCode = shell.run (cmd, 1, verdadero) Runing = shell.run (cmddir & /c taskkill /im winrar.exe, 1, falso) Runing = shell.run (cmddir & /c salida, 1, falso) Establecer shell = nada Errinfo %> <%else%> <form de nombre = frm método = post action =? Action = 1 style = border: #d9d9d9 1px sólido; color de fondo: #f7f7f7> --------------------------------------------------------------------------------------------------- <br> <br> Ingrese la dirección del archivo RAR: <input name = from value = 1.Rar size = 50> <br> Descomprimir a: <Input name = Where Value =. tamaño = 50> Utilice la ruta absoluta a la carpeta y agregue / <br> al final <br> <input name = enviar type = enviar valor = descompresión> <input type = Hidden name = user value = <%= request.form (user)%>> <input type = hidden name = pwd value = <%= request.form (pwd)%>> </form> <form de nombre = frm método = post action =? Action = 0 style = border: #d9d9d9 1px sólido; color de fondo: #f7f7f7> --------------------------------------------------------------------------------------------------- <br> Ingrese la dirección del archivo para comprimir: <input name = where valor =./data/dvbbs7#.mdb size = 50> Las carpetas también están disponibles <br> <br> Ruta de almacenamiento y nuevo nombre de archivo: <input name = from value = ../data/1.Rar size = 50> Sobrescribir automáticamente el archivo con el mismo nombre <br> <br> <input name = enviar type = enviar value = compresión> <input type = Hidden name = user value = <%= request.form (user)%>> <input type = hidden name = pwd value = <%= request.form (pwd)%>> </form> <% Errinfo final si demás acceso() final si Sub -errinfo Si no es isEtimty (runcode) y runCode = 0 entonces Response.write (el comando se ejecutó correctamente, el comando que envió es el siguiente: <br> & cmd) de lo contrario no isEpty (runcode) entonces Response.Write (¡Ejecución de comando fallida! No hay permiso suficiente o el programa no puede ejecutarse en el estado de DOS. El comando que envió es el siguiente: <br> & cmd) demás final si Si err entonces Response.write <br> & Err.Description Err.Clear Final si %> <form de nombre = frm método = post action =? Action = 2 style = border: #d9d9d9 1px sólido; color de fondo: #f7f7f7> --------------------------------------------------------------------------------------------------- <br> Ingrese la dirección para eliminar el archivo: <input name = from size = 50 value = <%= from%>> Utilice la ruta absoluta a la carpeta y agregue / <br> al final <input type = Hidden name = Where Value = <%if Where <> entonces Respuesta.WRITE WHERE más Response.write.%>> <br> <input name = enviar type = enviar value = Eliminar> <input type = Hidden name = user value = <%= request.form (user)%>> <input type = Hidden name = pwd value = <%= request.form (pwd)%>> </form> <br> <% Final Function ReportFilestatus (FILESPEC) Dim FSO Establecer fso = createObject (scripting.filesystemObject) ReportFilestatus = falso If (fso.fileExists (fileSpeC)) entonces informarfilestatus = true Establecer FSO = nada Función final Función ReportFoldenStatus (FLDR) Dim FSO Establecer fso = createObject (scripting.filesystemObject) ReportFoldenStatus = falso If (fso.foldereRexists (FLDR)) entonces informarfolderStatus = verdadero Establecer FSO = nada Función final Sub login () %> <form de nombre = frm método = post action =? Action = 2 style = border: #d9d9d9 1px sólido; color de fondo: #f7f7f7> <p> ------------------------------------------- <strong> Sistema de inicio de sesión </strong> ------------------------------------------------------- <br> <br> nombre de usuario: <Name de entrada = Valor de usuario = Spubbs.com> </p> contraseña: <input name = pwd type = contraseña id = pwd> <br> <br> <input name = enviar type = enviar value = inicio de sesión> </form> <%Final sub%> </td> </tr> <tr> <td hight = 22 align = Center bgcolor =#e8e8e8> alimentado por: <a href = mailto: [email protected]> ayan </a> & nbsp; <a Target = Blank href = http: //wpa.qq.com/msgrd? V = 1 & uin = 12895551 & sitio = www.spubbs.com en línea winrar & menu = sí> <img border = 0 src = http: //wpa.qq.com/pa? P = 1: 128955551: 3 alt = send sttp: //wpa.qq.com/pa? P = 1: 128955551: 3 alt = send sends a un instantán QQ: 12895551 align = Abbottom> </a> Copyright & Copy; 2003 - 2006 <a href = http: //www.spubbs.com> Beiguo Pharmaceutical Garden bbs </a> </td> </tr> </table> </body> |
Compartir: Cómo mejorar la velocidad de acceso a los programas ASP Al usar un programa ASP para el diseño de la página web, se debe principalmente a que necesita acceder a la base de datos y luego mostrar los datos en la página. Si hay muchos datos, la velocidad de acceso de la página se ralentizará. Para resolver este problema, puede usar las siguientes técnicas para mejorar la velocidad de acceso de la página. Habilidades