📄 workflownews.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/SelectDate.asp"--><!--#INCLUDE FILE="../HXINCLUDE/HX_photo.asp"-->
<%if WS_S.MemberPriv("WS_WORKFLOWNews")<>1 then HX_GoBack "对不起,您的权限不够!",""
action=request("action"):ColumnName="":Tablename="HX_WorkFlow":Orderby=" where WS_WorkFlowFlag=1 ORDER BY WS_FCID DESC"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="saveinfo" then
set upload=new upload_file
Numbers=upload.form("Numbers"):Title=upload.form("Title"):ComeDate=upload.form("ComeDate"):FlowType=upload.form("FlowType"):Content=upload.form("Content"):Grade=upload.form("Grade"):ToUid=upload.form("WS_WorkFlowToUid"):brief=upload.form("brief"):call WS_S.ChkIsOuter()
filepath="workannex/"
for each formName in upload.File
set file=upload.File(formName)
if file.filesize>10 then
fileExt=lcase(file.FileExt) '得到的文件扩展名不含有.
if fileext<>"doc" and fileext<>"txt" then
fileExt="gif"
response.write "<script language=javascript>alert('只能上传DOC、TXT格式的文件！');history.go(-1);</script>"
response.end
end if
if file.filesize>(2000*1024) then
response.write "<script language=javascript>alert('文件大小不能超过2M！');history.go(-1);</script>"
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveToFile Server.mappath(FileName)
end if
end if
next
if ToUid<>"" then
ToUidarr=split(ToUid,"|")
for ii=0 to ubound(ToUidarr)-1
rs.addnew:rs("WS_WorkFlowNumber")=Numbers:rs("WS_WorkFlowToMan")=ToUidarr(ii):rs("WS_WorkFlowTitle")=Title:rs("WS_WorkFlowMan")=loginuid:rs("WS_WorkFlowDate")=ComeDate:rs("WS_WorkFlowContent")=Content:rs("WS_WorkFlowGrade")=Grade:rs("WS_WorkFlowFlowType")=FlowType :rs("WS_WorkFlowFlag")=1:rs("WS_WorkFlowBrief")=brief
if file.FileSize>0 then:rs("WS_WorkFlowAnnex")=FileName
rs.update
next
end if
msg="发文起草成功！"
set file=nothing
call WS_S.HX_RSClose(rs)
set upload=nothing
call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"WorkFlowNews.asp"
end if
if rs.recordcount>0 then:if rs("WS_WorkFlowNumber")<>"" then:num=mid(rs("WS_WorkFlowNumber"),12,4)+1:else:num="1001":end if:else:num="1001":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'></head><body topmargin='20' leftmargin='0' bottommargin='0'><script src='../HXinclude/HX_Function.js'></script><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=e1e1e1><form name='form1' method='post' action='?action=saveinfo' onSubmit='return workflowTocheck(this);' enctype='multipart/form-data' target='_self'><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='center' bgcolor='#f1f1f1'>拟 搞 人</td><td width='199'>"
Call WS_S.HX_OutUserInfo(LOGINUid):response.Write OutName&"</td><td width='88' bgcolor='#f1f1f1'>拟搞时间</td><td width='169'><input type='text' name='ComeDate' size=10 value='"&date&"' readonly> <input name='button' type='button' title='选择收文日期' onClick=""popUpcalendar(this, form1.ComeDate, 'yyyy-mm-dd')"" value='选择'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='CENTER' bgcolor='#f1f1f1'>收 文 人</td><td colspan='3'><input type='hidden' name='WS_WorkFlowToUid'><input type='text' name='WS_WorkFlowToName' size='46' readonly> <input onclick=""openwin(510,500,'../HXinclude/HX_Selectuser.asp?checkuser=WorkFlowTo')"" name='checkuser' type='button' value='选择' class='bdlogin' title='选择收信人'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='CENTER' bgcolor='#f1f1f1'> 发文编号</td><td colspan='3'><INPUT name='Numbers' title='发文编号' value='"
response.write "["&WS_S.Format_Time(date,8)&"]字"&num&"号"&"' size='55' maxlength='100'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='CENTER' bgcolor='#f1f1f1'>标 题</td><td colspan='3'><input type='text' name='Title' size='55' maxlength='100'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='CENTER' bgcolor='#f1f1f1'>公文类别</td><td colspan='3'><select name='FlowType'>"
ColumnName="":Tablename="HX_WorkFlowType":Orderby=" order by WS_WTID asc"
set tyrs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if tyrs.recordcount>0 then
do until tyrs.eof
response.write "<option value='"&tyrs("WS_WTID")&"'>"&tyrs("WS_WorkFlowTypeName")&"</option>"
tyrs.movenext
loop
end if
response.Write "</select></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='100' align='CENTER' bgcolor='#f1f1f1'>正 文</td><td height='100' colspan='3'><textarea name='Content' cols='55' rows='6' class='bgline'></textarea></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' bgcolor='#f1f1f1' align='CENTER'>拟办意见</td><td colspan='3'><textarea name='brief' cols='55' rows='3' class='bgline'></textarea></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td height='20' align='CENTER' bgcolor='#f1f1f1'>附 件</td><td colspan='3'><input type='file' name='WS_Annex' maxlength='300' size='46'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td align='center' bgcolor='#f1f1f1'>保密级别</td><td colspan='3'><SELECT name='Grade' title=密级><OPTION value=普通 selected>普通</OPTION><OPTION value=秘密>秘密</OPTION><OPTION value=机密>机密</OPTION><OPTION value=绝密>绝密</OPTION></SELECT></td></tr><tr bgcolor='#f1f1f1'><td height='20'> </td><td height='20' colspan='3'><input type='submit' name='提交' value=' 提 交 '> <input name='reset' type='reset' value=' 重 填 ' ></td></tr></form></table></td></tr></table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -