Recomendado: ASP implementa operações de adição e subtração no formato de data da instrução SQL Encontrei um problema no trabalho hoje e precisava consultar o tempo, mas os resultados da consulta foram exibidos incorretamente. Por exemplo, para descobrir os membros registrados no site entre 2007-10-12 e 2007-10-31, depois de selecionar a data, clique em "Query & r
O ASP implementa o código -fonte RAR de compactação e descompressão e pode ser feito com apenas um arquivo. O ASP comprime diretórios ou arquivos, descompõe arquivos RAR, exclui arquivos específicos e outras funções. Esse código -fonte é conveniente para que todos se desenvolvam e compartilhem.
Aqui está o código winrar.asp:
| A seguir, o conteúdo citado: <!- Nome - Ayan Online Winrar Plugin Copyright - BBS BBS BBS BBS (www.spubbs.com) Criado - 2006/5/17 Autor - Ayan: [email protected] QQ: 12895551 -> <%@Idioma = vbscript codePage = 936%> <Title> Bem -vindo ao plugin winrar online AYAN </ititure> <Body> <Borda da tabela = 0 largura = 80% alinhamento = CENTRO CELELAÇÃO = 1 CellPadding = 3 Style = Font-Family: Verdana; Fonte-tamanho: 14px; borda: #000000 1px Solid; cor de fundo: #f7f7f7> <tr> <th width=100% height=24 bgcolor=#e4e4e4><strong><font color=#FF0000>Ayan Online Winrar Plugin</font></strong>Latest update time 2006.5.17 [<a href=http://www.spubbs.com/dispbbs.asp?boardid=24&id=19979 target=_blank>Support Página </a>] </th> </tr> <tr> <Td> <% Server.scriptTimeout = 99999 Dim Winrar, cmddir Winrar = c:/arquivos de programas/winrar/winrar.exe 'caminho de winrar.exeprogra ~ 1. cmddir =%windir%/system32/cmd.exe 'cmd.exe' caminho para cmd.exe Usuário = Spubbs.com 'Nome de usuário PWD = Spubbs.com 'Login, compactar, descomprimir senha, por razões de segurança, defina esta senha forte o suficiente se request.form (usuário) = usuário e request.form (pwd) = pwd então Response.Write este caminho da pasta: & server.mappath (.) & <br> de = request.form (de) onde = request.form (onde) Se de <> e onde <> então Dim a, b, shell, running, RuCode, cmd Se Instr (onde,:) = 0 então a = server.mappath (e onde &) else a = onde Se Instr (de,:) = 0 então b = server.mappath (& de &) else B = de 'Response.Write b Se à direita (b, 1) <>/ e esquerda (direita (b, 4), 1) <>. Então B = B & .Rar Em erro de erro em seguida Set shell = server.createObject (wscript.shell) se request.QueryString (ação) = 1 então 'descompacte se não for relatárioFileStatus (b), então Response.Write (B & não existe!): Response.end () RUNING = CMDDIR & /C & WINRAR & X -IBCK -T -Y -O -P & PWD & 'Defina o comando para executar a descompressão. Cmd = runing & b & a &///// elseif request.QueryString (ação) = 0 Então 'compressão se (não relatarFileStatus (a)) e (não relatamPolasterStatus (a)) então Response.Write (a & não existe!): Response.end () Cmd = cmddir & /c del /f /q & b Runcode = shell.run (cmd, 1, verdadeiro) RUNING = CMDDIR & /C & WINRAR & A -IBCK -Y -EP -O -P & PWD & 'COMPRESSÃO. CMD = RUNING & B & A else 'exclua o arquivo Cmd = cmddir & /c del /f /q & b final se Runcode = shell.run (cmd, 1, verdadeiro) Runing = shell.run (cmddir & /c taskkill /im winrar.exe, 1, falso) Runing = shell.run (cmddir & /c saída, 1, false) Defina shell = nada Errinfo %> <%else%> <nome de forma = frm método = pós-ação =? Ação = 1 estilo = borda: #d9d9d9 1px Solid; cor de fundo: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> Por favor, insira o endereço do arquivo rar: <Nome de entrada = de Value = 1. Size = 50> <br> Descompacte para: <nome de entrada = onde valor =. tamanho = 50> Por favor, use o caminho absoluto para a pasta e adicione / <br> no final <br> <nome de entrada = envio type = submit valor = descompressão> <tipo de entrada = nome oculto = valor do usuário = <%= request.form (user)%>> <Tipo de entrada = Nome oculto = PWD Value = <%= request.form (PWD)%>> </morm> <nome de forma = frm método = pós-ação =? Ação = 0 estilo = borda: #d9d9d9 1px Solid; cor de fundo: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Por favor, insira o endereço do arquivo para compactar: <nome de entrada = onde valor =./Data/dvbbs7#.mdb size = 50> Pastas também estão disponíveis <br> <br> Caminho de armazenamento e novo nome do arquivo: <nome de entrada = do value = ../data/1. Size de tamanho = 50> Substituir automaticamente o arquivo com o mesmo nome <br> <br> <nome de entrada = envio type = submit valor = compactação> <tipo de entrada = nome oculto = valor do usuário = <%= request.form (user)%>> <Tipo de entrada = Nome oculto = PWD Value = <%= request.form (PWD)%>> </morm> <% Errinfo final se outro Conecte-se() final se Sub Errinfo se não for isempty (RuCode) e RuCode = 0 então Response.write (o comando foi executado com sucesso, o comando que você enviou é o seguinte: <br> & cmd) elseie não é o que não está sendo o que Response.write (a execução do comando falhou! Não há permissão insuficiente ou o programa não pode ser executado no estado do DOS. O comando que você enviou é o seguinte: <br> & cmd) outro final se Se errar então Response.write <br> & err.description err.clear Final se %> <nome de forma = frm método = pós-ação =? Ação = 2 estilo = borda: #d9d9d9 1px Solid; cor de fundo: #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> Por favor, insira o endereço para excluir o arquivo: <nome de entrada = de size = 50 value = <%= de%>> Por favor, use o caminho absoluto para a pasta e adicione / <br> no final <Tipo de entrada = Nome oculto = onde valor = <%se onde <> então Response.Write onde mais resposta.Write.%>> <br> <Nome de entrada = Enviar tipo = Valor de envio = delete> <Tipo de entrada = Nome oculto = Valor do usuário = <%= request.form (Usuário)%>> <Tipo de entrada = Nome oculto = PWD Value = <%= request.form (pwd)%>> </morm> <br> <% Final sub Função RelatórioFileStatus (FileSecec) Dim FSO Set fso = createObject (script.filesystemObject) RelatórioFileStatus = false If (fso.fileExists (FileSpec)) Então relatamfileStatus = true Definir FSO = nada Função final Função Relatório Dim FSO Set fso = createObject (script.filesystemObject) RelatórioSPoldersatus = False If (fso.Polderexists (FLDR)) então relatouSPolderStatus = true Definir FSO = nada Função final Sub -login () %> <nome de forma = frm método = pós-ação =? Ação = 2 estilo = borda: #d9d9d9 1px Solid; cor de fundo: #f7f7f7> <p> ----------------------------------------- <strong> Sistema de login </strong> --------------------------------------------------- <br> <br> nome de usuário: <Nome de entrada = Valor do usuário = Spubbs.com> </p> senha: <nome de entrada = pwd type = senha id = pwd> <br> <br> <nome de entrada = envio tipo = Valor de envio = login> </morm> <%Final sub%> </td> </tr> <tr> <altura td = 22 align = Center bgcolor =#e8e8e8> alimentado por: <a href = Mailto: [email protected]> ayan </a> & nbsp; <a destino = em branco href = http: //wpa.qq.com/msgrd? V = 1 & uin = 12895551 & site = www.spubbs.com winrar online e menu = sim> <img borda 1: 0 src = http: //wpa.qq.com/PA - QQ: 12895551 ALIGN = Absbottom> </a> Copyright & Copy; 2003 - 2006 <a href = http: //www.spubbs.com> jardim farmacêutico beiguo bbs </a> </td> </tr> </tabela> </body> |
Compartilhar: como melhorar a velocidade do acesso aos programas ASP Ao usar um programa ASP para design de página da web, é principalmente porque você precisa acessar o banco de dados e exibir os dados na página. Se houver muitos dados, a velocidade de acesso da página desacelerará. Para resolver esse problema, você pode usar as seguintes técnicas para melhorar a velocidade de acesso da página. Habilidades