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

<%
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="bid" then bid=BinaryToString(Field.value)
if Field.name="curpage" then curpage=BinaryToString(Field.value)
if Field.name="content" then content=BinaryToString(Field.value)

next


	  
	  

set rszhuti=server.createobject("adodb.recordset")
rszhutisql="select * from studentBBS where bid='"&bid&"'"

rszhuti.open rszhutisql,conn,1,3

rszhuti.edit
rszhuti("answer")=content
rszhuti("teacher")=request.cookies("tname")
rszhuti("Teacherdatetime")=now()
strip=Request.ServerVariables("REMOTE_ADDR")
rszhuti("TeacherIp")=strip
rszhuti.post



rszhuti.update
rszhuti.close




end if

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


