<%
'-------------------------------------------------------------------------------
' 名 称：password.asp
' 機 能：E-mailアドレスとパスワードの入力チェック画面
' 戻り画面：default.asp
' ：shopping.asp
' ：order.asp
' 送 信 先：password.asp（入力OK）
' 次 画 面：shiharai.asp
' ：custmenu.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
'on error resume next
'----- 変数宣言
Dim l_objDbClass 'データベース
Dim l_objRSet 'レコードセット
Dim l_strSql 'SQL文
Dim l_params 'SQL用配列
Dim DataBase 'ﾃﾞｰﾀﾍﾞｰｽ種類
Dim Msg 'メッセージ
Dim Fast '
Dim iCount 'アイテム数
Dim shopcode 'ショップ
Dim Gamen '画面フラグ
Dim Hozon '検索結果保存フラグ
Dim WebEmail '問合せEMAIL
Dim WebPhone '問合せ電話番号
Dim WebName '会社名
Dim WebBumon '問合せ部門名
Dim SSL 'SSL
Dim Bl '
Dim line '
Dim ans1 '
Dim ans2 '
Dim ans3 '
Dim remind 'ﾘﾏｲﾝﾀﾞｰ機能判定（true：「ﾘﾏｲﾝﾀﾞｰ」押下+ﾒｰﾙﾁｪｯｸOK）ﾌﾗｸﾞ
Dim hint 'ヒント（ﾘﾏｲﾝﾀﾞｰ機能質問格納用）
Dim answer 'アンサー（ﾘﾏｲﾝﾀﾞｰ機能回答格納）
Dim email 'E-mail
Dim SessionID
Dim Shocd
Dim intCartCount 'カートの中の明細数
Dim i
Dim ARYshoppingcart 'ショッピングカート
Dim l_clsSession
%>
<%
SessionID=Trim(Request("sessionid"))
iCount = session("ItemCount")
Gamen = trim(request("gamen"))
Shocd = trim(Request("Shocd")) '商品コード
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
'Sessionオブジェクト作成
Set l_clsSession = new CSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
shopcode=session("Shop")
if strCustcode <> "" AND strCustcode <> 0 then
if Gamen = "2" then
session("SessionID") = SessionID
session("gamen") = 2
server.transfer("custmenu.asp")
else
session("sessionid") = SessionID
session("gamen") = Gamen
server.transfer("shiharai.asp")
end if
end if
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 Not l_objRSet.Eof then
DataBase = cint(l_objRSet.Fields("DBTYPE"))
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
SSL = cint(l_objRSet("SSL"))
WebEmail = trim(l_objRSet("問合せEMAIL"))
WebPhone = trim(l_objRSet("問合せ電話番号"))
WebName = trim(l_objRSet("会社名"))
WebBumon = trim(l_objRSet("問合せ部門名"))
end if
'レコードセットクローズ
l_objRSet.close
'現在のカートの中に商品が入っているか確認。
l_strSql = "SELECT COUNT(*) AS CARTCOUNT FROM CART WHERE ACODE = ? AND SESSIONID = ?"
Redim l_params(2)
l_params(1) = ACODE
l_params(2) = SessionID
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
intCartCount = l_objRSet("CARTCOUNT")
l_objRSet.close
set l_objRSet = nothing
Bl = " "
line = "---------------------------------------------"
ans1 = "いつも,インターネットショッピングをご利用頂,誠に有り難うございます"
ans2 = "このメールは、サーバーより自動応答しております。"
ans3 = "パスワードのお取り扱いには、ご注意いただきますようお願いいたします。"
msg = ""
remind = request("remind")
hint = request("hint")
answer = trim(request("answer"))
email = trim(request("email"))
'パスワード入力画面での「入力ＯＫ」押下時
'If Request("ACT") = "入力ＯＫ" Then
If Request("FAST") <> "" Then
If email = "" Then
msg = "ﾒｰﾙｱﾄﾞﾚｽを入力してください。"
ElseIf trim(Request("pass")) = "" Then
msg = "ﾊﾟｽﾜｰﾄﾞを入力してください。"
Else
l_strSql = "select * from CUST where ACODE = ? AND EMAIL = ?"
Redim l_params(2)
l_params(1) = shopcode
l_params(2) = email
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
If l_objRSet.Eof Then
msg = "ﾒｰﾙｱﾄﾞﾚｽもしくはﾊﾟｽﾜｰﾄﾞが違います。もう一度入力してください。"
else
If trim(Request("pass")) <> trim(l_objRSet("ﾊﾟｽﾜｰﾄﾞ")) Then
msg = "ﾒｰﾙｱﾄﾞﾚｽもしくはﾊﾟｽﾜｰﾄﾞが違います。もう一度入力してください。"
else
strCustcode = trim(l_objRSet("CCODE"))
session("cname") = trim(l_objRSet("顧客名"))
' if (left(trim(l_objRSet("電話番号")),1) = 0) and (len(trim(l_objRSet("電話番号")))>8) and (CheckTelNumber(trim(l_objRSet("電話番号")))=0) then
' else
' msg="電話番号が正しく入力できておりません
こちらから再度入力をお願いします。
"
' end if
end If
end if
End If
if msg = "" then
'SESSION更新
iCount = Session("ItemCount")
Call l_clsSession.SelectCart()
Call l_clsSession.DeleteSession2()
SessionID = l_clsSession.SetSession()
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.InsertSession()
Call l_clsSession.UpdateSession
Call l_clsSession.InsertCart
'レコードセットクローズ
l_objRSet.Close
set l_objRSet = nothing
'コネクションクローズ
Call l_clsSession.dberrchk()'DBｴﾗｰﾁｪｯｸ
Set l_clsSession = Nothing
Call l_objDbClass.dberrchk()'DBｴﾗｰﾁｪｯｸ
set l_objDbClass = nothing
errchk 'ｴﾗｰﾁｪｯｸ
if Gamen = "2" then
session("sessionid") = sessionid
session("gamen") = 2
server.transfer("custmenu.asp")
else
session("sessionid") = sessionid
session("gamen") = gamen
server.transfer("shiharai.asp")
end if
end if
else
if Hozon = 2 and trim(request("fast")) = "" then
Hozonx("会員認証")
end if
end if
%>
パスワード入力
<%
'SESSION更新
Call l_clsSession.UpdateSession
'DBｴﾗｰﾁｪｯｸ
Call l_clsSession.dberrchk()
Set l_clsSession = Nothing
'DBｴﾗｰﾁｪｯｸ
Call l_objDbClass.dberrchk()
'コネクションクローズ
set l_objDbClass = nothing
'ｴﾗｰﾁｪｯｸ
errchk
'Sessionオブジェクトを破棄する。
session.abandon
%>