<% 'このスクリプトは現在非利用 main() Sub main() If Not(InternetCheck()) Then Exit Sub End If ' If Not(VisitorCheck()) Then ' Exit Sub ' End If If Not(ShopAdminCheck()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub Dim Query Dim Content Dim Content2 %>

「参照」ボタンをクリックし、アップロードしたいファイルを選択してください。
（選択中のフォルダに存在する同名ファイルは上書きされます）

アップロード対象フォルダ ： <% = Request("Folder") %><% If Request("Folder") = "/" Then Response.Write(" （ルートフォルダ）") End If %>
"> <% If Request("FileName") <> "" Then %>

アップロードされました [<% = Request("FileName") %>] <% End If %>

<% End Sub %>