推奨：ASPはSQLステートメント日付形式で追加および減算操作を実装しています今日は職場で問題に遭遇しましたが、時間に照会する必要がありましたが、クエリの結果は誤って表示されました。たとえば、2007-10-12から2007-10-31の間にウェブサイトに登録されているメンバーを見つけるには、日付を選択した後、「Query＆r」をクリックします。
ASPはRAR圧縮と減圧ソースコードを実装し、1つのファイルで実行できます。 ASPはディレクトリまたはファイルを圧縮し、RARファイルを減圧し、特定のファイルやその他の機能を削除します。このソースコードは、誰もが開発して共有するのに便利です。
これがwinrar.aspコードです：
| 以下は引用されたコンテンツです。 <！ - 名前-AyanオンラインWinrarプラグイン 著作権-BeiguoPharmaceutical Garden BBS（www.spubbs.com） 作成-2006/5/17 著者-ayan：[email protected] QQ：12895551 - > <％@言語= vbscript codepage = 936％> <Title> Ayan Online Winrarプラグインへようこそ</title> <body> <テーブルボーダー= 0幅= 80％align = center cellpacing = 1 cellpadding = 3 style = font-family：verdana; font-size：14px; border：＃000000 1px solid; background-color：＃f7f7f7> <tr> <th width = 100％height = 24 bgcolor =＃e4e4e4> <strong> <font color =＃ff0000> ayan online winrarプラグイン</font> </strong>最新の更新時間2006.5.17 [<a href = http：//www.spubbs.com/dispbbs.aspbbs.asp.asp.asp.asp.asp.asp.asp.asp.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 then response.writeこのフォルダーパス：＆server.mappath（。）＆<br> from = request.form（from） where = request.form（where） <>からどこから<>から dim a、b、shell、runing、runcode、cmd If strust（where、：）= 0 then a = server.mappath（＆where＆）else a = where If strust（from、：）= 0 then b = server.mappath（＆from＆）else b = from 'Response.Write b 右（b、1）<>/および左（右（b、4）、1）<>。次に、b = b＆.rar エラーの再開時に次に再開します SET SHELL = SERVER.CREATEOBJECT（wscript.shell） request.querystring（action）= 1の場合、 '減圧 reportfileStatus（b）でない場合は、respons.write（b＆do not efact！）：respons.end（） runing = cmddir＆ /c＆winrar＆x -ibck -t -y -o -p＆pwd＆ 'コマンドを設定して減圧を実行します。 cmd = runing＆b＆＆a＆/ elseif request.querystring（action）= 0 then '圧縮 if（not not reportfilestatus（a））および（not not reportfolderstatus（a））then respons.write（a＆do not abest！）：respons.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＆ '圧縮。 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％> <form name = frm method = post action =？action = 1 style = border：＃d9d9d9 1px solid; background-color：＃f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> <br> RARファイルアドレスを入力してください： <入力名= from value = 1.rar size = 50> <br> unzip to：<入力名= where value =。サイズ= 50> フォルダへの絶対パスを使用し、最後に / <br>を追加してください <br> <入力名=送信型=送信値= decompression> <入力タイプ=非表示名=ユーザー値= <％= request.form（user）％>> <入力型=非表示名= PWD値= <％= request.form（pwd）％>> </form> <form name = frm method = post action =？action = 0 style = border：＃d9d9d9 1px solid; background-color：＃f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> 圧縮するにはファイルアドレスを入力してください： <入力名= where value =。/data/dvbbs7＃.mdb size = 50> フォルダーも利用できます<br> <br> ストレージパスと新しいファイル名：<input name = from value = ../data/1.rar size = 50> 同じ名前<br>でファイルを自動的に上書きします <br> <入力名=送信タイプ=送信値=圧縮> <入力タイプ=非表示名=ユーザー値= <％= request.form（user）％>> <入力型=非表示名= PWD値= <％= request.form（pwd）％>> </form> <％ errinfo ifを終了します それ以外 ログイン（） ifを終了します sub 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を終了します ％> <form name = frm method = post action =？action = 2 style = border：＃d9d9d9 1px solid; background-color：＃f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- <br> ファイルを削除するにはアドレスを入力してください：<入力名= from size = 50 value = <％= from >> フォルダへの絶対パスを使用し、最後に / <br>を追加してください <入力型=非表示名= where value = <％where <> then response.where where retsible.write.％>> <br> <入力名=送信タイプ=送信値= delete> <入力型=非表示名=ユーザー値= <％= request.form（user）％>> <入力型=非表示名= PWD値= <％= request.form（pwd）％>> </form> <br> <％ End Sub function ReportFileStatus（fileSpec） 薄暗いfso fso = createObject（scripting.filesystemObject）をset ReportFileStatus = false if（fso.fileexists（filespec））からreportfilestatus = true FSO =何も設定しません エンド関数 関数レポートFolderStatus（FLDR） 薄暗いfso fso = createObject（scripting.filesystemObject）をset ReportFolderStatus = false if（fso.folderexists（fldr））からReportfolderStatus = true FSO =何も設定しません エンド関数 sub login（） ％> <form name = frm method = post action =？action = 2 style = border：＃d9d9d9 1px solid; background-color：＃f7f7f7> <p> ----------------------------------------------- <strong>ログインシステム</strong> ---------------------------------------------------- <br> <br> ユーザー名： <入力名=ユーザー値= spubbs.com> </p> パスワード： <入力名= PWDタイプ=パスワードID = PWD> <br> <br> <入力名=送信型=送信値= login> </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.qq.com/msgrd？v = 1＆uin = 12895551＆site = www.spubbs.comオンラインwinrar＆menu = yes> <img border = 0 src = http：//wpa.qq.com/pa？ QQ：128955551 align = absbottom> </a> Copyright＆Copy; 2003-2006 <a href = http：//www.spubbs.com> beiguo Pharmaceutical Garden </a> </td>> </tr> </table> </body> |
共有：ASPプログラムへのアクセス速度を改善する方法WebページデザインにASPプログラムを使用する場合、それは主にデータベースにアクセスしてからページにデータを表示する必要があるためです。多くのデータがある場合、ページのアクセス速度が遅くなります。この問題を解決するために、次の手法を使用して、ページのアクセス速度を改善できます。スキル