|
<%
' **********************************************************
' 外部ファイル
' **********************************************************
%><!-- #include virtual = "/asp/common.inc" --><%
%><!-- #include virtual = "/asp/dbMySQL.inc" --><%
%><!-- #include file = "model.inc" --><%
' **********************************************************
' 定数定義
' **********************************************************
Const PASS_MESSAGE = "1"
Const PASS_HEAD = "2"
Const PASS_BODY = "3"
' **********************************************************
' グローバル変数定義
' **********************************************************
Dim ErrMessage ' エラー処理用
Dim InData ' 埋め込み用
Dim OutData ' 埋め込み用
Dim Cn,Rs ' データベース用
if MyData( "In1Meisyo" ) <> "" then
Call SetCookie( "In1Meisyo", MyData( "In1Meisyo" ) )
end if
Call DBConnect( Cn, "ASPMySQL", "lightbox", "root", "" )
' **********************************************************
' 処理コントロール
' **********************************************************
Select Case Request.ServerVariables( "REQUEST_METHOD" )
Case "GET","POST"
Select Case MyData("GNO")
Case PASS_HEAD
Call GetData( )
if ErrMessage <> "" then
MyData("GNO") = PASS_MESSAGE
end if
Case PASS_BODY
if MyData("send") = "削除" then
DeleteData( )
end if
Call GetData( )
if ErrMessage <> "" then
MyData("GNO") = PASS_MESSAGE
end if
End Select
End Select
' **********************************************************
' ビュー
' **********************************************************
Call CreateInData( )
Select Case MyData("GNO")
Case PASS_MESSAGE
%><!-- #include file = "viewmessage.inc" --><%
Case PASS_HEAD
Call EditDataBody()
%><!-- #include file = "view2.inc" --><%
Case PASS_BODY
Call EditDataBody()
%><!-- #include file = "view2.inc" --><%
Case Else
if MyData("view") = "head" then
Call RestoreCookie( )
Call EditDataHead( )
%><!-- #include file = "view.inc" --><%
end if
if MyData("view") = "body" then
%><!-- #include file = "viewmessage.inc" --><%
end if
End Select
Call DBClose( Cn )
Call DBClose( Rs )
' **********************************************************
' デバッグ用
' **********************************************************
Call DispData()
%>
| |