권장 : ASP는 SQL 명령문 날짜 형식의 추가 및 뺄셈 작업을 구현합니다. 오늘 직장에서 문제가 발생했으며 시간이 지남에 따라 쿼리해야했지만 쿼리 결과가 잘못 표시되었습니다. 예를 들어, 2007-10-12와 2007-10-31 사이에 웹 사이트에 등록 된 회원을 찾으려면 날짜를 선택한 후 "Query & R"을 클릭하십시오.
ASP는 RAR 압축 및 감압 소스 코드를 구현하며 하나의 파일만으로 수행 할 수 있습니다. ASP는 디렉토리 또는 파일을 압축하고 RAR 파일을 압축 해제하고 특정 파일 및 기타 기능을 삭제합니다. 이 소스 코드는 모든 사람이 개발하고 공유하기에 편리합니다.
다음은 winrar.asp 코드입니다.
| 다음은 인용 된 내용입니다. <!- 이름 -Ayan Online Winrar 플러그인 저작권 -Eiguo Pharmaceutical Garden BBS (www.spubbs.com) 생성 -2006/5/17 저자 -Ayan : [email protected] QQ : 12895551 -> <%@language = vbscript codepage = 936%> <제목> Ayan Online Winrar 플러그인에 오신 것을 환영합니다. </title> <body> <테이블 테두리 = 0 너비 = 80% 정렬 = 중심 셀 패키지 = 1 CellPadding = 3 스타일 = 글꼴-가족 : Verdana; font-size : 14px; 테두리 : #000000 1px 솔리드; 배경 색상 : #f7f7f7> <tr> <th width = 100% 높이 = 24 bgcolor =#e4e4e4> <strong> <strong> <font color =#ff0000> Ayan Online Winrar 플러그인 </font> </strong> 최신 업데이트 시간 2006.5.17 [<a href = http : //www.spubbs.com/dispbbs.asp? 페이지 </a>] </th> </tr> <tr> <td> <% Server.ScriptTimeout = 99999 Dim Winrar, cmddir winrar = c :/program files/winrar/winrar.exe 'winrar.exeprogra ~ 1의 경로. cmddir =%windir%/system32/cmd.exe 'cmd.exe'cmd.exe 경로 user = spubbs.com '사용자 이름 pwd = spubbs.com '로그인, 압축, 압축 압축 암호, 보안상의 이유로이 암호를 충분히 강력하게 설정하십시오. If request.form (user) = user and request.form (pwd) = pwd 응답.이 폴더 경로를 작성하십시오 : & server.mappath (.) & <br> from = request.form (from) where = request.form (여기서) <>에서 어디에서 <> Dim A, B, Shell, Runing, RunCode, CMD 악기 (여기서, :) = 0 인 경우 a = server.mappath (& where &) else a = 여기서 악기 (from, :) = 0 인 경우 b = server.mappath (&) else b = from '응답. 쓰기 b 오른쪽 인 경우 (b, 1) <> <> 왼쪽 (오른쪽 (b, 4), 1) <>. 그런 다음 b = b & .rar 다음에 오류가 재개됩니다 set shell = server.createobject (wscript.shell) request.querystring (action) = 1 인 경우 '압축 압축 reportfilestatus (b)가 아닌 경우 response.write (b & dos bestion!) : response.end () runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & '감압을 실행하도록 명령을 설정하십시오. CMD = Runing & B & & A &/ elseif request.querystring (action) = 0 그런 다음 '압축 if (reportFilestatus (a)) 및 (reportfolderstatus (a)가 아님) 그런 다음 응답 (a & do not bicant!) : 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. 그렇지 않으면 파일을 삭제합니다 CMD = CMDDIR & /C DEL /F /Q & B 끝 If runcode = shell.run (cmd, 1, true) runing = shell.run (cmddir & /c taskkill /im winrar.exe, 1, false) runing = shell.run (cmddir & /c exit, 1, false) set shell = nothing errinfo %> <%else%> <양식 이름 = frm 메서드 = post action =? action = 1 style = 테두리 : #d9d9d9 1px solid; 배경색 : #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> RAR 파일 주소를 입력하십시오. <입력 이름 = value = 1.rar size = 50> <br> 압축 : <입력 이름 = 여기서 값 =. 크기 = 50> 폴더의 절대 경로를 사용하고 마지막에 추가 / <br> <br> <입력 이름 = 제출 유형 = 제출 값 = 감압> <입력 유형 = 숨겨진 이름 = 사용자 값 = <%= request.form (사용자)%>> <입력 유형 = 숨겨진 이름 = pwd 값 = <%= request.form (pwd)%>> </form> <양식 이름 = frm 메서드 = post action =? action = 0 스타일 = 테두리 : #d9d9d9 1px solid; 배경색 : #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> 압축하려면 파일 주소를 입력하십시오. <입력 이름 = 여기서 값 =./data/dvbbs7#.mdb size = 50> 폴더도 사용할 수 있습니다 <br> <br> 저장 경로 및 새 파일 이름 : <입력 이름 = value = ../data/1.rar size = 50> 동일한 이름 <br>로 파일을 자동으로 덮어 씁니다 <br> <입력 이름 = 제출 유형 = 제출 값 = 압축> <입력 유형 = 숨겨진 이름 = 사용자 값 = <%= request.form (사용자)%>> <입력 유형 = 숨겨진 이름 = pwd 값 = <%= request.form (pwd)%>> </form> <% errinfo 끝 If 또 다른 로그인() 끝 If 하위 errinfo isempty (runcode) 및 runcode = 0이 아닌 경우 response.write (명령이 성공적으로 실행되었으며 제출 한 명령은 다음과 같습니다. <br> & cmd) 그렇다면 elseif는 isempty (runcode)가 아닙니다 response.write (명령 실행 실패! 허가가 충분하지 않거나 프로그램이 DOS 상태에서 실행할 수 없습니다. 제출 한 명령은 다음과 같습니다. <br> & cmd) 또 다른 끝 If 그렇다면 response.write <br> & err.description err.clear 끝 If %> <양식 이름 = frm 메서드 = post action =? action = 2 style = 테두리 : #d9d9d9 1px solid; 배경색 : #f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> 파일을 삭제하려면 주소를 입력하십시오 : <입력 이름 = 크기 = 50 값 = <%= from%>> 폴더의 절대 경로를 사용하고 마지막에 추가 / <br> <입력 유형 = 숨겨진 이름 = where value = <%<> response.write.write.%>> <br> <입력 이름 = 제출 유형 = 제출 값 = 삭제> <입력 유형 = 숨겨진 이름 = 사용자 값 = <%= request.form (사용자)%>> <입력 유형 = 숨겨진 이름 = pwd value = <%= request.form (pwd)%>> </form> <br> <% 종료 서브 함수 reportFilestatus (filespec) 희미한 fso set fso = createobject (scripting.filesystemobject) reportFilestatus = false if (fso.fileExists (filespec)) 그런 다음 reportFilestatus = true입니다 FSO = 아무것도 설정하지 않습니다 엔드 기능 함수 reportfolderstatus (FLDR) 희미한 fso set fso = createobject (scripting.filesystemobject) reportfolderstatus = false if (fso.dolerexists (fldr))는 reportfolderstatus = true입니다 FSO = 아무것도 설정하지 않습니다 엔드 기능 하위 로그인 () %> <양식 이름 = frm 메서드 = post action =? action = 2 style = 테두리 : #d9d9d9 1px solid; 배경색 : #f7f7f7> <p>-------------------------------------------<strong>Login System</strong>-------------------------------------------------------<br> <br> 사용자 이름 : <입력 이름 = 사용자 값 = spubbs.com> </p> 비밀번호: <입력 이름 = PWD 유형 = 비밀번호 ID = PWD> <br> <br> <입력 이름 = 제출 유형 = 제출 값 = 로그인> </form> <%end sub%> </td> </tr> <tr> <td height = 22 align = center bgcolor =#e8e8e8> 파워 : <a href = mailto : [email protected]> ayan </a> & nbsp; <a target = blank href = http : //wpa.qqq.com/msgrd? v = 1 & uin = 12895551 & site = www.spubbs.com 온라인 winrar & menu = 예> <img 테두리 = 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> </테이블> </body> |
공유 : ASP 프로그램에 대한 액세스 속도를 향상시키는 방법 웹 페이지 디자인에 ASP 프로그램을 사용하는 경우 대부분 데이터베이스에 액세스 한 다음 데이터를 페이지에 표시해야하기 때문입니다. 데이터가 많으면 페이지의 액세스 속도가 느려집니다. 이 문제를 해결하려면 다음 기술을 사용하여 페이지의 액세스 속도를 향상시킬 수 있습니다. 기술