📄 newnotice.asp
字号:
<%OPTION EXPLICIT%>
<%dim conn,DBpath,oabusyname,oabusyusername,oabusyuserdept,oabusyuserlevel,rs%>
<!--#INCLUDE FILE="upclass.asp"-->
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="opendb.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/funct.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,submit,i,sql,height,width
set upfile=new upfile_class ''建立上传对象
upfile.AllowExt="rar;zip;doc;xls;txt;jpg;jpeg;gif;bmp;" '设置上传类型的白名单
upfile.GetData (10240000) '取得上传数据,限制最大上传1M
%>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title><%=session("xxglxxmc")%>智能办公系统</title>
</head>
<!--include file="uploadtodb.asp"-->
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<%
call bghead()
%>
<center>
<b>发布通知</b> "<font color=red>*</font>"号的表示必须填写
</center>
<%
call bgmid()
%>
<center>
<%if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
set rs=server.createobject("ADODB.recordset")
sql = "select * from newnotice"
rs.Open sql,conn,1,3
rs.addnew
rs("title")=sqlstr(upfile.form("title"))
rs("content")=sqlstr(upfile.form("content"))
rs("fbr")=oabusyname
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
rs("filename")=sqlstr(oFile.filename)
rs("filecontenttype")=sqlstr(oFile.FileMIME)
rs("filevalue")=upfile.FileData(formname)
%>
<br><br>
<font color=red>新通知发布成功！</font>
<%
else
Response.Write "<center>不允许上传的类型，附件未上传。 <a href='newnotice.asp'><font color=red>返回</font></a></center>"
end if
set oFile=nothing
next
rs.update
set rs=nothing
'把是否看过通知改为"no"
sql = "update userinf set seenotice='no'"
conn.Execute sql
set upfile=nothing '删除此对象
else
%>
<script Language="JavaScript">
function maxlength(strr,minl,maxl) {
if(strr.length <= maxl && strr.length >= minl){return true;}else{return false;}
}
function form_check(){
var l1=maxlength(document.form1.title.value,1,50);
if(!l1){window.alert("标题的长度大于1位小于50位");document.form1.title.focus();return (false);}
}
</script>
<br>
<form method="post" name="form1" ENCTYPE="multipart/form-data" action="newnotice.asp" onsubmit="return form_check();">
<table border=1>
<tr>
<td>
通知标题：
<input type=text name="title" size=50><font color=red>*</font>
</td>
</tr>
<tr>
<td>
<center>
通知内容
</center><textarea rows="9" name="content" cols="60"></textarea>
</td>
</tr>
<tr>
<td id="upid">副件： <input type="file" name="file1" size=40></td>
</tr>
</table>
<br>
<input type="submit" name="submit" value="发布">
</form>
<%
end if
%>
</center>
<%
call bgback()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -