常用操作管理
<%
Dim Action
action=Request.QueryString("action")
Select Case Lcase(action)
Case "save" : Call Save()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%
Sub Save()
CmsDj_Com_Str=request.Form("CmsDj_Com_Plug")
Fso.CreateFile "../Data/Cache/Plug.txt",True ,CmsDj_Com_Str
%>
<%
Call AdminAlert("更新常用操作成功,正在返回...","Admin_Plug.asp",0)
Response.End
End Sub
Sub Main()
%>