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




 
			sendto=Upload.Form("sendto").value
			ftype=Upload.Form("ftype").value
			title=Upload.Form("title").value
			author=Upload.Form("author").value
			dateandtime=Upload.Form("dateandtime").value
			content=Upload.Form("content").value
		  
			 
			
		  
            dim rsgonggaosql
			dim rsgonggao
			
			dim filename
			
			
			dim strdateandtime
			if  dateandtime<>"" then
			   strdate=cdate(dateandtime)
			else  
			   strNow=now()
			 end if

			
			'从存储过程取得gonggaoid
			dim fid 
			Set cmd = server.CreateObject("ADODB.Command")
			set Cmd.ActiveConnection = conn
			with Cmd
			   .CommandText = "incid"
			   .CommandType = 4
			   .parameters.Refresh
			   .parameters("@name") ="AllID"
			   .execute
			   fid = .parameters("@id")
			end with

              ''分开部门字段
              dim mysendto
		      mysendto=split(sendto,"|")


			
			set rsgonggao=server.createobject("adodb.recordset")
			rsgonggaosql="select * from gonggao where (id is null)" 
			
			rsgonggao.open rsgonggaosql,conn,1,3
			rsgonggao.addnew
			
			rsgonggao("id")=fid
			rsgonggao("ftype")=ftype
			rsgonggao("sendto")=mysendto(1)
			rsgonggao("title")=title
			rsgonggao("author")=author
			rsgonggao("fdate")=dateandtime
			rsgonggao("content")=content
			rsgonggao("updateandtime")=strdate
			rsgonggao("hits")="0"
			rsgonggao("updatetime")=now()
			rsgonggao("upname")=request.cookies("tname")
			strip=Request.ServerVariables("REMOTE_ADDR")
			rsgonggao("upip")=strip
			rsgonggao.update
			
	
			
		 
			rsgonggao.close

            rssended.close
 


            Upload.Dispose ' 释放内存 
            Set Upload = Nothing 



			%>
</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>
        
          
    <center>
    <form name="form1" method="post" action="">
      <label>
	
        <div align="center" class="STYLE1">
		
		
		  
		   <input name="button" type="button" class="topanniu" onClick="location='picture.asp?id=<%=fid%>'"  value="添加剪影图片" />
        
		 
</div>
      </label>
      <div align="center"></div>
    </form>
    <p align="center"><br>
    <br>
    </p>      </td>
    </tr>
  </table>
</div>
 
 
</body>  
  
</html>  





 