<!--#include file="../../checkLogin.asp"-->
<!--#include file="../../SQLconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存文件</title>
<link rel="stylesheet" type="text/css" href="../../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
</head>
<body  topmargin="5" leftmargin="5">

<p>
<%
		Set Upload=Server.createobject("Persits.Upload.1") 
		uploadlimitsize=request.cookies("filelength")                             '改变这个设置可以改变上传文件的大小限制，单位兆。
		Upload.SetMaxSize uploadlimitsize*1024*1024, True 
		Upload.Save  

		if err.number <> 0 then 
		response.write  "出现错误: " & err.number & "、" & err.description &"" 
		end if 
		if err.number = 8 then 
		response.write " 你上传的文件超过限制（"& uploadlimitsize &"兆）<a href=""javascript:history.go(-1)"">重新上传</a>" 
		response.end 
		end if 
		curpage=Upload.Form("curpage").value
		id=Upload.Form("id").value
		vname1=Upload.Form("vname1").value
		vname2=Upload.Form("vname2").value
		tname=Upload.Form("tname").value
		dateandtime=Upload.Form("dateandtime").value
		title=Upload.Form("title").value
		content=Upload.Form("content").value
		
		
		set FileObj1=Upload.Files("file1") 

 

 
 


		dim Rsfilesql
		dim Rsfile
		set Rsfile=server.createobject("adodb.recordset")
		Rsfilesql="select * from SchoolWeb where   id='"&id& "'"
		
		Rsfile.open Rsfilesql,conn,1,3
		
		Rsfile("类别")=vname1
		Rsfile("二级类别")=vname2
		Rsfile("发布者")=tname
		Rsfile("发布日期")=dateandtime
		
		Rsfile("标题")=title
		Rsfile("内容")=content
		Rsfile("上传时间")=now()
		
		Rsfile("上传人")=request.cookies("tname")
		Rsfile("点击数")="0"
		
		strip=Request.ServerVariables("REMOTE_ADDR")
		Rsfile("上传机")=strip
		Rsfile.update
		Rsfile.close
		
		
		
		sql="select * from SchoolWebFile where (id is null)"
		Set rs= Server.CreateObject("ADODB.Recordset")
		rs.open sql,conn,1,3
		rs.addnew 
		
		filename=FileObj1.FileName
		IF  filename<>"" THEN
		rs("fid")=id
		rs("文件名")=FileObj1.FileName
		rs("文件类型")=FileObj1.ContentType
		rs("文件内容").appendchunk FileObj1.Binary
		rs("文件长度")= FormatNumber(FileObj1.Size/1024/1024,2)
		rs.update 
		rs.close 
		end if
		
		
				
		Upload.Dispose ' 释放内存 
		Set Upload = Nothing 

		
		%>
		
		
		</p>
		<p>&nbsp;</p>
		<p>&nbsp;</p>
		<div align="center">
		<table border="1" cellspacing="0" width="283" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
		<tr>
		<td width="100%" height="20">
		<p align="center" class="STYLE1 STYLE2">添加成功</td>
		</tr>
		<tr>
		<td width="100%">
		<p align="left"><br>
		<br><%=id%>
		文件为：
		<%response.write filename%></p>
		<center>
		<form name="form1" method="post" action="">
		<label>
		<div align="center">&nbsp;
		
		<input name="button" type="button" class="topanniu" onClick="location='manage.asp?curpage=<%=curpage%>'"  value="返回" />
		</div>
		</label>
		<div align="center"></div>
		</form>
		<p align="center"><br>
		<br>
		</p>
		</td>
		</tr>
		</table>
		</div>
		
		</body>  
		
		</html>  
		
		
