<%
main()
Sub main()
If Not(InternetCheck()) Then
Exit Sub
End If
If Not(VisitorCheck()) Then
Exit Sub
End If
If Not(SysAdminCheck()) Then
Exit Sub
End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
Dim Query
Dim Content
Dim Content2
'作業フォルダ作成
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim TmpFolder
TmpFolder = "" & HomeAliasSL & "tmp/"
If Not(fso.FolderExists(Server.MapPath(TmpFolder))) Then
fso.CreateFolder(Server.MapPath(TmpFolder))
End If
Dim BASPObj
Dim Bytes, BinData, FileName, FileSize, l1
Bytes = Request.TotalBytes
On Error Resume Next
Err.Clear()
BinData = Request.BinaryRead(Bytes)
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 BASPObj = Server.CreateObject("basp21")
Dim School
School = BASPObj.Form(BinData, "School")
'Response.Write(School)
'Exit Sub
Dim objFile
FileSize = BASPObj.FormFileSize(BinData, "CSVFile")
If FileSize > 0 Then
FileName = BASPObj.FormFileName(BinData,"CSVFile")
l1 = BASPObj.FormSaveAs(BinData, "CSVFile", Server.MapPath(TmpFolder) & "\" & FileName)
'Response.Write(Server.MapPath(TmpFolder) & "\" & FileName)
'Exit Sub
On Error Resume Next
Err.Clear()
Set objFile = fso.OpenTextFile(Server.MapPath(TmpFolder) & "\" & FileName, 1, True)
If Err.Description <> "" Then
Response.Write("選択されたファイルはCSVファイルではありません。
")
Response.Write("エラーコード：")
Response.Write(Err.Description)
Response.Write("
")
Response.Write("戻る")
Exit Sub
End If
On Error Goto 0
Else
Response.Write("エラーが発生しました。
ファイルサイズが0バイトになっている可能性があります。
")
Response.Write("戻る")
Exit Sub
End If
Dim ErrIDRow
ErrIDRow = ""
Dim ErrPassRow
ErrPassRow = ""
Dim RowCnt
RowCnt = ""
Dim RowStr
Dim ColStr
Do Until objFile.AtEndOfStream = True
RowStr = objFile.ReadLine
Response.Write(RowStr)
Exit Sub
ColStr = Split(RowStr, ",")
If UBound(ColStr) >= 1 Then '2列以上かどうかのチェック（ログインID・パスワード）
If ColStr(0) <> "" Then 'IDの無い行は無視
If ColStr(0) = "" Then
End If
Loop
Response.Redirect("sysshop.asp?School=" & School & "&ErrFlg=0")
End Sub
%>