戻る

WEB DE ファイルマネージャ VBソース


ブラウザからファイルをアップロード


Internet Explorer
Netscape Navigator
ADO
OLE DB


MDB
MSDE
SQL Server

クライアント(ブラウザ)からアップロードされたファイルはバイナリデータとして
データベース内に格納されるのでセキュリティ管理を細かく行うことができます。


ASP(Active Server Pages) ソースコード公開

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.