![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 站務人員 站長 ![]()
![]() ![]() ![]() |
dim i,Page,EMASDB,Myset,MaxPage Dim TemplateID,Title,DepartID,TemplateItemID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag set EMASDB = new clsEMASDatabase if Request.Form("TemplateID") <> "" Then TemplateID = Request.Form("TemplateID") if Request.Form("Title") <> "" Then Title = Request.Form("Title") if Request.Form("Depart") <> "" Then DepartID = Request.Form("Depart") if Request.QueryString("TemplateID") <> "" Then TemplateID = Request.QueryString("TemplateID") if Request.Form("Update") <> "" THen EMASDB.TemplateUpdate TemplateID,Title,DepartID for i = 1 to 10 if Request.Form("TemplateItemID" & i) <> "" then TemplateItemID = Request.Form("TemplateItemID" & i) if Request.Form("ItemEvent" & i) <> "" then ItemEvent = Request.Form("ItemEvent" & i) if Request.Form("PreFinishTime" & i) <> "" then PreFinishTime = Request.Form("PreFinishTime" & i) if Request.Form("TargetFlag" & i) <> "" then TargetFlag = True else TargetFlag = False if Request.Form("SelfFlag" & i) <> "" then SelfFlag = True else SelfFlag = False IF Request.form("UpdateItem" & i) <> "" then EMASDB.ItemUpdate TemplateItemID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag IF Request.form("DeleteItem" & i) <> "" then EMASDB.ItemDelete TemplateItemID next if Request.Form("ItemEvent" ) <> "" then ItemEvent = Request.Form("ItemEvent") if Request.Form("PreFinishTime") <> "" then PreFinishTime = Request.Form("PreFinishTime") if Request.Form("TargetFlag") <> "" then TargetFlag = True else TargetFlag = False if Request.Form("SelfFlag" ) <> "" then SelfFlag = True else SelfFlag = False IF Request.form("AddNewItem") <> "" then EMASDB.ItemAddNew TemplateID,ItemEvent,PreFinishTime,TargetFlag,SelfFlag Page = 1 if Request.QueryString("Page") <> "" then Page = Request.QueryString("Page") if Request.Form("Page") <> "" then Page = Request.FROM("Page") MaxPage = EMASDB.TemplateItemMaxPage(10,TemplateID) IF Request.form("AddNewItem") <> "" then Page = MaxPage set Myset = EMASDB.GetRecordset("SELECT * FROM Template Where TemplateID = " & TemplateID) Title = Myset("TemplateName") DepartID = Myset("DepartID") Myset.close %>
本篇文章發表於2002-03-13 00:00
|