<%
'-------------------------------------------------------------------------------
' 名 称：index.asp
' 機 能：ＷＥＢショップメニュー
' キ ー １：hanbaihou.asp
' ２：default.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<% If now() > cdate(C_MENTE_START_DATE) and now() < cdate(C_MENTE_END_DATE) Then %>
<%= response.redirect("souryo.asp") %>
<% response.end %>
<% end if %>
<% If CDate("2019/10/01 0:00:00") <= Now() Then %>
YAHｵﾝﾗｲﾝｼｮｯﾌﾟ
フィーチャーフォン（ガラケー）全機種ではアクセスできません。
こちらからアクセスをお願い致します。
<%
Response.End
End If
%>
<%
on error goto 0
'クローズ制御
'If Now() > CDate("2007/07/03 23:59:59") Then
' Response.Redirect("end.asp")
'End If
'公式サイトからのリンクかチェック
Dim l_objDbClass
Dim l_objRSet
Dim database
Dim nebikiF
Dim nebikiT
Dim nebikiK
Dim pointShop
Dim l_strSql
Dim l_params
Dim CountNo
Dim Hozon
Dim SessionID
Dim l_clsSession
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
Set l_clsSession = new CSession
If Trim(Request("sessionid")) <> "" Then
SessionID = Trim(Request("sessionid"))
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
End If
session("ItemCount") = 0
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if l_objRSet.eof or l_objRSet.bof then
else
Call l_clsSession.SetWebemail(l_objRSet("問合せEMAIL"))
if len(l_objRSet("問合せ電話番号"))>0 then
Call l_clsSession.SetWebphone(l_objRSet("問合せ電話番号"))
else
Call l_clsSession.SetWebphone(null)
end if
Call l_clsSession.SetWebname(l_objRSet("会社名"))
DataBase = cint(l_objRSet.Fields("DBTYPE"))
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
session("shop") = l_objRSet.Fields("ACODE")
NebikiF = l_objRSet.Fields("値引期間自")
NebikiT = l_objRSet.Fields("値引期間至")
NebikiK = cint(l_objRSet.Fields("値引掛率"))
Pointshop = cint(l_objRSet.Fields("ﾎﾟｲﾝﾄｼｮｯﾌﾟ"))
end if
l_objRSet.close
Set l_objRSet = Nothing
if Hozon > 0 and SessionID="" then
l_strSql = "select MAX(日付) as Mdate from COUNTLOG"
Set l_objRSet = l_objDbClass.doExecuteWithRS(l_strSql)
if l_objRSet.eof or IsNull(l_objRSet.Fields("Mdate")) then
l_strSql = "Insert Into COUNTLOG Values(?, ?, 1, 1)"
Redim l_params(2)
l_params(1) = session("shop")
l_params(2) = date
Call l_objDbClass.doTranzaction(l_strSql, l_params)
CountNo = 1
else
if l_objRSet.Fields("Mdate") = date then
if DataBase = 1 then
l_strSql = "Select * from COUNTLOG Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(date)
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
else
l_strSql = "Select * from COUNTLOG Where 日付 = ?"
Redim l_params(1)
l_params(1) = date
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
end if
CountNo = clng(l_objRSet.Fields("累計")) + 1
if DataBase = 1 then
l_strSql = "Update COUNTLOG Set ｶｳﾝﾄ = ｶｳﾝﾄ + 1, 累計 = 累計+ 1 Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(date)
Call l_objDbClass.doTranzaction(l_strSql, l_params)
else
l_strSql = "Update COUNTLOG Set ｶｳﾝﾄ = ｶｳﾝﾄ + 1, 累計 = 累計+ 1 Where 日付 = ?"
Redim l_params(1)
l_params(1) = date
Call l_objDbClass.doTranzaction(l_strSql, l_params)
end if
else
if DataBase = 1 then
l_strSql = "Select * from COUNTLOG Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(l_objRSet.Fields("Mdate"))
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
else
l_strSql = "Select * from COUNTLOG Where 日付 = ?"
Redim l_params(1)
l_params(1) = l_objRSet.Fields("Mdate")
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
end if
CountNo = clng(l_objRSet.Fields("累計")) + 1
l_strSql = "Insert Into COUNTLOG Values(?, ?, 1, ?)"
Redim l_params(3)
l_params(1) = session("shop")
l_params(2) = year4(date)
l_params(3) = CountNo
Call l_objDbClass.doTranzaction(l_strSql, l_params)
end if
end if
Session("TIME") = "1"
Session("countno") = CountNo
Session("raiten") = year4(date)
Session("jikan") = now
Session("RIPｱﾄﾞﾚｽ") = request.servervariables("remote_host")
Session("kaijyun") = 0
l_objRSet.close
Set l_objRSet = nothing
elseif Hozon = 0 then
Session("TIME") = "1"
end if
If Trim(Request("sessionid")) <> "" Then
Call l_clsSession.DeleteCart
Call l_clsSession.UpdateSession
Else
'TOPに戻る為のURLを入れ込む
Call l_clsSession.SetPath(request("r"))
'こっちは会員情報（有無）ね。
Call l_clsSession.SetMemName(request("m"))
SessionID = l_clsSession.SetSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.DeleteSession
Call l_clsSession.InsertSession
End If
%>
YAHｵﾝﾗｲﾝｼｮｯﾌﾟ
ｵﾝﾗｲﾝｼｮｯﾌﾟTOP
<%
if Session("nenmatu_nenshi_hyojun") <> "" then
response.write(Session("nenmatu_nenshi_hyojun"))
response.write("
")
end if
%>
<% If CheckStartDate() = False Then %>
<%= GetStartDateStr() %> から販売開始を予定しております。
<% ElseIf CheckEndDate() = False Then %>
<%= GetEndDateStr() %> をもって販売を終了しました。
<% Else %>
お買い物
<% End If %>
ご利用方法
特定商取引法に基づく表示
<%
Set l_objRSet = nothing
%>
&sessionid=<%=Server.URLEncode(SessionID)%>>よくあるお問い合わせ
YAH TOP
<%
Call l_clsSession.dberrchk()
Set l_clsSession = Nothing
Call l_objDbClass.dberrchk()
Set l_objDbClass = nothing
ErrChk
%>