📄 sj.asp

📁 学校智能办公系统 1、系统包含成绩学籍管理、公文管理、电子备课、教职工管理、照片管理、课件管理等学校办公的多个方面。 2、实行集中管理

💻 ASP

字号:

<%OPTION EXPLICIT%>
<%dim conn,DBpath,rss%>
<!--#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,rs,i,sql,height,width
set upfile=new upfile_class ''建立上传对象
upfile.AllowExt="rar;ppt;doc;xls;txt;zip;"	'设置上传类型的白名单
upfile.GetData (1024000)   '取得上传数据,限制最大上传1M
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title><%=session("xxglxxmc")%>智能办公系统</title>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<script Language="JavaScript">
 function form_check(){
   if(document.form1.file1.value.length==0 || document.form1.file1.value.indexOf(".")==-1){window.alert("你没有选择文件！");document.form1.file1.focus();return (false);}
   }
</script>

<%
call bghead()
%>
<b>上交资料</b>
<%
call bgmid()
%>
<%dim rqs
set rqs=server.createobject("ADODB.recordset")
rqs.open "select * from sjzl where datediff('d',qdat,now)>=0 and datediff('d',zdat,now)<=0 and id="&request.querystring("id"),conn,1
if rqs.eof and rqs.bof then
response.write "<br><div align='center'>你上交的资料类别已过期或无此资料类别!<a href='javascript:history.back();'>返回</a></div>"
response.End
end if
set rqs=nothing


if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
if request.querystring("l")="cj" then
set rss=server.createobject("ADODB.recordset")
sql="delete * from zllb where id="&sqlstr(request.querystring("xh"))
rss.open sql,conn,1,3
set rss=nothing
end if

	for each formName in upfile.file '列出所有上传了的文件
	   set oFile=upfile.file(formname)
    if upfile.isAllowExt(oFile.FileExt) then 

set rs=server.createobject("ADODB.recordset") 
sql = "select * from zllb"
rs.Open sql,conn,1,3
rs.addnew 
rs("sjzllb")=sqlstr(request.querystring("id"))
rs("sjr")=request.cookies("oabusyusername")
rs("filename")=sqlstr(oFile.filename)
rs("filecontenttype")=sqlstr(oFile.FileMIME)
rs("filevalue")=upfile.FileData(formname)
rs.update 
set rs=nothing 
		Response.Write "上传成功！　<a href='sjcl.asp'><font color=red>返回</font></a>"
		else
		Response.Write "不允许上传的类型!　<a href='sjcl.asp'><font color=red>返回</font></a>"
	end if
	 set oFile=nothing
	next
set upfile=nothing  '删除此对象

%>
<!--include file="uploadtodb.asp"-->
<br><br>
<%else
%>

<br><br><table width="90%" border="0">
<form name="form1" enctype="multipart/form-data" method="post" action="sj.asp?id=<%=request.querystring("id")%>&l=<%=request.querystring("l")%>&xh=<%=request.querystring("xh")%>" onsubmit="return form_check();">
  <tr>
    <td align="center">
 请选择上交文件:
   <input type="file" name="file1" size="50"></td>
  </tr>
  <tr>
    <td align="center"><input name="submit" type="submit" value="确定">　
      <input type="reset" name="reset" value="重置"></td>
  </tr>
</form>
</table>


<%
call bgback()
%>
<%end if%>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -