![]() |
ブラウザからファイルをアップロード
Internet Explorer Netscape Navigator |
ADO OLE DB |
MDB MSDE SQL Server |
クライアント(ブラウザ)からアップロードされたファイルはバイナリデータとして
データベース内に格納されるのでセキュリティ管理を細かく行うことができます。
WEB DE ファイルマネージャ はすべてのソースコードが公開されています。
再利用性の高いコーディング
汎用性を高めるために処理ごとにプロシージャにまとめられています。
ソースはカスタマイズしやすくコメントが随所に記されています。
upload.asp
|
Public Sub UploadFile() '// ファイルアップロード処理 Dim strSQL, rsTemp Call OpenDB ' データベース接続 '--アップロードパスワードが要求されているかをチェックする If blnUsePWD And Not Session("TreeAdmin") Then Dim strPWD strPWD = Request.QueryString("PWD") If strPWD = "" Then WriteMessage "パスワードが必要です。", "閉じる" Exit Sub End If If Not IsValidPWD(strPWD) Then WriteMessage "パスワードに誤りがあります。", "閉じる" Exit Sub End If End If .......... End Sub |
general.asp
|
<% Const DBMODE = 1 '--- データベース種別 1-Access 2-SQL Server 3-Oracle Const APPTITLE = "WEB DE ファイルマネージャ" ' キャプションに表示するタイトル Const USERPASSWORD = "demo" ' ログイン用パスワード Const ADMINPASSWORD = "admin" ' 管理者用パスワード Const intTimeout = 30 ' ログイン有効時間(分単位) Const blnUseSecurity = True ' ログイン要・不要 フラグ Const blnWriteLog = True ' ログイン情報をlogin.logに書き込む Const blnUsePWD = True ' ダウンロード、アップロードにパスワード要求をするかどうか Const intMaxFileBytes = 100000 ' ファイルサイズの許容範囲 Const intScriptTimeOut = 600 ' アップロード時のタイムアウト時間(秒単位) Const blnRejectEmptyExtension = True ' 拡張子のないファイルをアップロード禁止にする Const blnRejectExeExtension = False ' EXEファイルのアップロードを禁止する Const blnUserSetExtentions = False ' 拡張子種別によるアップロード制限機能を有効にする Const strExtArray = "gif,jpg,bmp" ' アップロード許可ファイル種別(カンマ区切りスペースなし) .......... |
©2000 Inside Soft Design. All rights
reserved.