scheduleeditsave.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini"-->
<!--#include file="../commfunction.inc" -->
<%

date1=request("date")
time1=request("time")
time2=request("endtime")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Connstring
Set RSEVENTS = Server.CreateObject("ADODB.Recordset")

RSEVENTS.Open "Schedule", Conn, 2, 2

RSEVENTS.Find "id=" & cint(request("ID"))
RSEVENTS("AssignedTo") = request("owner")
RSEVENTS("Schedule") = request("Event_Name")
if request("relativetype")="" then
elseif request("relativetype")="其他" then
	RSEVENTS("relativetype") ="其他"
else
	RSEVENTS("relativetype") = request("relativetype")
end if

if request("relativetype")="" then
elseif request("relativetype")="其他" then
    RSEVENTS("TaskType") = request("TaskType2")
elseif request("relativetype")="客户" then
    RSEVENTS("TaskType") = request("TaskType1")
end if

if request("account")<>"" then
	RSEVENTS("account") = request("account")
else
	RSEVENTS("account") = -1
end if
RSEVENTS("Description") = request("Description")
RSEVENTS("result") = request("result")
RSEVENTS("Closed") = 0
If (request("Location") = "") Then
	RSEVENTS("Location") = Null
Else
	RSEVENTS("Location") = request("Location")
End If
if request("Continued")="" then
elseif request("Continued")="0" then
	RSEVENTS("Continued") = 0
else
	RSEVENTS("Continued") = 1
	if request("ContinuedDate")="1" then
		RSEVENTS("NextDate") = dateadd("ww",1,date1)
	elseif request("ContinuedDate")="2" then
		RSEVENTS("NextDate") = dateadd("ww",2,date1)
	elseif request("ContinuedDate")="3" then
		RSEVENTS("NextDate") = dateadd("m",1,date1)
	elseif request("ContinuedDate")="4" then
		RSEVENTS("NextDate") = dateadd("m",2,date1)
	elseif request("ContinuedDate")="5" then
		RSEVENTS("NextDate") = request("CustDate")
	end if	
end if

eventDate = date1 + " " + time1
RSEVENTS("ScheduleDate") = date1
RSEVENTS("ScheduleTime") = time1
RSEVENTS("endtime") = time2

If (request("Location") = "") Then
	RSEVENTS("Location") = Null
Else
	RSEVENTS("Location") = request("Location")
End If

RSEVENTS.update
RSEVENTS.close
set RSEVENTS = nothing

Conn.execute "delete from attendant where scheduleid="&cint(request("ID"))
dim Attendant,Attendants,intcounter1
dim rstAttendant
set rstAttendant= Server.CreateObject("ADODB.RecordSet")
rstAttendant.Open "select * from attendant",Conn,2,3,1
Attendant=request("attendant")
if Attendant<>"" then
	Attendant=left(Attendant,len(Attendant)-1)
	Attendants=split(Attendant,",")
	for intcounter1=0 to ubound(Attendants)
		rstAttendant.addnew

		rstAttendant("scheduleid")=cint(request("ID"))
		rstAttendant("UserId")=Attendants(intcounter1)
		rstAttendant("Agree")=false
		rstAttendant("Attendant")=false
		rstAttendant.update
	next
end if
rstAttendant.close
set rstAttendant=nothing
Conn.close
set Conn=nothing
if request("reload")="yes" then
%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
else
	Response.Redirect "main.asp"
end if
%>