📄 schedulemodify.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%ColumnName="":Tablename="HX_SchEduleMain":Tablename1="HX_SchEduleAdd":WS_SMID=request("WS_SMID")
if WS_SMID="" or isnull(WS_SMID) or (WS_SMID<>"" and not isnumeric(WS_SMID)) then HX_GoBack "非法操作",""
Orderby=" where WS_SMID="&WS_SMID
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then HX_GoBack "非法操作",""
action=request("action")
if action="saveinfo" then
if request("AddMemo")<>"" then
rs("WS_SchEduleMainsituation")=request("situation")
rs.update
Call WS_S.HX_OutUserInfo(loginuid)
msg=date()&"，"&OutName&"："&request("AddMemo")
conn.execute("insert into HX_SchEduleAdd(WS_SMID,WS_SchEduleAddMemo) values("&WS_SMID&",'"&msg&"')")
HX_GoBack "追加日程成功！","SchEduleModify.asp?action=saveinfo&WS_SMID="&WS_SMID
end if
end if
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='#A1BBE0'><td height='21'>撰写人：</td><td height='21'><font color='#000000'>"
Call WS_S.HX_OutUserInfo(rs("WS_SchEduleMainman")):response.Write OutName&"</font></td><td height='21'>主 题：</td><td height='21'>"&rs("WS_SchEduleMainTitle")&" <font color=red>("&rs("WS_SchEduleMainSituation")&")</font></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' height='21'>时间</td><td width='35%' height='21'><font title='"&rs("WS_SchEduleMainFirstTime")&"-"&rs("WS_SchEduleMainLastTime")&"'>"&formatdatetime(rs("WS_SchEduleMainFirstTime"),2)&" ～ "&formatdatetime(rs("WS_SchEduleMainLastTime"),2)&"</font></td><td width='17%' height='21'>日程类别</td><td width='32%' height='21'>"&WS_S.OutSchEduleSort(rs("WS_SSID"))&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' height='24'>提醒否</td><td width='35%' height='24'>"
if rs("WS_SchEduleMainawoke")=0 then response.Write "不提醒" else response.Write " 提醒 "
response.Write " </td><td width='17%' height='24'>提醒时间</td><td width='32%' height='24'>"
if rs("WS_SchEduleMainawoke")=1 then response.Write rs("WS_SchEduleMaindo_time")
response.Write "</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' height='24'>重要度</td><td width='35%' height='24'> "&rs("WS_SchEduleMainimportant")&"</td><td width='17%' height='24'>公开度</td><td width='32%' height='24'> "&rs("WS_SchEduleMainexpose")&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' height='24'>安排对象</td><td height='24' colspan='3'>"
if rs("WS_SchEduleEmialManTwoUid")<>"" then
for ii=0 to ubound(split(rs("WS_SchEduleEmialManTwoUid"),"|"))-1
Call WS_S.HX_OutUserInfo(split(rs("WS_SchEduleEmialManTwoUid"),"|")(ii)):response.Write OutName&" "
next
else
response.write "无"
end if
response.Write "</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' valign='top'>内容</td><td colspan='3' valign='top'>"
if rs("WS_SchEduleMainmemo")<>"" then
introduce=rs("WS_SchEduleMainmemo")
intr=replace(introduce," "," ")
intr=replace(intr,vbNewLine,"<br>")
else
intr="暂无"
end if
response.Write " "&intr&" </td></tr>"
Orderby=" where WS_SMID="&rs("WS_SMID")
set prs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if prs.recordcount>0 then
response.Write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='16%' valign='top'>追加内容</td><td colspan='3' align='left' valign='top'>"
do until prs.eof
if prs("WS_SchEduleAddMemo")<>"" then
introduce=prs("WS_SchEduleAddMemo")
intr=replace(introduce," "," ")
intr=replace(intr,vbNewLine,"<br>")
else
intr="暂无"
end if
response.write intr&"<br>"
prs.movenext
loop
response.Write " </td></tr>"
end if
if action="saveinfo" then
response.Write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td colspan='4'>请选择日程状态：<select name='situation'><option "
if rs("WS_SchEduleMainsituation")="未开始" then response.Write " selected"
response.Write ">未开始</option><option "
if rs("WS_SchEduleMainsituation")="进行中" then response.Write " selected"
response.Write ">进行中</option><option "
if rs("WS_SchEduleMainsituation")="已完成" then response.Write " selected"
response.Write ">已完成</option></select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td colspan='4'><textarea rows='5' name='AddMemo' cols='65' class='bgline'></textarea></td></tr>"
end if
response.Write "<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td colspan='4' align=right><input name='WS_SMID' type='hidden' value='"&WS_SMID&"'> <input type='submit' name='Submit' value='追加日程'> <input type='submit' name='Submit' value=' 返 回 ' onclick='history.go(-1);'></td></tr></form></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -