<!--#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("id").value
	        curpage=Upload.Form("curpage").value
 
			
			shenpiren=Upload.Form("shenpiren").value
						
			
			
		    dim RsShenQingsql
			dim RsShenQing
			
			dim filename
			
			
			dim strdateandtime
			if  dateandtime<>"" then
			   strdate=cdate(dateandtime)
			else  
			   strNow=now()
			 end if

			
			 

          
			
			if shenpiren<>"" then 
			set RsShenQing=server.createobject("adodb.recordset")
			RsShenQingsql="select * from ShenQingChuLi where (id is null)" 			
			RsShenQing.open RsShenQingsql,conn,1,3
			RsShenQing.addnew			
			RsShenQing("fid")=fid			
			RsShenQing("审批人")=shenpiren
			RsShenQing("审批完成")="未审批"
			RsShenQing.update
			end if
					


     
		Upload.Dispose ' 释放内存 
		Set Upload = Nothing 
     
	 
	 response.redirect   "sendto.asp?id="&fid&"&curpage="&curpage
	 
			%>
</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<div align="center">



  <table border="1" cellspacing="0" width="700" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
    <tr>
      <td width="100%" height="32">
      <p align="center" class="STYLE1 STYLE2">申请成功，等待审批</td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><br>
          <span class="STYLE1 STYLE2">
          <%response.write title%>
          </span> <span class="STYLE3">已经成功进行申请！</span></p>
        <p align="left"><span class="STYLE1 STYLE2"><br>
          <br>
         附件为：   <br>
          <br>
          <%response.write filename1%>
          <br>
          <%response.write filename2%>
          <br>
          <%response.write filename3%>
          <br>
          <%response.write filename4%>
          <br>
          <%response.write filename5%> 
		   <%response.write content%> 
          <br>
          
    <center>
    <form name="form1" method="post" action="">
      <label>
	
        <div align="center" class="STYLE1">
		<input name="button" type="button" class="topanniu" onClick="location='ShenQingList.asp'"  value="返回列表" />
		&nbsp;</div>
      </label>
      
    </form>
    <p align="center"><br>
    <br>
    </p>      </td>
    </tr>
  </table>
</div>

</body>  
  
</html>  




 