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




 
			noname=Upload.Form("noname").value
			btype=Upload.Form("btype").value
			title=Upload.Form("title").value
			author=Upload.Form("author").value
			dateandtime=Upload.Form("dateandtime").value
			content=Upload.Form("content").value
			
 
  
			 
			
			dim rszhutisql
			dim rszhuti
			
			dim filename
			
			'dim strtype 
			dim strdateandtime
			if  dateandtime<>"" then
			   strdate=cdate(dateandtime)
			else  
			   strNow=now()
			 end if
			 
			
		if  content<>"" then	
			set rszhuti=server.createobject("adodb.recordset")
			rszhutisql="select * from bbszhuti where (bid is null)" 
			
			rszhuti.open rszhutisql,conn,1,3
			rszhuti.addnew
			rszhuti("bClass")="教师"
			rszhuti("noname")=noname
			rszhuti("btype")=btype
			rszhuti("title")=title
			rszhuti("author")=author
			rszhuti("updatetime")=strdate
			rszhuti("content")=content
			rszhuti("updatetime")=now()
			rszhuti("years")=request.cookies("nowxueqi")
			rszhuti("upname")=request.cookies("tname")
			strip=Request.ServerVariables("REMOTE_ADDR")
			rszhuti("upip")=strip
			rszhuti("jietie")=""
			rszhuti.update
			rszhuti.close
		end if	
			
			Upload.Dispose ' 释放内存 
			Set Upload = Nothing 
    
%>

 
</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<div align="center">
  <table border="1" cellspacing="0" width="50%" bordercolorlight="#11B1FF" bordercolordark="#F0F8FF">
    <tr>
      <td width="100%" height="20" class="STYLE1">
      <p align="center" class="STYLE1 STYLE2">发布成功</td>
    </tr>
    <tr>
      <td width="100%" class="STYLE1">
        <p align="left"><br>
        标题为：
          <%response.write title%><br>
    <center>
    <p align="center"><br>
    <br>
    </p>
      </td>
    </tr>
  </table>
    <p align="center">
<input type="button"  value="返回" class="topanniu" onClick="location='BBSmanage.asp?bbstype=<%=btype%>';">
  </p>
</div>
</body>  
  
</html>  


