<!--#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 




 
			fid=Upload.Form("fid").value
			curpage=Upload.Form("curpage").value
			content=Upload.Form("content").value
			
			 
 
			strNow=now()
			strip=Request.ServerVariables("REMOTE_ADDR")
			 
			
			
			set rszhuti=server.createobject("adodb.recordset")
			rszhutisql="select * from GongZuoRiZhiDetail where (id is null)" 
			
			rszhuti.open rszhutisql,conn,1,3
			rszhuti.addnew
			rszhuti("fid")=fid
			rszhuti("Tname")=request.cookies("tname")
			rszhuti("content")=content
			rszhuti("updatetime")=strNow
			rszhuti("upip")=strip
			 
			rszhuti.update
			rszhuti.close
 
            Upload.Dispose ' 释放内存 
		    Set Upload = Nothing 

 
            response.redirect "FenXiang.asp?curpage="&curpage&""  
%>
 