task_e.inc

物业管理和办公自动化系统

<%
'''' 函数列表 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'	UpdateTask
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub UpdateTask()
	dim sSQL
	dim sContent

	sContent = GetParam("content")

	' 任务主题和任务内容中不能有单引号或双引号
	sContent = Replace(sContent, """", "”")
	sContent = Replace(sContent, "'", "‘")
	sSQL = "update t_task set content = " & ToSQL(sContent,"Text") & " where task_serial = " & ToSQL(pTaskSerial, "Number")
	call ExecuteSQL(dbLocal, sSQL)

	Response.Write _
		"<script language=""javascript"">" & vbLF & _
		"	window.opener.location.href=""taskdetail.asp?serial=" & pTaskSerial & """;" & vbLF & _
		"	window.close();" & vbLF & _
		"</script>" & vbLF
end sub
%>