|
<%
' **********************************************************
' ŠO•”ƒtƒ@ƒCƒ‹
' **********************************************************
%><!-- #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"
' **********************************************************
' ƒOƒ[ƒoƒ‹•Ï”’è‹`
' **********************************************************
Dim ErrMessage ' ƒGƒ‰[ˆ——p
Dim InData ' –„‚ßž‚Ý—p
Dim OutData ' –„‚ßž‚Ý—p
Dim Cn,Rs ' ƒf[ƒ^ƒx[ƒX—p
if MyData( "In1Meisyo" ) <> "" then
Call SetCookie( "In1Meisyo", MyData( "In1Meisyo" ) )
end if
Call DBConnect( Cn, "ASPMySQL", "lightbox", "root", "" )
' **********************************************************
' ˆ—ƒRƒ“ƒgƒ[ƒ‹
' **********************************************************
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
Call UpdateData()
Call GetData( )
if ErrMessage <> "" then
MyData("GNO") = PASS_MESSAGE
end if
End Select
End Select
' **********************************************************
' ƒrƒ…[
' **********************************************************
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 )
' **********************************************************
' ƒfƒoƒbƒO—p
' **********************************************************
Call DispData()
%>
| |