<% '****************************************************************************************** ' Software name: xRedrobe(小红袍) Content Management System ' Version:1.0 ' Web: ' Author: 六点半 ' Copyright (C) 2005-2009 小红袍官方 版权所有 '****************************************************************************************** viewHead dim typeArray,topicArray,topicDic,keyword,m_state,m_commend,repeat,playfrom,contentUrl,pTopic,m_department dim action,back:action=getForm("action", "get"):back=request.ServerVariables("HTTP_REFERER") dim page,vtype,order Select case action case "add":addNews case "del":delNews case "edit":editNews case "SendTask":SendTask case "Commerce":CommerceView case "Taxpayer":Taxpayer case "save":saveNews case "goTask":saveTask case "saveCommerce":saveCommerce case "saveTaxpayer":saveTaxpayer case "clearTask":clearTask case "shct":Shortcut case else:main End Select viewFoot Sub Shortcut dim m_Cid:m_Cid=getForm("infoId","get") dim shorid:shorid=0 if isNum(m_Cid) <> false then shorid= Find_mid(m_Cid,"Tasks") if shorid > 0 then echo("") else echo("") end if else echo("") end if End Sub Sub saveTask dim i,m_id,m_PlanCount,m_MastCharger,m_CtaCharger,charge,tempstr,c,sqlline: m_id = getForm("m_id","post"):m_PlanCount=1 dim m_taskType:m_taskType = getForm("m_taskType","post") dim m_RegSendApproved:m_RegSendApproved = getForm("m_RegSendApproved","post") if isNul(m_RegSendApproved) then m_RegSendApproved=0 end if if m_RegSendApproved = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegSendApprovedPass:m_RegSendApprovedPass = getForm("m_RegSendApprovedPass","post") if isNul(m_RegSendApprovedPass) then m_RegSendApprovedPass=0 end if if m_RegSendApprovedPass = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegSendReservation:m_RegSendReservation = getForm("m_RegSendReservation","post") if isNul(m_RegSendReservation) then m_RegSendReservation=0 end if if m_RegSendReservation = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleLicense:m_RegHandleLicense = getForm("m_RegHandleLicense","post") if isNul(m_RegHandleLicense) then m_RegHandleLicense=0 end if if m_RegHandleLicense = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegReceiveLicense:m_RegReceiveLicense = getForm("m_RegReceiveLicense","post") if isNul(m_RegReceiveLicense) then m_RegReceiveLicense=0 end if if m_RegReceiveLicense = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandlePubSeal:m_RegHandlePubSeal = getForm("m_RegHandlePubSeal","post") if isNul(m_RegHandlePubSeal) then m_RegHandlePubSeal=0 end if if m_RegHandlePubSeal = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleFinanceSeal:m_RegHandleFinanceSeal = getForm("m_RegHandleFinanceSeal","post") if isNul(m_RegHandleFinanceSeal) then m_RegHandleFinanceSeal=0 end if if m_RegHandleFinanceSeal = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandlePersonalSeal:m_RegHandlePersonalSeal = getForm("m_RegHandlePersonalSeal","post") if isNul(m_RegHandlePersonalSeal) then m_RegHandlePersonalSeal=0 end if if m_RegHandlePersonalSeal = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleAgencyCode:m_RegHandleAgencyCode = getForm("m_RegHandleAgencyCode","post") if isNul(m_RegHandleAgencyCode) then m_RegHandleAgencyCode=0 end if if m_RegHandleAgencyCode = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleTax:m_RegHandleTax = getForm("m_RegHandleTax","post") if isNul(m_RegHandleTax) then m_RegHandleTax=0 end if if m_RegHandleTax = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleInvoiceSeal:m_RegHandleInvoiceSeal = getForm("m_RegHandleInvoiceSeal","post") if isNul(m_RegHandleInvoiceSeal) then m_RegHandleInvoiceSeal=0 end if if m_RegHandleInvoiceSeal = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleAccount:m_RegHandleAccount = getForm("m_RegHandleAccount","post") if isNul(m_RegHandleAccount) then m_RegHandleAccount=0 end if if m_RegHandleAccount = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegReceiveAccount:m_RegReceiveAccount = getForm("m_RegReceiveAccount","post") if isNul(m_RegReceiveAccount) then m_RegReceiveAccount=0 end if if m_RegReceiveAccount = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleDeductible:m_RegHandleDeductible = getForm("m_RegHandleDeductible","post") if isNul(m_RegHandleDeductible) then m_RegHandleDeductible=0 end if if m_RegHandleDeductible = 1 then m_PlanCount=m_PlanCount+1 end if dim m_RegHandleInterbank:m_RegHandleInterbank = getForm("m_RegHandleInterbank","post") if isNul(m_RegHandleInterbank) then m_RegHandleInterbank=0 end if if m_RegHandleInterbank = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxAppform:m_GtaxAppform = getForm("m_GtaxAppform","post") if isNul(m_GtaxAppform) then m_GtaxAppform=0 end if if m_GtaxAppform = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxNotice:m_GtaxNotice = getForm("m_GtaxNotice","post") if isNul(m_GtaxNotice) then m_GtaxNotice=0 end if if m_GtaxNotice = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxSecureg:m_GtaxSecureg = getForm("m_GtaxSecureg","post") if isNul(m_GtaxSecureg) then m_GtaxSecureg=0 end if if m_GtaxSecureg = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxEntername:m_GtaxEntername = getForm("m_GtaxEntername","post") if isNul(m_GtaxEntername) then m_GtaxEntername=0 end if if m_GtaxEntername = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxTrain:m_GtaxTrain = getForm("m_GtaxTrain","post") if isNul(m_GtaxTrain) then m_GtaxTrain=0 end if if m_GtaxTrain = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxSecupublish:m_GtaxSecupublish = getForm("m_GtaxSecupublish","post") if isNul(m_GtaxSecupublish) then m_GtaxSecupublish=0 end if if m_GtaxSecupublish = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxSecuinstall:m_GtaxSecuinstall = getForm("m_GtaxSecuinstall","post") if isNul(m_GtaxSecuinstall) then m_GtaxSecuinstall=0 end if if m_GtaxSecuinstall = 1 then m_PlanCount=m_PlanCount+1 end if dim m_GtaxBuyinvoice:m_GtaxBuyinvoice = getForm("m_GtaxBuyinvoice","post") if isNul(m_GtaxBuyinvoice) then m_GtaxBuyinvoice=0 end if if m_GtaxBuyinvoice = 1 then m_PlanCount=m_PlanCount+1 end if dim m_username:m_username=rCookie("m_username") m_MastCharger = trim(getForm("h_mastCharge","post")) m_CtaCharger = getForm("tempCharge","post") '在这里添加分派任務的代码 sqlline = " m_CtaSendTasker='"&m_username&"',m_taskType ="&m_taskType&",m_PlanCount="&m_PlanCount&",m_RegSendApproved="&m_RegSendApproved&",m_RegSendApprovedPass="&m_RegSendApprovedPass&",m_RegSendReservation="&m_RegSendReservation sqlline = sqlline&",m_RegHandleLicense ="&m_RegHandleLicense&",m_RegReceiveLicense="&m_RegReceiveLicense&",m_RegHandlePubSeal="&m_RegHandlePubSeal sqlline = sqlline&",m_RegHandleFinanceSeal ="&m_RegHandleFinanceSeal&",m_RegHandlePersonalSeal="&m_RegHandlePersonalSeal&",m_RegHandleAgencyCode="&m_RegHandleAgencyCode sqlline = sqlline&",m_RegHandleTax ="&m_RegHandleTax&",m_RegHandleInvoiceSeal="&m_RegHandleInvoiceSeal&",m_RegHandleAccount="&m_RegHandleAccount sqlline = sqlline&",m_RegReceiveAccount ="&m_RegReceiveAccount&",m_RegHandleDeductible="&m_RegHandleDeductible&",m_RegHandleInterbank="&m_RegHandleInterbank sqlline = sqlline&",m_GtaxAppform ="&m_GtaxAppform&",m_GtaxNotice="&m_GtaxNotice&",m_GtaxSecureg="&m_GtaxSecureg&",m_GtaxEntername ="&m_GtaxEntername sqlline = sqlline&",m_GtaxTrain="&m_GtaxTrain&",m_GtaxSecupublish="&m_GtaxSecupublish&",m_GtaxSecuinstall="&m_GtaxSecuinstall&",m_GtaxBuyinvoice="&m_GtaxBuyinvoice sqlline = sqlline&",m_MastCharger='"&m_MastCharger&"',m_CtaCharger='"&m_CtaCharger&"',m_SendTaskState=1" sqlline="update {pre}Tasks set "&sqlline&" where m_id="&m_id conn.db sqlline,"execute" echo("") End Sub Sub saveCommerce dim sql_co,m_id:m_id = getForm("m_id","post"):if isNul(m_id) then m_id = 0 end if dim sql_ta,m_Tid:m_Tid = getForm("m_Tid","post") dim m_DateApproved:m_DateApproved = getForm("m_DateApproved","post") dim m_DateApprovedPass:m_DateApprovedPass = getForm("m_DateApprovedPass","post") dim m_DateReservation:m_DateReservation = getForm("m_DateReservation","post") dim m_DateLicense:m_DateLicense = getForm("m_DateLicense","post") dim m_DateReceiveLicense:m_DateReceiveLicense = getForm("m_DateReceiveLicense","post") dim m_DatePubSeal:m_DatePubSeal = getForm("m_DatePubSeal","post") dim m_DateFinanceSeal:m_DateFinanceSeal = getForm("m_DateFinanceSeal","post") dim m_DatePersonalSeal:m_DatePersonalSeal = getForm("m_DatePersonalSeal","post") dim m_DateAgencyCode:m_DateAgencyCode = getForm("m_DateAgencyCode","post") dim m_DateTax:m_DateTax = getForm("m_DateTax","post") dim m_DateInvoiceSeal:m_DateInvoiceSeal = getForm("m_DateInvoiceSeal","post") dim m_DateAccount:m_DateAccount = getForm("m_DateAccount","post") dim m_DateReceiveAccount:m_DateReceiveAccount = getForm("m_DateReceiveAccount","post") dim m_DateDeductible:m_DateDeductible = getForm("m_DateDeductible","post") dim m_DateInterbank:m_DateInterbank = getForm("m_DateInterbank","post") dim cstTasks:cstTasks = getForm("complete_Tasks","post"):if isNul(cstTasks) then cstTasks=0 end if dim complete_Tasks:complete_Tasks=CInt(cstTasks) echo("\t\t"&cstTasks) dim m_SummaryApproved:m_SummaryApproved = getForm("m_SummaryApproved","post") dim m_SummaryApprovedPass:m_SummaryApprovedPass = getForm("m_SummaryApprovedPass","post") dim m_SummaryReservation:m_SummaryReservation = getForm("m_SummaryReservation","post") dim m_SummaryLicense:m_SummaryLicense = getForm("m_SummaryLicense","post") dim m_SummaryReceiveLicense:m_SummaryReceiveLicense = getForm("m_SummaryReceiveLicense","post") dim m_SummaryPubSeal:m_SummaryPubSeal = getForm("m_SummaryPubSeal","post") dim m_SummaryFinanceSeal:m_SummaryFinanceSeal = getForm("m_SummaryFinanceSeal","post") dim m_SummaryPersonalSeal:m_SummaryPersonalSeal = getForm("m_SummaryPersonalSeal","post") dim m_SummaryAgencyCode:m_SummaryAgencyCode = getForm("m_SummaryAgencyCode","post") dim m_SummaryTax:m_SummaryTax = getForm("m_SummaryTax","post") dim m_SummaryInvoiceSeal:m_SummaryInvoiceSeal = getForm("m_SummaryInvoiceSeal","post") dim m_SummaryAccount:m_SummaryAccount = getForm("m_SummaryAccount","post") dim m_SummaryReceiveAccount:m_SummaryReceiveAccount = getForm("m_SummaryReceiveAccount","post") dim m_SummaryDeductible:m_SummaryDeductible = getForm("m_SummaryDeductible","post") dim m_SummaryInterbank:m_SummaryInterbank = getForm("m_SummaryInterbank","post") dim m_RegSendApproved:m_RegSendApproved = getForm("m_RegSendApproved","post"):if isNul(m_RegSendApproved) then m_RegSendApproved=0 end if dim m_RegSendApprovedPass:m_RegSendApprovedPass = getForm("m_RegSendApprovedPass","post"):if isNul(m_RegSendApprovedPass) then m_RegSendApprovedPass=0 end if dim m_RegSendReservation:m_RegSendReservation = getForm("m_RegSendReservation","post"):if isNul(m_RegSendReservation) then m_RegSendReservation=0 end if dim m_RegHandleLicense:m_RegHandleLicense = getForm("m_RegHandleLicense","post"):if isNul(m_RegHandleLicense) then m_RegHandleLicense=0 end if dim m_RegReceiveLicense:m_RegReceiveLicense = getForm("m_RegReceiveLicense","post"):if isNul(m_RegReceiveLicense) then m_RegReceiveLicense=0 end if dim m_RegHandlePubSeal:m_RegHandlePubSeal = getForm("m_RegHandlePubSeal","post"):if isNul(m_RegHandlePubSeal) then m_RegHandlePubSeal=0 end if dim m_RegHandleFinanceSeal:m_RegHandleFinanceSeal = getForm("m_RegHandleFinanceSeal","post"):if isNul(m_RegHandleFinanceSeal) then m_RegHandleFinanceSeal=0 end if dim m_RegHandlePersonalSeal:m_RegHandlePersonalSeal = getForm("m_RegHandlePersonalSeal","post"):if isNul(m_RegHandlePersonalSeal) then m_RegHandlePersonalSeal=0 end if dim m_RegHandleAgencyCode:m_RegHandleAgencyCode = getForm("m_RegHandleAgencyCode","post"):if isNul(m_RegHandleAgencyCode) then m_RegHandleAgencyCode=0 end if dim m_RegHandleTax:m_RegHandleTax = getForm("m_RegHandleTax","post"):if isNul(m_RegHandleTax) then m_RegHandleTax=0 end if dim m_RegHandleInvoiceSeal:m_RegHandleInvoiceSeal = getForm("m_RegHandleInvoiceSeal","post"):if isNul(m_RegHandleInvoiceSeal) then m_RegHandleInvoiceSeal=0 end if dim m_RegHandleAccount:m_RegHandleAccount = getForm("m_RegHandleAccount","post"):if isNul(m_RegHandleAccount) then m_RegHandleAccount=0 end if dim m_RegReceiveAccount:m_RegReceiveAccount = getForm("m_RegReceiveAccount","post"):if isNul(m_RegReceiveAccount) then m_RegReceiveAccount=0 end if dim m_RegHandleDeductible:m_RegHandleDeductible = getForm("m_RegHandleDeductible","post"):if isNul(m_RegHandleDeductible) then m_RegHandleDeductible=0 end if dim m_RegHandleInterbank:m_RegHandleInterbank = getForm("m_RegHandleInterbank","post"):if isNul(m_RegHandleInterbank) then m_RegHandleInterbank=0 end if if m_RegSendApproved = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegSendApprovedPass = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegSendReservation = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleLicense = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegReceiveLicense = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandlePubSeal = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleFinanceSeal = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandlePersonalSeal = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleAgencyCode = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleTax = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleInvoiceSeal = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleAccount = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegReceiveAccount = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleDeductible = 2 then complete_Tasks = complete_Tasks +1 end if if m_RegHandleInterbank = 2 then complete_Tasks = complete_Tasks +1 end if dim m_PlanCount:m_PlanCount= getForm("m_PlanCount","post") dim m_CtaSchedule : m_CtaSchedule=CInt((complete_Tasks/m_PlanCount)*100) conn.db "BEGIN TRANSACTION","execute" if m_id > 0 then sql_co="m_DateApproved='"&m_DateApproved&"',m_SummaryApproved='"&m_SummaryApproved&"',m_DateApprovedPass='"&m_DateApprovedPass&"',m_SummaryApprovedPass='" sql_co=sql_co&m_SummaryApprovedPass&"',m_DateReservation='"&m_DateReservation&"',m_SummaryReservation='"&m_SummaryReservation&"',m_DateLicense='" sql_co=sql_co&m_DateLicense&"',m_SummaryLicense='"&m_SummaryLicense&"',m_DateReceiveLicense='"&m_DateReceiveLicense&"',m_SummaryReceiveLicense='" sql_co=sql_co&m_SummaryReceiveLicense&"',m_DatePubSeal='"&m_DatePubSeal&"',m_SummaryPubSeal='"&m_SummaryPubSeal&"',m_DateFinanceSeal='" sql_co=sql_co&m_DateFinanceSeal&"',m_SummaryFinanceSeal='"&m_SummaryFinanceSeal&"',m_DatePersonalSeal='"&m_DatePersonalSeal&"',m_SummaryPersonalSeal='" sql_co=sql_co&m_SummaryPersonalSeal&"',m_DateAgencyCode='"&m_DateAgencyCode&"',m_SummaryAgencyCode='"&m_SummaryAgencyCode sql_co=sql_co&"',m_DateTax='"&m_DateTax&"',m_SummaryTax='"&m_SummaryTax&"',m_DateInvoiceSeal='"&m_DateInvoiceSeal&"',m_SummaryInvoiceSeal='" sql_co=sql_co&m_SummaryInvoiceSeal&"',m_DateAccount='"&m_DateAccount&"',m_SummaryAccount='"&m_SummaryAccount&"',m_DateReceiveAccount='" sql_co=sql_co&m_DateReceiveAccount&"',m_SummaryReceiveAccount='"&m_SummaryReceiveAccount&"',m_DateDeductible='"&m_DateDeductible&"',m_SummaryDeductible='" sql_co=sql_co&m_SummaryDeductible&"',m_DateInterbank='"&m_DateInterbank&"',m_SummaryInterbank='"&m_SummaryInterbank&"'" sql_co = "update {pre}Tasksmarks set "&sql_co&" where m_id="&m_id else sql_co = "insert into {pre}Tasksmarks(m_Tid,m_DateApproved,m_SummaryApproved,m_DateApprovedPass,m_SummaryApprovedPass," sql_co=sql_co&"m_DateReservation,m_SummaryReservation,m_DateLicense,m_SummaryLicense,m_DateReceiveLicense,m_SummaryReceiveLicense," sql_co=sql_co&"m_DatePubSeal,m_SummaryPubSeal,m_DateFinanceSeal,m_SummaryFinanceSeal,m_DatePersonalSeal," sql_co=sql_co&"m_SummaryPersonalSeal,m_DateAgencyCode,m_SummaryAgencyCode,m_DateTax,m_SummaryTax,m_DateInvoiceSeal,m_SummaryInvoiceSeal,m_DateAccount," sql_co=sql_co&"m_SummaryAccount,m_DateReceiveAccount,m_SummaryReceiveAccount,m_DateDeductible,m_SummaryDeductible,m_DateInterbank,m_SummaryInterbank," sql_co=sql_co&"m_DateAppform,m_SummaryAppform,m_DateNotice,m_SummaryNotice,m_DateSecureg,m_SummarySecureg,m_DateEntername,m_SummaryEntername," sql_co=sql_co&"m_DateTrain,m_SummaryTrain,m_DateSecupublish,m_SummarySecupublish,m_DateSecuinstall,m_SummarySecuinstall,m_DateBuyinvoice," sql_co=sql_co&"m_SummaryBuyinvoice)values("&m_Tid&",'"&m_DateApproved&"','"&m_SummaryApproved&"','"&m_DateApprovedPass&"','"&m_SummaryApprovedPass sql_co=sql_co&"','"&m_DateReservation&"','"&m_SummaryReservation&"','"&m_DateLicense&"','"&m_SummaryLicense&"','"&m_DateReceiveLicense sql_co=sql_co&"','"&m_SummaryReceiveLicense&"','"&m_DatePubSeal&"','"&m_SummaryPubSeal&"','"&m_DateFinanceSeal&"','"&m_SummaryFinanceSeal sql_co=sql_co&"','"&m_DatePersonalSeal&"','"&m_SummaryPersonalSeal&"','"&m_DateAgencyCode&"','"&m_SummaryAgencyCode&"','"&m_DateTax&"','"&m_SummaryTax sql_co=sql_co&"','"&m_DateInvoiceSeal&"','"&m_SummaryInvoiceSeal&"','"&m_DateAccount&"','"&m_SummaryAccount&"','"&m_DateReceiveAccount sql_co=sql_co&"','"&m_SummaryReceiveAccount&"','"&m_DateDeductible&"','"&m_SummaryDeductible&"','"&m_DateInterbank&"','"&m_SummaryInterbank sql_co=sql_co&"','','','','','','','','','','','','','','','','')" end if sql_ta="m_CtaSchedule='"&m_CtaSchedule&"%',m_RegSendApproved="&m_RegSendApproved&",m_RegSendApprovedPass="&m_RegSendApprovedPass&",m_RegSendReservation=" sql_ta=sql_ta&m_RegSendReservation&",m_RegHandleLicense="&m_RegHandleLicense&",m_RegReceiveLicense="&m_RegReceiveLicense&",m_RegHandlePubSeal=" sql_ta=sql_ta&m_RegHandlePubSeal&",m_RegHandleFinanceSeal="&m_RegHandleFinanceSeal&",m_RegHandlePersonalSeal="&m_RegHandlePersonalSeal sql_ta=sql_ta&",m_RegHandleAgencyCode="&m_RegHandleAgencyCode&",m_RegHandleTax="&m_RegHandleTax&",m_RegHandleInvoiceSeal=" sql_ta=sql_ta&m_RegHandleInvoiceSeal&",m_RegHandleAccount="&m_RegHandleAccount&",m_RegReceiveAccount="&m_RegReceiveAccount&",m_RegHandleDeductible=" sql_ta=sql_ta&m_RegHandleDeductible&",m_RegHandleInterbank="&m_RegHandleInterbank sql_ta = "update {pre}Tasks set "&sql_ta&" where m_id="&m_Tid conn.db sql_co,"execute" conn.db sql_ta,"execute" If Err <> 0 then alertMsg "处理任务失败","" conn.db "ROLLBACK TRANSACTION","execute" else conn.db "COMMIT TRANSACTION","execute" end If echo("") End Sub Sub saveTaxpayer dim sql_co,m_id:m_id = getForm("m_id","post"):if isNul(m_id) then m_id = 0 end if dim sql_ta,m_Tid:m_Tid = getForm("m_Tid","post") dim m_DateAppform:m_DateAppform = getForm("m_DateAppform","post") dim m_SummaryAppform:m_SummaryAppform = getForm("m_SummaryAppform","post") dim m_DateNotice:m_DateNotice = getForm("m_DateNotice","post") dim m_SummaryNotice:m_SummaryNotice = getForm("m_SummaryNotice","post") dim m_DateSecureg:m_DateSecureg = getForm("m_DateSecureg","post") dim m_SummarySecureg:m_SummarySecureg = getForm("m_SummarySecureg","post") dim m_DateEntername:m_DateEntername = getForm("m_DateEntername","post") dim m_SummaryEntername:m_SummaryEntername = getForm("m_SummaryEntername","post") dim m_DateTrain:m_DateTrain = getForm("m_DateTrain","post") dim m_SummaryTrain:m_SummaryTrain = getForm("m_SummaryTrain","post") dim m_DateSecupublish:m_DateSecupublish = getForm("m_DateSecupublish","post") dim m_SummarySecupublish:m_SummarySecupublish = getForm("m_SummarySecupublish","post") dim m_DateSecuinstall:m_DateSecuinstall = getForm("m_DateSecuinstall","post") dim m_SummarySecuinstall:m_SummarySecuinstall = getForm("m_SummarySecuinstall","post") dim m_DateBuyinvoice:m_DateBuyinvoice = getForm("m_DateBuyinvoice","post") dim m_SummaryBuyinvoice:m_SummaryBuyinvoice = getForm("m_SummaryBuyinvoice","post") dim cstTasks:cstTasks = getForm("complete_Tasks","post"):if isNul(cstTasks) then cstTasks=0 end if dim complete_Tasks:complete_Tasks=CInt(cstTasks) dim m_GtaxAppform:m_GtaxAppform = getForm("m_GtaxAppform","post"):if isNul(m_GtaxAppform) then m_GtaxAppform=0 end if dim m_GtaxNotice:m_GtaxNotice = getForm("m_GtaxNotice","post"):if isNul(m_GtaxNotice) then m_GtaxNotice=0 end if dim m_GtaxSecureg:m_GtaxSecureg = getForm("m_GtaxSecureg","post"):if isNul(m_GtaxSecureg) then m_GtaxSecureg=0 end if dim m_GtaxEntername:m_GtaxEntername = getForm("m_GtaxEntername","post"):if isNul(m_GtaxEntername) then m_GtaxEntername=0 end if dim m_GtaxTrain:m_GtaxTrain = getForm("m_GtaxTrain","post"):if isNul(m_GtaxTrain) then m_GtaxTrain=0 end if dim m_GtaxSecupublish:m_GtaxSecupublish = getForm("m_GtaxSecupublish","post"):if isNul(m_GtaxSecupublish) then m_GtaxSecupublish=0 end if dim m_GtaxSecuinstall:m_GtaxSecuinstall = getForm("m_GtaxSecuinstall","post"):if isNul(m_GtaxSecuinstall) then m_GtaxSecuinstall=0 end if dim m_GtaxBuyinvoice:m_GtaxBuyinvoice = getForm("m_GtaxBuyinvoice","post"):if isNul(m_GtaxBuyinvoice) then m_GtaxBuyinvoice=0 end if if m_GtaxAppform = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxNotice = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxSecureg = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxEntername = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxTrain = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxSecupublish = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxSecuinstall = 2 then complete_Tasks = complete_Tasks +1 end if if m_GtaxBuyinvoice = 2 then complete_Tasks = complete_Tasks +1 end if dim m_PlanCount:m_PlanCount= getForm("m_PlanCount","post") dim m_CtaSchedule : m_CtaSchedule=CInt((complete_Tasks/m_PlanCount)*100) conn.db "BEGIN TRANSACTION","execute" if m_id > 0 then sql_co="m_DateAppform='"&m_DateAppform sql_co=sql_co&"',m_SummaryAppform='"&m_SummaryAppform&"',m_DateNotice='"&m_DateNotice&"',m_SummaryNotice='"&m_SummaryNotice&"',m_DateSecureg='" sql_co=sql_co&m_DateSecureg&"',m_SummarySecureg='"&m_SummarySecureg&"',m_DateEntername='"&m_DateEntername&"',m_SummaryEntername='" sql_co=sql_co&m_SummaryEntername&"',m_DateTrain='"&m_DateTrain&"',m_SummaryTrain='"&m_SummaryTrain&"',m_DateSecupublish='"&m_DateSecupublish&"',m_SummarySecupublish='" sql_co=sql_co&m_SummarySecupublish&"',m_DateSecuinstall='"&m_DateSecuinstall&"',m_SummarySecuinstall='"&m_SummarySecuinstall&"',m_DateBuyinvoice='" sql_co=sql_co&m_DateBuyinvoice&"',m_SummaryBuyinvoice='"&m_SummaryBuyinvoice&"'" sql_co = "update {pre}Tasksmarks set "&sql_co&" where m_id="&m_id else sql_co = "insert into {pre}Tasksmarks(m_Tid,m_DateApproved,m_SummaryApproved,m_DateApprovedPass,m_SummaryApprovedPass," sql_co=sql_co&"m_DateReservation,m_SummaryReservation,m_DateLicense,m_SummaryLicense,m_DateReceiveLicense,m_SummaryReceiveLicense," sql_co=sql_co&"m_DatePubSeal,m_SummaryPubSeal,m_DateFinanceSeal,m_SummaryFinanceSeal,m_DatePersonalSeal," sql_co=sql_co&"m_SummaryPersonalSeal,m_DateAgencyCode,m_SummaryAgencyCode,m_DateTax,m_SummaryTax,m_DateInvoiceSeal,m_SummaryInvoiceSeal,m_DateAccount," sql_co=sql_co&"m_SummaryAccount,m_DateReceiveAccount,m_SummaryReceiveAccount,m_DateDeductible,m_SummaryDeductible,m_DateInterbank,m_SummaryInterbank," sql_co=sql_co&"m_DateAppform,m_SummaryAppform,m_DateNotice,m_SummaryNotice,m_DateSecureg,m_SummarySecureg,m_DateEntername,m_SummaryEntername," sql_co=sql_co&"m_DateTrain,m_SummaryTrain,m_DateSecupublish,m_SummarySecupublish,m_DateSecuinstall,m_SummarySecuinstall,m_DateBuyinvoice," sql_co=sql_co&"m_SummaryBuyinvoice)values("&m_Tid&",'','','','','','','','','','','','','','','','','','','','" sql_co=sql_co&"','','','','','','','','','','','" sql_co=sql_co&m_DateAppform&"','"&m_SummaryAppform&"','"&m_DateNotice&"','"&m_SummaryNotice&"','"&m_DateSecureg&"','"&m_SummarySecureg sql_co=sql_co&"','"&m_DateEntername&"','"&m_SummaryEntername&"','"&m_DateTrain&"','"&m_SummaryTrain&"','"&m_DateSecupublish&"','"&m_SummarySecupublish sql_co=sql_co&"','"&m_DateSecuinstall&"','"&m_SummarySecuinstall&"','"&m_DateBuyinvoice&"','"&m_SummaryBuyinvoice&"')" end if sql_ta="m_CtaSchedule='"&m_CtaSchedule&"%',m_GtaxAppform="&m_GtaxAppform&",m_GtaxNotice="&m_GtaxNotice&",m_GtaxSecureg=" sql_ta=sql_ta&m_GtaxSecureg&",m_GtaxEntername="&m_GtaxEntername&",m_GtaxTrain="&m_GtaxTrain&",m_GtaxSecupublish=" sql_ta=sql_ta&m_GtaxSecupublish&",m_GtaxSecuinstall="&m_GtaxSecuinstall&",m_GtaxBuyinvoice="&m_GtaxBuyinvoice sql_ta = "update {pre}Tasks set "&sql_ta&" where m_id="&m_Tid conn.db sql_co,"execute" conn.db sql_ta,"execute" If Err <> 0 then alertMsg "处理任务失败","" conn.db "ROLLBACK TRANSACTION","execute" else conn.db "COMMIT TRANSACTION","execute" end If echo("") End Sub Sub clearTask dim m_id,sqlline,sqlStr,rsObj dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") m_id = getForm("id","get") sqlStr="select m_CtaSendTasker from {pre}Tasks where m_id="&m_id set rsObj = conn.db(sqlStr,"records1") if m_level>0 AND m_username <> rsObj("m_CtaSendTasker") then alertMsg "没有权限取消派單亚洲AV无码专区A片奶水，请与管理员联系！","":last end if conn.db "BEGIN TRANSACTION","execute" sqlline = " m_taskType =-1,m_CtaSchedule='0%',m_PlanCount=0,m_RegSendApproved=0,m_RegSendApprovedPass=0,m_RegSendReservation=0" sqlline = sqlline&",m_RegHandleLicense =0,m_RegReceiveLicense=0,m_RegHandlePubSeal=0" sqlline = sqlline&",m_RegHandleFinanceSeal =0,m_RegHandlePersonalSeal=0,m_RegHandleAgencyCode=0" sqlline = sqlline&",m_RegHandleTax =0,m_RegHandleInvoiceSeal=0,m_RegHandleAccount=0" sqlline = sqlline&",m_RegReceiveAccount =0,m_RegHandleDeductible=0,m_RegHandleInterbank=0" sqlline = sqlline&",m_GtaxAppform =0,m_GtaxNotice=0,m_GtaxSecureg=0,m_GtaxEntername =0" sqlline = sqlline&",m_GtaxTrain=0,m_GtaxSecupublish=0,m_GtaxSecuinstall=0,m_GtaxBuyinvoice=0" sqlline = sqlline&",m_MastCharger='',m_CtaCharger='',m_SendTaskState=0" sqlline="update {pre}Tasks set "&sqlline&" where m_id="&m_id conn.db sqlline,"execute" conn.db "DELETE FROM {pre}Tasksmarks where m_Tid="&m_id,"execute" If Err <> 0 then alertMsg "处理任务失败","" conn.db "ROLLBACK TRANSACTION","execute" else conn.db "COMMIT TRANSACTION","execute" end If echo("") End Sub Sub saveNews dim actType,ary:actType = getForm("acttype","get") dim updateSql,insertSql,m_back dim m_CompanyName,qury_CompanyName:m_CompanyName = getForm("CompanyName","post"):qury_CompanyName = getForm("CompanyName","post") dim m_id:m_id=getForm("m_id","post"):if not isNum(m_id) then m_id=0 dim m_Cid: m_Cid = getForm("m_Cid","post") dim infoId: infoId = getForm("infoId","post") if infoId="" then infoId=m_Cid end if if actType="add" then CheckId m_Cid end if dim m_CtaNumber:m_CtaNumber = getForm("m_CtaNumber","post") dim m_CtaContent:m_CtaContent = getForm("m_CtaContent","post") dim m_CtaReceivable:m_CtaReceivable = getForm("m_CtaReceivable","post"):if isNul(m_CtaReceivable) then m_CtaReceivable=0 end if dim m_CtaDepositDate:m_CtaDepositDate = getForm("m_CtaDepositDate","post") dim m_CtaDeposit:m_CtaDeposit = getForm("m_CtaDeposit","post"):if isNul(m_CtaDeposit) then m_CtaDeposit=0 end if dim m_CtaSurplusDate:m_CtaSurplusDate = getForm("m_CtaSurplusDate","post") dim m_CtaSurplus:m_CtaSurplus = getForm("m_CtaSurplus","post"):if isNul(m_CtaSurplus) then m_CtaSurplus=0 end if dim m_CtaTansker:m_CtaTansker =rCookie("m_username") dim m_CtaSendTasker:m_CtaSendTasker = getForm("m_CtaSendTasker","post") dim m_CtaSendTaskDate:m_CtaSendTaskDate = getForm("m_CtaSendTaskDate","post") dim m_CtaCharger:m_CtaCharger = getForm("m_CtaCharger","post") dim m_CtaSummary:m_CtaSummary = getForm("m_CtaSummary","post") dim m_CtaTransferDate:m_CtaTransferDate = getForm("m_CtaTransferDate","post") dim m_CtaSignaccountDate:m_CtaSignaccountDate = getForm("m_CtaSignaccountDate","post") dim m_CtaIsTaskEnd:m_CtaIsTaskEnd = getForm("m_CtaIsTaskEnd","post"):if isNul(m_CtaIsTaskEnd) then m_CtaIsTaskEnd=0 end if dim m_CtaTaskEnder:m_CtaTaskEnder = getForm("m_CtaTaskEnder","post") dim m_CtaTaskEndDate:m_CtaTaskEndDate = getForm("m_CtaTaskEndDate","post") select case actType case "edit" dim m_SendTaskState:m_SendTaskState = getForm("m_SendTaskState","post"):if isNul(m_SendTaskState) then m_SendTaskState=0 end if if m_CtaIsTaskEnd = 1 then '完成進度为100% updateSql = "m_CtaNumber='"&m_CtaNumber&"',m_CtaContent='"&m_CtaContent&"',m_CtaReceivable='"&m_CtaReceivable updateSql = updateSql&"',m_CtaDepositDate='"&m_CtaDepositDate&"',m_CtaDeposit='"&m_CtaDeposit&"',m_CtaSurplusDate='" updateSql = updateSql&m_CtaSurplusDate updateSql = updateSql&"',m_CtaSendTasker='"&m_CtaSendTasker&"',m_CtaSendTaskDate='"&m_CtaSendTaskDate updateSql = updateSql&"',m_CtaSchedule='100%',m_CtaSummary='"&m_CtaSummary updateSql = updateSql&"',m_CtaTransferDate='"&m_CtaTransferDate&"',m_CtaSignaccountDate='"&m_CtaSignaccountDate&"',m_CtaIsTaskEnd='"&m_CtaIsTaskEnd updateSql = updateSql&"',m_CtaTaskEnder='"&m_CtaTaskEnder&"',m_CtaTaskEndDate='"&m_CtaTaskEndDate&"'" else updateSql = "m_CtaNumber='"&m_CtaNumber&"',m_CtaContent='"&m_CtaContent&"',m_CtaReceivable='"&m_CtaReceivable updateSql = updateSql&"',m_CtaDepositDate='"&m_CtaDepositDate&"',m_CtaDeposit='"&m_CtaDeposit&"',m_CtaSurplusDate='" updateSql = updateSql&m_CtaSurplusDate&"',m_CtaTansker='"&m_CtaTansker updateSql = updateSql&"',m_CtaSendTasker='"&m_CtaSendTasker&"',m_CtaSendTaskDate='"&m_CtaSendTaskDate updateSql = updateSql&"',m_CtaSummary='"&m_CtaSummary updateSql = updateSql&"',m_CtaTransferDate='"&m_CtaTransferDate&"',m_CtaSignaccountDate='"&m_CtaSignaccountDate&"',m_CtaIsTaskEnd='"&m_CtaIsTaskEnd updateSql = updateSql&"',m_CtaTaskEnder='"&m_CtaTaskEnder&"',m_CtaTaskEndDate='"&m_CtaTaskEndDate&"'" end if updateSql = "update {pre}Tasks set "&updateSql&" where m_id="&m_id conn.db updateSql,"execute" m_back="Tasks.asp?action=edit&id="&m_id echo("") case "add" insertSql = "insert into {pre}Tasks(m_Cid,m_CtaNumber,m_CtaContent,m_CtaReceivable,m_CtaDepositDate,m_CtaDeposit,m_CtaSurplusDate,m_CtaSurplus,m_CtaTansker," insertSql = insertSql&"m_addtime,m_CtaSendTasker,m_SendTaskState,m_CtaSendTaskDate,m_MastCharger,m_CtaCharger,m_taskType,m_CtaSchedule,m_PlanCount,m_CtaSummary,m_CtaTransferDate," insertSql = insertSql&"m_CtaSignaccountDate,m_CtaIsTaskEnd,m_CtaTaskEnder,m_CtaTaskEndDate,m_RegSendApproved,m_RegSendApprovedPass,m_RegSendReservation," insertSql = insertSql&"m_RegHandleLicense,m_RegReceiveLicense,m_RegHandlePubSeal,m_RegHandleFinanceSeal,m_RegHandlePersonalSeal,m_RegHandleAgencyCode," insertSql = insertSql&"m_RegHandleTax,m_RegHandleInvoiceSeal,m_RegHandleAccount,m_RegReceiveAccount,m_RegHandleDeductible,m_RegHandleInterbank,m_GtaxAppform," insertSql = insertSql&"m_GtaxNotice,m_GtaxSecureg,m_GtaxEntername,m_GtaxTrain,m_GtaxSecupublish,m_GtaxSecuinstall,m_GtaxBuyinvoice)values(" insertSql = insertSql&m_Cid&",'"&m_CtaNumber&"','"&m_CtaContent&"','"&m_CtaReceivable&"','"&m_CtaDepositDate&"','"&m_CtaDeposit&"','"&m_CtaSurplusDate&"','" insertSql = insertSql&m_CtaSurplus&"','"&m_CtaTansker&"','"&now()&"','"&m_CtaSendTasker&"',0,'"&m_CtaSendTaskDate&"','','"&m_CtaCharger&"',-1,'" insertSql = insertSql&"0%',0,'"&m_CtaSummary&"','"&m_CtaTransferDate&"','"&m_CtaSignaccountDate&"',"&m_CtaIsTaskEnd&",'"&m_CtaTaskEnder&"','" insertSql = insertSql&m_CtaTaskEndDate&"',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)" conn.db insertSql,"execute" m_back="Tasks.asp" echo("") end select End Sub Sub CheckId(ByVal Cid) dim sqlStr,rsObj,allRecode sqlStr = "select count(m_id) from {pre}Businessinfo WHERE m_Cid="&Cid set rsObj = conn.db(sqlStr,"records1") allRecode=rsObj(0) rsObj.close set rsObj = nothing if allRecode>=0 then echo("") end if End Sub Sub delNews dim id,c id=Clng(getForm("id","get")) c=getForm("c","get") dim sqlline,sqlStr,rsObj dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") sqlStr="select m_CtaTansker from {pre}Tasks where m_id="&id set rsObj = conn.db(sqlStr,"records1") if m_level>0 AND m_username <> rsObj("m_CtaTansker") then alertMsg "没有权限刪除任务无套内谢少妇毛片A片流出白浆亚洲AV综合色一区二区三区，请与管理员联系！","":last end if if c <> "0" then alertMsg "已派單完成亚洲AV无码专区A片奶水免费看啪啪人A片AAA片，不允许刪除数据！","":last else on error resume next conn.db "DELETE FROM {pre}Tasks where m_id="&id,"execute" echo("") end if End Sub Sub TaskType(p,m_id,m_Tid) dim echostr:echostr=" " if p=0 then echostr="毛片无码一区二区三区A片视频" end if if p=1 then echostr="" end if if p=2 then echostr="工商注冊 | 一般納稅人" end if echo(echostr) End Sub function echoBR(ByVal brcount) dim r:r=brcount+1 if r= 3 then echo("
") r = 1 end if echoBR=r End function Function Uncomputing(ByVal rs) Dim commerceCount:commerceCount=0 if rs("m_RegSendApproved") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegSendApprovedPass") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegSendReservation") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleLicense") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegReceiveLicense") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandlePubSeal") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleFinanceSeal") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandlePersonalSeal") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleAgencyCode") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleTax") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleInvoiceSeal") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleAccount") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegReceiveAccount") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleDeductible") = 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleInterbank") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxAppform") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxNotice") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecureg") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxEntername") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxTrain") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecupublish") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecuinstall") = 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxBuyinvoice") = 1 then commerceCount=commerceCount+1 end if Uncomputing=commerceCount END Function Function computing_Commerce(ByVal rs) Dim commerceCount:commerceCount=0 if rs("m_RegSendApproved") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegSendApprovedPass") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegSendReservation")>1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleLicense") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegReceiveLicense") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandlePubSeal") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleFinanceSeal") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandlePersonalSeal") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleAgencyCode") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleTax") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleInvoiceSeal") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleAccount") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegReceiveAccount") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleDeductible") > 1 then commerceCount=commerceCount+1 end if if rs("m_RegHandleInterbank") > 1 then commerceCount=commerceCount+1 end if computing_Commerce=commerceCount END Function Function computing_Taxpayer(ByVal rs) Dim commerceCount:commerceCount=0 if rs("m_GtaxAppform") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxNotice") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecureg") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxEntername") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxTrain") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecupublish") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxSecuinstall") > 1 then commerceCount=commerceCount+1 end if if rs("m_GtaxBuyinvoice") > 1 then commerceCount=commerceCount+1 end if computing_Taxpayer=commerceCount END Function Sub viewList dim i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") numPerPage= 10 '每頁显示记录数 keyword = getForm("keyword", "both") order = getForm("order", "get") if isNul(order) then order = "m_addtime" orderStr= " order by "&order&" desc" keyword = getForm("keyword", "both") m_department= rCookie("m_department") page = getForm("page", "get") if isNul(page) then page=1 else page=clng(page) if page=0 then page=1 if m_department >0 then whereStr = " where (m_Branch="&m_department&" OR m_Branch=0) " end if if m_level > 0 then if isNul(whereStr) then whereStr = " where (m_CtaTansker='"&m_username&"' OR m_CtaSendTasker='"&m_username&"' OR m_MastCharger='"&m_username&"' OR m_CtaCharger like '%"&m_username&"%')" ' else ' whereStr = " AND (m_CtaTansker='"&m_username&"' OR m_CtaSendTasker='"&m_username&"' OR m_MastCharger='"&m_username&"' OR m_CtaCharger like '%"&m_username&"%')" end if end if 'if not isNul(keyword) then ' if isNul(whereStr) then ' whereStr = " where m_Keys like '%"&keyword&"%' OR m_CtaNumber like '%"&keyword&"%' OR m_CtaCharger like '%"&keyword&"%' OR m_CtaSendTasker like '%"&keyword&"%' " ' else ' whereStr = whereStr&" AND (m_Keys like '%"&keyword&"%' OR m_CtaNumber like '%"&keyword&"%' OR m_CtaCharger like '%"&keyword&"%' OR m_CtaSendTasker like '%"&keyword&"%')" ' end if ' end if sqlStr = replace(replace("select * from {pre}Customer_TasksList "&whereStr&orderStr,"where and","where"),"where order","order") ' response.Write(sqlStr) set rsObj = conn.db(sqlStr,"records1") rsObj.pagesize = numPerPage allRecordset = rsObj.recordcount : allPage= rsObj.pagecount if page>allPage then page=allPage %>

欧美与黑人午夜性猛交久久久

<% dim m_companyName:m_companyName=getForm("m_companyName", "get") dim m_success:m_success=getForm("m_success", "get") if m_success="Success" AND len(m_companyName)>0 then echo("

Success!修改("&m_companyName&")成功

") end if %>
      <% if allRecordset=0 then if not isNul(keyword) then echo "關鍵字"""&keyword&"""沒有記錄
" else echo "请输入搜索條件：關鍵字免费看啪啪人A片AAA片国产真实乱xxxav，合同編號亚洲AV无码专区A片奶水无套内谢少妇毛片A片流出白浆，負責人国产真实乱xxxav，派單人
" end if else rsObj.absolutepage = page if isNul(keyword) then echo "请输入搜索條件：關鍵字国产麻豆精选AV国产真实乱xxxav免费看啪啪人A片AAA片，注册地址亚洲乱码日产精品BD在线观看，经营范围国产真实乱xxxav国自产拍偷拍精品啪啪模特，法人代表
" end if if not isNul(keyword) then %> 關鍵字 <%=keyword%>的記錄如下 <% end if %> <% for i = 0 to numPerPage if (i mod 2)=1 then %> <% else %> <% end if rsObj.movenext if rsObj.eof then exit for next %>
公司名稱 合同編號 建單人 派單人 負責人 進度 派單狀態 任務單狀態 操作
"><%=rsObj("m_CompanyName")%> <% if rsObj("m_CtaNumber")<>"" then echo(rsObj("m_CtaNumber")) else echo(" ") end if %> <% if rsObj("m_CtaTansker")<>"" then echo(rsObj("m_CtaTansker")) else echo(" ") end if %> <% if rsObj("m_CtaSendTasker")<>"" then echo(rsObj("m_CtaSendTasker")) else echo(" ") end if %> <% if rsObj("m_MastCharger")<>"" then echo(""&rsObj("m_MastCharger")&",") else echo(" ") end if %> <% if rsObj("m_CtaCharger")<>"" then echo(rsObj("m_CtaCharger")) else echo(" ") end if %> <% if rsObj("m_CtaSchedule")<>"" then echo(rsObj("m_CtaSchedule")) else echo(" ") end if %> <% if rsObj("m_SendTaskState") = 0 then echo("派單(NO)") else echo("已派單 | 取消派單") end if %> <% TaskType rsObj("m_taskType"),rsObj("m_Mid"),rsObj("m_id") %> ">編輯 | &c=<%=rsObj("m_SendTaskState")%>" onClick="return confirm('确定要刪除吗')">刪除
"><%=rsObj("m_CompanyName")%> <% if rsObj("m_CtaNumber")<>"" then echo(rsObj("m_CtaNumber")) else echo(" ") end if %> <% if rsObj("m_CtaTansker")<>"" then echo(rsObj("m_CtaTansker")) else echo(" ") end if %> <% if rsObj("m_CtaSendTasker")<>"" then echo(rsObj("m_CtaSendTasker")) else echo(" ") end if %> <% if rsObj("m_MastCharger")<>"" then echo(""&rsObj("m_MastCharger")&",") else echo(" ") end if %> <% if rsObj("m_CtaCharger")<>"" then echo(rsObj("m_CtaCharger")) else echo(" ") end if %> <% if rsObj("m_CtaSchedule")<>"" then echo(rsObj("m_CtaSchedule")) else echo(" ") end if %> <% if rsObj("m_SendTaskState") = 0 then echo("派單(NO)") else echo("已派單 | 取消派單") end if %> <% TaskType rsObj("m_taskType"),rsObj("m_Mid"),rsObj("m_id") %> ">編輯 | &c=<%=rsObj("m_SendTaskState")%>" onClick="return confirm('确定要刪除吗')">刪除
頁次：<%=page%>/<%=allPage%> 每頁<%=numPerPage %> 總收錄數據<%=allRecordset%>條 首頁 上一頁 <%=makePageNumber(page,10,allPage,keyword,"","","","","","","","")%> 下一頁 尾頁  跳轉  
<% end if rsObj.close set rsObj = nothing %> <% End Sub Sub viewAddNews dim m_companyName:m_companyName=getForm("m_companyName","get") dim action:action=getForm("action","get") dim infoId:infoId=getForm("infoId","get") %>

无码AV免费精品一区二区三区

<% if action="add" And len(m_companyName)>0 then echo("

Success!新添加("&m_companyName&")的任務單資料成功

") end if dim i,sqlStr,rsObj,companyRecordset if m_department>0 then sqlStr = "select m_Cid,m_CompanyName from {pre}Customer_Tasks where m_Branch="&m_department&" OR m_Branch=0" else sqlStr = "select m_Cid,m_CompanyName from {pre}Customer_Tasks" end if set rsObj = conn.db(sqlStr,"records1") companyRecordset = rsObj.recordcount %>
公司名稱：    
合同編號： 合同應收金額：
收訂金日期： 訂金金額：
收余款日期 余款金額：
合同內容說明： 派單人： <% dim m_level:m_level=rCookie("m_level") dim m_username:m_username=rCookie("m_username") dim rsArray,vnum,f rsArray=conn.db("select m_username from {pre}manager where m_level<>0","array") if isArray(rsArray) then vnum=ubound(rsArray,2) else vnum=-1 end if echo("") %>
總結情況:
<% echoOptionCid(infoId) End Sub Sub viewEdit dim id,sqlStr,rsObj dim m_companyName:m_companyName=getForm("m_companyName","get") id=clng(getForm("id","get")) m_department= rCookie("m_department") dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") sqlStr = "select * from {pre}Customer_TasksList where m_id="&id set rsObj = conn.db(sqlStr,"records1") if rsObj.eof then alertMsg "没有找到记录","" last end if dim Jurisdiction:Jurisdiction=rsObj("m_CtaTansker")&","&rsObj("m_CtaSendTasker")&","&rsObj("m_MastCharger")&","&rsObj("m_CtaCharger") if m_level > 0 AND InStr(Jurisdiction,m_username) = 0 then alertMsg "对不起亚洲乱码日产精品BD在线观看国外亚洲成AV人片在线观看，你没有权限国外亚洲成AV人片在线观看无套内谢少妇毛片A片流出白浆亚洲AV综合色一区二区三区，请与管理员联系","" last end if dim intComput:intComput=Uncomputing(rsObj) if rsObj("m_Branch")>0 then if m_department>0 AND cint(m_department)<>cint(rsObj("m_Branch")) then alertMsg "对不起嘟嘟嘟在线视频免费观看国外亚洲成AV人片在线观看，您的权限不能修改当前客户亚洲AV无码专区A片奶水，请与管理员联系！","/zhcrm/information.asp" end if end if %>

边啃奶头边躁狠狠躁A片动漫

公司名稱： " name="companyName" id="companyName" /> "> ">    
合同編號： " name="m_CtaNumber" id="m_CtaNumber" /> 合同應收金額： " name="m_CtaReceivable" id="m_CtaReceivable" />
收訂金日期： " name="m_CtaDepositDate" id="m_CtaDepositDate" /> 訂金金額： " name="m_CtaDeposit" id="m_CtaDeposit" />
收余款日期 " name="m_CtaSurplusDate " id="m_CtaSurplusDate" /> 余款金額： " name="m_CtaSurplus" id="m_CtaSurplus" />
合同內容說明： 派單人： <% dim rsArray,vnum,f rsArray=conn.db("select m_username from {pre}manager where m_level<>0","array") if isArray(rsArray) then vnum=ubound(rsArray,2) else vnum=-1 end if echo("") %>
<% if rsObj("m_taskType") > -1 then %> <% end if %>
工商注冊任务： <% dim brcount:brcount=1 if rsObj("m_taskType") = 0 OR rsObj("m_taskType") = 2 then if rsObj("m_RegSendApproved") > 0 then if rsObj("m_RegHandleTax") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegSendApprovedPass") > 0 then if rsObj("m_RegSendApprovedPass") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegSendReservation") > 0 then if rsObj("m_RegSendReservation") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleLicense") > 0 then if rsObj("m_RegHandleLicense") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegReceiveLicense") > 0 then if rsObj("m_RegReceiveLicense") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandlePubSeal") > 0 then if rsObj("m_RegHandlePubSeal") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleFinanceSeal") > 0 then if rsObj("m_RegHandleFinanceSeal") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandlePersonalSeal") > 0 then if rsObj("m_RegHandlePersonalSeal") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleAgencyCode") > 0 then if rsObj("m_RegHandleAgencyCode") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleTax") > 0 then if rsObj("m_RegHandleTax") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleInvoiceSeal") > 0 then if rsObj("m_RegHandleInvoiceSeal") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleAccount") > 0 then if rsObj("m_RegHandleAccount") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegReceiveAccount") > 0 then if rsObj("m_RegReceiveAccount") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleDeductible") > 0 then if rsObj("m_RegHandleDeductible") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if if rsObj("m_RegHandleInterbank") > 0 then if rsObj("m_RegHandleInterbank") > 1 then echo("   "):brcount=echoBR(brcount) else echo("   "):brcount=echoBR(brcount) end if end if end if %> 申请一般納稅人任务： <% dim brunt:brunt=1 if rsObj("m_taskType") = 1 OR rsObj("m_taskType") = 2 then if rsObj("m_GtaxAppform") > 0 then if rsObj("m_GtaxAppform") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxNotice") > 0 then if rsObj("m_GtaxNotice") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxSecureg") > 0 then if rsObj("m_GtaxSecureg") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxEntername") > 0 then if rsObj("m_GtaxEntername") > 1 then echo("   
"):brunt=echoBR(brunt) else echo("   
"):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxTrain") > 0 then if rsObj("m_GtaxTrain") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxSecupublish") > 0 then if rsObj("m_GtaxSecupublish") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxSecuinstall") > 0 then if rsObj("m_GtaxSecuinstall") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if if rsObj("m_GtaxBuyinvoice") > 0 then if rsObj("m_GtaxBuyinvoice") > 1 then echo("   "):brunt=echoBR(brunt) else echo("   "):brunt=echoBR(brunt) end if end if end if %>
交接日期: " name="m_CtaTransferDate" id="m_CtaTransferDate" /> 簽做賬日期: " name="m_CtaSignaccountDate" id="m_CtaSignaccountDate" />
總結情況: 結單狀態:
" /> <% if m_level = 0 OR m_username = rsObj("m_CtaTansker") then %>      <% end if %>
<% End Sub Sub viewSendTask dim id,sqlStr,rsObj,intReg,intGtax,pr:intReg=0:intGtax=0:pr=0 dim m_companyName:m_companyName=getForm("m_companyName","get") id=clng(getForm("id","get")) m_department= rCookie("m_department") dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") sqlStr = "select * from {pre}Customer_TasksList where m_id="&id set rsObj = conn.db(sqlStr,"records1") if rsObj.eof then alertMsg "没有找到记录","" last end if dim Jurisdiction:Jurisdiction=rsObj("m_CtaTansker")&","&rsObj("m_CtaSendTasker")&","&rsObj("m_MastCharger")&","&rsObj("m_CtaCharger") if m_level > 0 AND InStr(Jurisdiction,m_username) = 0 then alertMsg "对不起亚洲AV综合色一区二区三区国产麻豆精选AV免费看啪啪人A片AAA片，你没有权限亚洲AV综合色一区二区三区免费看啪啪人A片AAA片嘟嘟嘟在线视频免费观看，请与管理员联系","" last end if if m_level = 0 OR rsObj("m_CtaSendTasker") = m_username then pr = 1 end if if rsObj("m_Branch")>0 then if m_department>0 AND cint(m_department)<>cint(rsObj("m_Branch")) then alertMsg "对不起嘟嘟嘟在线视频免费观看国产麻豆精选AV免费看啪啪人A片AAA片，您的权限不能修改当前客户嘟嘟嘟在线视频免费观看亚洲乱码日产精品BD在线观看，请与管理员联系！","Tasks.asp" end if end if %>

分派任務

工商注冊任务：

申请一般納稅人任务：

分派負責人：

0 then echo(rsObj("m_MastCharger")) end if%>" />     主要負責人： 0 then echo(rsObj("m_MastCharger")) end if%>" />
" /> <% if rsObj("m_SendTaskState")= 0 AND pr = 1 then %>      <% end if%>
<% End Sub Sub viewCommerce dim id,Tid,sqlStr,rsObj,intReg,intGtax:intReg=0:intGtax=0 dim m_companyName:m_companyName=getForm("m_companyName","get") dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") id=getForm("id","get") 'm_Taskmarks表的m_id Tid=getForm("m_Tid","get") 'm_Task表的m_id m_department= rCookie("m_department") if isNul(id) then sqlStr = "select * from {pre}Customer_TasksList where m_id="&Tid else sqlStr = "select * from {pre}Customer_TasksList where m_Mid="&id end if set rsObj = conn.db(sqlStr,"records1") if rsObj.eof then alertMsg "没有找到记录","" last end if dim Jurisdiction:Jurisdiction=rsObj("m_CtaTansker")&","&rsObj("m_CtaSendTasker")&","&rsObj("m_MastCharger")&","&rsObj("m_CtaCharger") if m_level > 0 AND InStr(Jurisdiction,m_username) = 0 then alertMsg "对不起无套内谢少妇毛片A片流出白浆国产麻豆精选AV，你没有权限国产真实乱xxxav亚洲AV无码专区A片奶水，请与管理员联系","" last end if dim complete_Tasks:complete_Tasks = computing_Taxpayer(rsObj) if rsObj("m_Branch")>0 then if m_department>0 AND cint(m_department)<>cint(rsObj("m_Branch")) then alertMsg "对不起国外亚洲成AV人片在线观看亚洲AV综合色一区二区三区免费看啪啪人A片AAA片，您的权限不能修改当前客户嘟嘟嘟在线视频免费观看国自产拍偷拍精品啪啪模特国外亚洲成AV人片在线观看，请与管理员联系！","Tasks.asp" end if end if %>

(<%=rsObj("m_CompanyName")%>)  工商注冊

<% if rsObj("m_RegSendApproved") > 0 then %> <% end if if rsObj("m_RegSendApprovedPass") > 0 then %> <% end if if rsObj("m_RegSendReservation") > 0 then %> <% end if if rsObj("m_RegHandleLicense") > 0 then %> <% end if if rsObj("m_RegReceiveLicense") > 0 then %> <% end if if rsObj("m_RegHandlePubSeal") > 0 then %> <% end if if rsObj("m_RegHandleFinanceSeal") > 0 then %> <% end if if rsObj("m_RegHandlePersonalSeal") > 0 then %> <% end if if rsObj("m_RegHandleAgencyCode") > 0 then %> <% end if if rsObj("m_RegHandleTax") > 0 then %> <% end if if rsObj("m_RegHandleInvoiceSeal") > 0 then %> <% end if if rsObj("m_RegHandleAccount") > 0 then %> <% end if if rsObj("m_RegReceiveAccount") > 0 then %> <% end if if rsObj("m_RegHandleDeductible") > 0 then %> <% end if if rsObj("m_RegHandleInterbank") > 0 then %> <% end if %>
任務名稱 日 期 備 注 完 成
<% if rsObj("m_RegSendApproved") > 1 then %> <% else %> <% end if %> " name="m_DateApproved" id="m_DateApproved" />
編輯     刪除    
" />
<% if rsObj("m_RegSendApprovedPass") > 1 then %> <% else %> <% end if %> " name="m_DateApprovedPass" id="m_DateApprovedPass" />
編輯     刪除    
" />
<% if rsObj("m_RegSendReservation") > 1 then %> <% else %> <% end if %> " name="m_DateReservation" id="m_DateReservation" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleLicense") > 1 then %> <% else %> <% end if %> " name="m_DateLicense" id="m_DateLicense" />
編輯     刪除    
" />
<% if rsObj("m_RegReceiveLicense") > 1 then %> <% else %> <% end if %> " name="m_DateReceiveLicense" id="m_DateReceiveLicense" />
編輯     刪除    
" />
<% if rsObj("m_RegHandlePubSeal") > 1 then %> <% else %> <% end if %> " name="m_DatePubSeal" id="m_DatePubSeal" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleFinanceSeal") > 1 then %> <% else %> <% end if %> " name="m_DateFinanceSeal" id="m_DateFinanceSeal" />
編輯     刪除    
" />
<% if rsObj("m_RegHandlePersonalSeal") > 1 then %> <% else %> <% end if %> " name="m_DatePersonalSeal" id="m_DatePersonalSeal" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleAgencyCode") > 1 then %> <% else %> <% end if %> " name="m_DateAgencyCode" id="m_DateAgencyCode" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleTax") > 1 then %> <% else %> <% end if %> " name="m_DateTax" id="m_DateTax" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleInvoiceSeal") > 1 then %> <% else %> <% end if %> " name="m_DateInvoiceSeal" id="m_DateInvoiceSeal" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleAccount") > 1 then %> <% else %> <% end if %> " name="m_DateAccount" id="m_DateAccount" />
編輯     刪除    
" />
<% if rsObj("m_RegReceiveAccount") > 1 then %> <% else %> <% end if %> " name="m_DateReceiveAccount" id="m_DateReceiveAccount" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleDeductible") > 1 then %> <% else %> <% end if %> " name="m_DateDeductible" id="m_DateDeductible" />
編輯     刪除    
" />
<% if rsObj("m_RegHandleInterbank") > 1 then %> <% else %> <% end if %> " name="m_DateInterbank" id="m_DateInterbank" />
編輯     刪除    
" />
" /> "> ">        
<% End Sub Sub TaxpayerView dim id,Tid,sqlStr,rsObj,intReg,intGtax:intReg=0:intGtax=0 dim m_companyName:m_companyName=getForm("m_companyName","get") dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") id=getForm("id","get") 'm_Taskmarks表的m_id Tid=getForm("m_Tid","get") 'm_Task表的m_id m_department= rCookie("m_department") if isNul(id) then sqlStr = "select * from {pre}Customer_TasksList where m_id="&Tid else sqlStr = "select * from {pre}Customer_TasksList where m_Mid="&id end if set rsObj = conn.db(sqlStr,"records1") if rsObj.eof then alertMsg "没有找到记录","" last end if dim Jurisdiction:Jurisdiction=rsObj("m_CtaTansker")&","&rsObj("m_CtaSendTasker")&","&rsObj("m_MastCharger")&","&rsObj("m_CtaCharger") if m_level > 0 AND InStr(Jurisdiction,m_username) = 0 then alertMsg "对不起国外亚洲成AV人片在线观看免费看啪啪人A片AAA片，你没有权限亚洲乱码日产精品BD在线观看无套内谢少妇毛片A片流出白浆，请与管理员联系","" last end if dim complete_Tasks:complete_Tasks = computing_Commerce(rsObj) if rsObj("m_Branch")>0 then if m_department>0 AND cint(m_department)<>cint(rsObj("m_Branch")) then alertMsg "对不起亚洲AV综合色一区二区三区，您的权限不能修改当前客户国外亚洲成AV人片在线观看嘟嘟嘟在线视频免费观看，请与管理员联系！","Tasks.asp" end if end if %>

一般納稅人注册

<% if rsObj("m_GtaxAppform") > 0 then %> <% end if if rsObj("m_GtaxNotice") > 0 then %> <% end if if rsObj("m_GtaxSecureg") > 0 then %> <% end if if rsObj("m_GtaxEntername") > 0 then %> <% end if if rsObj("m_GtaxTrain") > 0 then %> <% end if if rsObj("m_GtaxSecupublish") > 0 then %> <% end if if rsObj("m_GtaxSecuinstall") > 0 then %> <% end if if rsObj("m_GtaxBuyinvoice") > 0 then %> <% end if %>
任務名稱 日 期 備 注 完 成
<% if rsObj("m_GtaxAppform") > 1 then %> <% else %> <% end if %> " name="m_DateAppform" id="m_DateAppform" />
編輯     刪除    
" />
<% if rsObj("m_GtaxNotice") > 1 then %> <% else %> <% end if %> " name="m_DateNotice" id="m_DateNotice" />
編輯     刪除    
" />
<% if rsObj("m_GtaxSecureg") > 1 then %> <% else %> <% end if %> " name="m_DateSecureg" id="m_DateSecureg" />
編輯     刪除    
" />
<% if rsObj("m_GtaxEntername") > 1 then %> <% else %> <% end if %> " name="m_DateEntername" id="m_DateEntername" />
編輯     刪除    
" />
<% if rsObj("m_GtaxTrain") > 1 then %> <% else %> <% end if %> " name="m_DateTrain" id="m_DateTrain" />
編輯     刪除    
" />
<% if rsObj("m_GtaxSecupublish") > 1 then %> <% else %> <% end if %> " name="m_DateSecupublish" id="m_DateSecupublish" />
編輯     刪除    
" />
<% if rsObj("m_GtaxSecuinstall") > 1 then %> <% else %> <% end if %> " name="m_DateSecuinstall" id="m_DateSecuinstall" />
編輯     刪除    
" />
<% if rsObj("m_GtaxBuyinvoice") > 1 then %> <% else %> <% end if %> " name="m_DateBuyinvoice" id="m_DateBuyinvoice" />
編輯     刪除    
" />
" /> "> ">     
<% End Sub Sub addNews %>
頁面導航: 基本資料
<% viewList if editorLevel then viewAddNews end if %>
<% viewSidebar 0,9 %>
<% End Sub Sub editNews %>
頁面導航: 基本資料
<% viewEdit %>
<% viewSidebar 0,9 %>
<% End Sub Sub SendTask %>
頁面導航: 基本資料
<% viewSendTask %>
<% viewSidebar 0,9 %>
<% End Sub Sub CommerceView %>
頁面導航: 基本資料
<% viewCommerce %>
<% viewSidebar 0,9 %>
<% End Sub Sub Taxpayer %>
頁面導航: 基本資料
<% TaxpayerView %>
<% viewSidebar 0,9 %>
<% End Sub Sub main %>
頁面導航: 基本資料
<% viewList if editorLevel then viewAddNews end if %>
<% viewSidebar 0,9 %>
<% End Sub %>