戻る

WEB DE ドキュメント管理 VBソース

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

WEB DE ドキュメント管理はすべてのソースコードが公開されています。


汎用性を高めるために処理ごとにプロシージャにまとめられています。
ソースはカスタマイズしやすくコメントが随所に記されています。


Public Sub UploadFile()
'// ファイルアップロード処理
    
    Dim lngFileDataStart      ' バイナリデータのスタート地点
    Dim lngFileDataEnd        ' バイナリデータの終了地点
    Dim strFileExtension      ' 拡張子
    Dim strFileNoExt          ' 拡張子なしファイル名
    
    Dim strSQL, rsTemp
    
    Call OpenDB ' データベース接続

    '--設定ファイルからアップロードパスワードが要求されているかをチェックする
    If GetFromINI("PackSeries.ini", "Upload", "UsePWD", True)  _
       And Session("admin") = 0 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


サーバ管理ツールも Visual Basic ソースコード付

Web DE スケジュール管理に付属のサーバ管理ツールも Visual Basic ソースコードが公開されています。

©2000 Inside Soft Design. All rights reserved.