![]() |
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.