<% 'Cookieチェック strCookieValueSet = "true" strCookieValueRead = "false" Response.Cookies("cookie_asptest") = strCookieValueSet Response.Cookies("cookie_asptest").Expires = Date + 1 strCookieValueRead = Request.Cookies("cookie_asptest") If strCookieValueSet = strCookieValueRead Then Response.Write "
" Else Response.Write "
※ ブラウザーのCookieを有効にしてください
" End If wrkID = Session.Contents("SSCid") IF Len(wrkID) = 0 Then strTEXT = "session.txt" Set textS = Server.CreateObject("Scripting.FileSystemObject") Set testT = textS.OpenTextFile(Server.MapPath(strTEXT),1) Do While Not testT.AtEndOfStream strCOUNT = testT.ReadLine Loop testT.Close numCOUNT = CCur(strCOUNT) + 1 Set textS = Server.CreateObject("Scripting.FileSystemObject") Set testT = textS.OpenTextFile(Server.MapPath(strTEXT),2) testT.Write numCOUNT testT.Close 'セッション開始 Session.Contents("SSCid") = numCOUNT END IF %>
SOLD OUT
FEUN-SB002
\2100
（税込）
FEUN-SB003
\2100
（税込）
FEUN-SB004
\2100
（税込）
SOLD OUT
FEUN-SB006
\2100
（税込）
FEUN-SB007
\2625
（税込）
SOLD OUT
SOLD OUT
サンプル集はコチラ
FEUN-SBLASER
\1050
（税込）
Copyright© MIY® 2005 Allright reserved.
ご意見・ご質問は
コチラ
まで
