
<!--#INCLUDE FILE="fupload.inc"-->
<!--#include file="../SQLconn.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<title>保存</title>

<link rel="stylesheet" href="../css/style.css">
</head>
<body  topmargin="5" leftmargin="5">

<p>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'---------------------------
'response.write "开始发送<br>"
'---------------------------
Dim Fields
UploadSizeLimit=21212121
Set Fields = GetUpload()
dim Field
For Each Field In Fields.Items
if Field.name="bclass" then bclass=BinaryToString(Field.value)
if Field.name="btype" then btype=BinaryToString(Field.value)
if Field.name="title" then title=BinaryToString(Field.value)
if Field.name="author" then author=BinaryToString(Field.value)
if Field.name="dateandtime" then dateandtime=BinaryToString(Field.value)
if Field.name="content" then content=BinaryToString(Field.value)

next


%>
  <%
 

dim rszhutisql
dim rszhuti

dim filename

'dim strtype 
dim strdateandtime
if  dateandtime<>"" then
   strdate=cdate(dateandtime)
else  
   strNow=now()
 end if
 


set rszhuti=server.createobject("adodb.recordset")
rszhutisql="select * from bbszhuti where (bid is null)" 

rszhuti.open rszhutisql,conn,1,3
rszhuti.addnew
rszhuti("bclass")=bclass
rszhuti("btype")=btype
rszhuti("title")=title
rszhuti("author")=author
rszhuti("updatetime")=strdate
rszhuti("content")=content
rszhuti("updatetime")=now()
rszhuti("upname")=request.cookies("tname")
strip=Request.ServerVariables("REMOTE_ADDR")
rszhuti("upip")=strip
rszhuti.update
rszhuti.close


%>

  <%end if%>
</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>  


