<%
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 ActShopID
ActShopID = Request("ActShopID")
If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then
Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf)
Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("戻る" & vbCrLf)
Exit Sub
End If
Dim Query
Dim Content
Dim Content2
Dim Cnt
Dim TCnt
Dim HaisouFlg(4)
Dim HaisouMei(4)
Dim HaisouSoryo(4)
Dim Haisou(4)
Dim KessaiFlg(3)
Dim KessaiMei(3)
Dim Kessai(3)
For Cnt = 1 To 4
HaisouFlg(Cnt) = Request("HaisouFlg" & Cnt)
HaisouMei(Cnt) = ConvProhiStr(Request("HaisouMei" & Cnt))
Haisou(Cnt) = Replace(ConvProhiStr(Request("Haisou" & Cnt)), vbCrLf, "
")
HaisouSoryo(Cnt) = Request("HaisouSoryo" & Cnt)
Next
For Cnt = 1 To 3
KessaiFlg(Cnt) = Request("KessaiFlg" & Cnt)
KessaiMei(Cnt) = ConvProhiStr(Request("KessaiMei" & Cnt))
Kessai(Cnt) = Replace(ConvProhiStr(Request("Kessai" & Cnt)), vbCrLf, "
")
Next
Dim DaibikiFlg
Dim DaibikiKijun(7)
Dim DaibikiTesuryo(7)
Dim DaibikiKijunFlg
DaibikiFlg = Request("DaibikiFlg")
DaibikiKijunFlg = Request("DaibikiKijunFlg")
For Cnt = 1 To 7
DaibikiKijun(Cnt) = Request("DaibikiKijun" & Cnt)
DaibikiTesuryo(Cnt) = Request("DaibikiTesuryo" & Cnt)
Next
'代金引換基準を昇順に並べ替え
Dim TmpDaibikiKijun(7)
Dim TmpDaibikiTesuryo(7)
For Cnt = 1 To 7
TmpDaibikiKijun(Cnt) = "null"
TmpDaibikiTesuryo(Cnt) = "null"
Next
Dim TmpKijun
Dim TmpCnt
TmpKijun = 0
For TmpCnt = 1 To 7
For Cnt = 1 To 7
If DaibikiKijun(Cnt) <> "" And IsNumeric(DaibikiKijun(Cnt)) And DaibikiTesuryo(Cnt) <> "" And IsNumeric(DaibikiTesuryo(Cnt)) Then
If CDbl(DaibikiKijun(Cnt)) > TmpKijun Then
'直前の値より大きい
If Not(IsNumeric(TmpDaibikiKijun(TmpCnt))) Then
'まだ代入されていない場合は代入
TmpDaibikiKijun(TmpCnt) = DaibikiKijun(Cnt)
TmpDaibikiTesuryo(TmpCnt) = DaibikiTesuryo(Cnt)
ElseIf CDbl(DaibikiKijun(Cnt)) < CDbl(TmpDaibikiKijun(TmpCnt)) Then
'直前の値より大きい場合は代入
TmpDaibikiKijun(TmpCnt) = DaibikiKijun(Cnt)
TmpDaibikiTesuryo(TmpCnt) = DaibikiTesuryo(Cnt)
End If
End If
End If
Next
If IsNumeric(TmpDaibikiKijun(TmpCnt)) Then
TmpKijun = CDbl(TmpDaibikiKijun(TmpCnt))
Else
Exit For
End If
Next
Query = "exec SPMショップ配送決済更新 " & GB_ShopAdmin & " "
For Cnt = 1 To 4
Query = Query & ", '" & HaisouFlg(Cnt) & "' "
Query = Query & ", '" & HaisouMei(Cnt) & "' "
Query = Query & ", '" & HaisouSoryo(Cnt) & "' "
Query = Query & ", '" & Haisou(Cnt) & "' "
Next
For Cnt = 1 To 3
Query = Query & ", '" & KessaiFlg(Cnt) & "' "
Query = Query & ", '" & KessaiMei(Cnt) & "' "
Query = Query & ", '" & Kessai(Cnt) & "' "
Next
Query = Query & ", '" & DaibikiFlg & "' "
For Cnt = 1 To 7
Query = Query & ", " & TmpDaibikiKijun(Cnt) & " "
Next
For Cnt = 1 To 7
Query = Query & ", " & TmpDaibikiTesuryo(Cnt) & " "
Next
Query = Query & ", '" & DaibikiKijunFlg & "' "
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'送料（全削除してから挿入）
Query = " DELETE FROM TFショップ送料 WHERE ショップID = " & GB_ShopAdmin & " "
For Cnt = 1 To 4
For TCnt = 0 To 47
Dim TmpSoryo
TmpSoryo = Replace(Replace(Replace(Request("Soryo" & Cnt & "_" & TCnt), ",", ""), " ", ""), " ", "")
If TmpSoryo <> "" And IsNumeric(TmpSoryo) Then
Query = Query & " INSERT INTO TFショップ送料 (ショップID, 区分, 都道府県CD, 送料) "
Query = Query & " VALUES (" & GB_ShopAdmin & ", " & Cnt & ", " & TCnt & ", " & TmpSoryo & ") "
End If
Next
Next
'Response.Write(Request("Soryo1_0"))
'Response.Write(Query)
'Exit Sub
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Response.Redirect("shoptranspay.asp?ActShopID=" & ActShopID & "")
End Sub
%>