⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 schedulenewcreate.asp

📁 一个比较完整的oa系统
💻 ASP
字号:
🔍 
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><%ColumnName="":Tablename="HX_SchEduleMain":Tablename1="HX_SchEduleSort":Orderby=" ORDER BY WS_SMID DESC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
action=request("action")
if action="saveinfo" then
  a=DateSerial(cint(request("yy1")),cint(request("mm1")),cint(request("dd1"))): b=DateSerial(cint(request("yy2")),cint(request("mm2")),cint(request("dd2")))
  first_time=a&" "&request("xx1")&":"&request("ff1")&":"&"00"
  last_time=b&" "&request("xx2")&":"&request("ff2")&":"&"00"
  oktime=datediff("h",first_time,last_time)
  if oktime<=0 then
	HX_GoBack "时间设置冲突！",""      
  end if
      rs.addnew:rs("WS_SchEduleMainTitle")=request("title"):rs("WS_SchEduleMainMemo")=request("memo"):rs("WS_SchEduleMainFirstTime")=first_time
      rs("WS_SchEduleMainLastTime")=last_time:rs("WS_SchEduleMainImportant")=request("important"):rs("WS_SchEduleMainAwoke")=request("awoke"):rs("WS_SchEduleMainExpose")=request("expose"):rs("WS_SSID")=request("sort"):rs("WS_SchEduleMainAwokeTime")=request("awoke_time"):rs("WS_SchEduleMainman")=loginuid
      rs("WS_SchEduleMaindoTime")=dateadd("n",-request("awoke_time"),first_time):rs("WS_SchEduleMainsituation")="未开始"
	  WS_S.HX_OutUserInfo loginuid
      rs("WS_SchEduleMaindepartmentID")=OutdepartmentID
      if request("WS_SchEduleEmialManTwoUid")<>"" then  rs("WS_SchEduleEmialManTwoUid")=request("WS_SchEduleEmialManTwoUid")'安排对象
      rs.update
	  WS_SchEduleEmialManUid=request("WS_SchEduleEmialManUid")     '知会对象
	  if WS_SchEduleEmialManUid<>"" then	  
	    set mrs=WS_S.HX_SetRSD(ColumnName,"HX_MailChit","")
		Emailarr=split(WS_SchEduleEmialManUid,"|")
		for ii=0 to ubound(Emailarr)-1
           mrs.addnew:mrs("WS_MailToUid")=cint(Emailarr(ii)):mrs("WS_MailSendUid")=loginuid:mrs("WS_MailSendDate")=now:mrs("WS_MailBody")=request("memo"):mrs("WS_MailObject")=request("title"):mrs.update	
		 next    
	  end if
	  call WS_S.HX_RSClose(mrs)
	  WS_SchEduleEmialManTwoUid=request("WS_SchEduleEmialManTwoUid")'安排对象
	  if WS_SchEduleEmialManTwoUid<>"" then	  
	    set mrs=WS_S.HX_SetRSD(ColumnName,"HX_MailChit","")
		Emailarr=split(WS_SchEduleEmialManTwoUid,"|")
		for ii=0 to ubound(Emailarr)-1
           mrs.addnew
		   mrs("WS_MailToUid")=cint(Emailarr(ii)):mrs("WS_MailSendUid")=cint(loginuid):mrs("WS_MailSendDate")=now
		   mrs("WS_MailBody")="日程安排： 开始时间："&first_time&" 结束时间："&last_time&"　日程内容："&request("memo")
		   mrs("WS_MailObject")=request("title")
	       mrs.update	
		 next    
	  end if
	call WS_S.HX_RSClose(mrs):call WS_S.HX_RSClose(rs):Call HX_ClosDB()
   response.write "<script>if(!confirm('日程创建成功！\n是否继续创建日程？')) location.href='SchEduleWait.asp';else location.href='SchEduleNewCreate.asp';</script>"
   response.end
end if
Orderby=" order by WS_OrderBy ASC"
response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>新建日程</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>新建日程</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1><form name='form1' method='post' action='?action=saveinfo' onSubmit='return SchEduleCheck(this);'><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'> &nbsp;日程主题</td><td width='37%' height='25'><input type='text' name='title' maxlength='50' size='31'></td><td width='16%' height='25'>&nbsp;日程类别</td>"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
response.Write "<td width='34%' height='30'><select name='sort'>"
if rs.recordcount>0 then
do until rs.eof
 response.Write "<option value='"&rs("WS_SEID")&"'>"&rs("WS_SchEduleSortName")&"</option>"
rs.movenext
loop
end if
response.Write "</select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='80'>&nbsp;日程内容</td><td height='75' colspan='3'><textarea name='memo' cols='58' rows='9' class='bgLine'></textarea></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'>&nbsp;开始时间</td><td height='30' colspan='3'>&nbsp;<select name='yy1' classname='5' size='1' class='input3' >"
for i=year(date)-5 to year(date) 
response.Write "<option value='"&i&"'"
if i=year(date) then response.Write " selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>年<select name='mm1' classname='5'  size='1' >"
for i=1 to 12
response.Write "<option value='"&i&"'"
if i=month(date) then response.Write " selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>月<select name='dd1' classname='5'  size='1' >"
for i=1 to 31
response.Write "<option value='"&i&"'"
if i=day(date) then response.Write " selected"
response.Write ">"&i&"</option>"
next
response.Write "</select>日<select name='xx1' classname='5'  size='1' ><option value='0'>00</option>"
for i=1 to 23
response.Write "<option value='"&i&"'>"
if i<10 then response.Write "0"&i else response.Write i 
response.Write "</option>"
next
response.Write "</select>：<select name='ff1' classname='5'  size='1' ><option value='0'>00</option>"
for i=1 to 59
response.Write "<option value='"&i&"'>"
if i<10 then response.Write "0"&i else response.Write i
response.Write "</option>"
next
response.Write "</select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'>&nbsp;结束时间</td><td height='30' colspan='3'> &nbsp;<select name='yy2' classname='5'  size='1' >"
for i=year(date) to year(date)+5 
 response.Write "<option value='"&i&"'"
 if i=year(dateadd("d",6,date)) then response.Write " selected" 
 response.Write ">"&i&"</option>"
 next
 response.Write "</select>年<select name='mm2' classname='5'  size='1' >"
 for i=1 to 12
 response.Write "<option value='"&i&"'"
 if i=month(dateadd("d",6,date)) then response.Write " selected"
 response.Write ">"&i&"</option>"
 next
 response.Write "</select>月<select name='dd2' classname='5'  size='1' >"
 for i=1 to 31
 response.Write "<option value='"&i&"'"
 if i=day(dateadd("d",6,date)) then response.Write " selected"
 response.Write ">"&i&"</option>"
 next 
 response.Write "</select>日<select name='xx2' classname='5'  size='1' ><option value='0'>00</option>"
 for i=1 to 23
 response.Write "<option value='"&i&"'>"
 if i<10 then response.Write "0"&i else response.Write i 
 response.Write "</option>"
 next
 response.Write "</select> ：<select name='ff2' classname='5'  size='1' ><option value='0'>00</option>"
 for i=1 to 59 
 response.Write "<option value='"&i&"'>"
 if i<10 then response.Write "0"&i else response.Write i
 response.Write "</option>"
 next
 response.Write "</select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'>&nbsp;提　　醒</td><td width='37%' height='25'><input type='radio' name='awoke' value='0' checked class='radio'>不提醒<input type='radio' name='awoke' value='1' class='radio'>提醒 </td><td width='16%' height='25'>&nbsp;提前提醒</td><td width='34%' height='30'><select name='awoke_time' ><option value='10'>10分钟</option><option value='30' selected>半小时</option><option value='60'>1小时</option><option value='180'>3小时</option><option value='720'>半天</option><option value='1440'>1天</option><option value='2580'>2天</option></select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'>&nbsp;重 要 度</td><td width='37%' height='25'><select name='important'><option value='未指定' selected>未指定</option><option value='高'>高</option><option value='中'>中</option><option value='低'>低</option></select></td><td width='16%' height='25'>&nbsp;公 开 度</td><td width='34%' height='30'><select name='expose'><option value='半公开'>半公开</option><option value='公开'>公开</option><option value='不公开' selected>不公开</option></select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='13%' height='25'>&nbsp;知会对象 </td><td height='30' colspan='3'><input type='hidden' name='WS_SchEduleEmialManUid'><input type='text' name='WS_SchEduleEmialManName' size='31' readonly> <input onclick=""openwin(510,500,'../HXinclude/HX_Selectuser.asp?checkuser=SchEduleEmialMan')"" name='checkuser' type='button' value='选择' title='点击选择对象后，系统会发短消息给所选对象'></td></tr><tr bgcolor='#FFFFFF'><td width='13%' height='25'> &nbsp;安排对象</td><td height='30' colspan='3'><input type='hidden' name='WS_SchEduleEmialManTwoUid'><input type='text' name='WS_SchEduleEmialManTwoName' size='31' readonly> <input onclick=""openwin(510,500,'../HXinclude/HX_Selectuser.asp?checkuser=SchEduleEmialManTwo')"" name='checkuser' type='button' value='选择' title='点击选择对象后，系统会发短消息给所选对象，并将日程内容发给所选对象'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td valign='top'>&nbsp;</td><td colspan='3'><input type='submit' name='Submit' value=' 创 建 '></td></tr></form></table></td></tr></table>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -