台灣最大程式設計社群網站
線上人數
653
 
會員總數:245143
討論主題:189047
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 新增,修改,刪除合一
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
新增,修改,刪除合一
價值 : 0 QP  點閱數:1964 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
<%
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
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.