|
<%
' **********************************************************
' 外部ファイル
' **********************************************************
%><!-- #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 Message ' 通常メッセージ用
Dim InData ' フレーム間引継ぎ埋め込み用
Dim OptionList ' コンボボックス埋め込み用
Dim OutData ' 結果表示埋め込み用
Dim Cn,Rs ' データベース用
' ------------------------------------------------
' HEAD 部で入力されたコードはクッキーに保存
' ------------------------------------------------
if MyData( "In1Key" ) <> "" then
Call SetCookie( "In1Key", MyData( "In1Key" ) )
end if
' ------------------------------------------------
' データベース接続
' ------------------------------------------------
Call DBConnect( Cn, "ASPMySQL", "lightbox", "root", "" )
' **********************************************************
' 処理コントロール
' **********************************************************
Select Case MyData("GNO")
Case PASS_HEAD
Call CheckDataHead( )
if ErrMessage = "" then
Call GetData( )
else
MyData("GNO") = PASS_MESSAGE
end if
Case PASS_BODY
if MyData("send") = "削除" then
Call DeleteData( )
if ErrMessage = "" then
MyData("GNO") = PASS_MESSAGE
Message = "正常に削除されました"
end if
else
Call CheckDataBody( )
if ErrMessage = "" then
Call UpdateData( )
if ErrMessage = "" then
MyData("GNO") = PASS_MESSAGE
Message = "正常に更新されました"
end if
end if
end if
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()
%>
| |