|
|
|
|
|
<%
Action = request("Action")
Gubun = request("Gubun")
Select Case Action
Case ""
Server.Execute "List.asp"
Case "List"
Server.Execute "List.asp"
Case "Write"
Server.Execute "Write.asp"
Case "Edit"
Server.Execute "Edit.asp"
Case "Delete"
Server.Execute "Delete.asp"
Case "View"
Server.Execute "View.asp"
Case "comment"
Server.Execute "cmtReg.asp"
Case "cmtDel"
Server.Execute "cmtDel.asp"
End Select
%>
|
|
|
|
|
|