<%
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
Dim fs, obj
Dim FileDir
Dim a, b, f1, fsize1, l1, FileName
a=Request.TotalBytes
On Error Resume Next
Err.Clear()
b=Request.BinaryRead(a)
If Err.Description <> "" Then
Response.Write("エラーが発生しました。
ファイルサイズが大きすぎる可能性があります。
")
Response.Write("エラーコード：")
Response.Write(Err.Description)
Response.Write("
")
Response.Write("戻る")
Exit Sub
End If
On Error Goto 0
set obj = server.createobject("basp21")
fsize1 = obj.FormFileSize(b,"UpFile")
Dim Folder
Folder = obj.Form(b,"Folder")
Dim HomepageFolder
HomepageFolder = "" & HomeAliasSL & "shop/" & GB_ShopAdmin '不正なフォルダにアップされないようここで管理サイトを特定する
Dim UpFolder
UpFolder = HomepageFolder & Folder
f1 = obj.FormFileName(b,"UpFile")
FileName = Mid(f1, InStrRev(f1, "\") + 1) 'パスからファイル名を取り出す
Dim FileExt
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) 'ファイル名から拡張子を取り出す
If LCase(FileExt) = "asp" Or LCase(FileExt) = "aspx" Then
Response.Write("サーバーサイドスクリプトはアップロードできません。
")
Response.Write("戻る")
Exit Sub
End If
l1 = obj.FormSaveAs(b, "UpFile", Server.MapPath(UpFolder) & "\" & FileName)
'テキストファイル内の target="_top" 指定を target="_ｔｏｐ" に入れ替える
Dim objFS
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Dim objTS
Set objTS = objFS.OpenTextFile(Server.MapPath(UpFolder) & "\" & FileName, 1, True) '読み取り専用
Dim HTMLData
HTMLData = objTS.ReadAll
objTS.Close
if 0=1 then
If InStr(HTMLData, " target=""_top""") > 0 Or InStr(HTMLData, " target='_top'") > 0 Then
HTMLData = Replace(LCase(HTMLData), " target=""_top""", " target=""_ｔｏｐ""")
HTMLData = Replace(LCase(HTMLData), " target='_top'", " target='_ｔｏｐ'")
Set objTS = objFS.OpenTextFile(Server.MapPath(UpFolder) & "\" & FileName, 2, True) '書き込み専用
objTS.Write(HTMLData)
objTS.Close
End If
End If
%>
<%
End Sub
%>