%
Dim code
Dim Page_Now
Dim Page_Start
Dim Page_End
code = "0002"
Page_Start = 85
Page_End = 160
pageID = "0002_Page"
if not Session("Message") = "" then
message = Session("Message")
Session("Message") = ""
else
message = ""
end if
if Session(pageID) = "" or Session(pageID) = 0 then
if Request.Cookies(code) = "" then
' Response.Redirect "Regist.php?code=" & code
end if
end if
'---------------------------------------------------
' 現在のページのGIF
'---------------------------------------------------
Page_Now = Mid(Cstr(Cint(Session(pageID)) + 1000),2,3)
'---------------------------------------------------
' 前のページ
'---------------------------------------------------
if CStr(Session(pageID)) = CStr(Page_Start) then
Page_Prev = Page_Start
elseif CStr(Session(pageID)) = "145" then
Page_Prev = "95"
else
Page_Prev = Session(pageID ) - 1
end if
'---------------------------------------------------
' 次のページ
'---------------------------------------------------
if CStr(Session(pageID)) = CStr(Page_End) then
Page_Next = Page_End
elseif CStr(Session(pageID)) = "95" then
Page_Next = "145"
else
Page_Next = Session(pageID) + 1
end if
'---------------------------------------------------
' ページの書き出し
'---------------------------------------------------
Call pageWrite
'--------------------------------------------
' ページの書き出し
'--------------------------------------------
sub pageWrite
%>