<!--#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="id" then id=BinaryToString(Field.value)
if Field.name="curpage" then curpage=BinaryToString(Field.value)
if Field.name="title" then title=BinaryToString(Field.value)
if Field.name="RiZhitype" then RiZhitype=BinaryToString(Field.value)
if Field.name="content" then content=BinaryToString(Field.value)

next



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

rszhuti.open rszhutisql,conn,1,3

rszhuti("RiZhitype")=RiZhitype
rszhuti("title")=title
rszhuti("updatetime")=strdate
rszhuti("content")=content
rszhuti("updatetime")=now()
rszhuti("Tname")=request.cookies("tname")
strip=Request.ServerVariables("REMOTE_ADDR")
rszhuti("upip")=strip
rszhuti("hits")="0"
rszhuti.update
rszhuti.close
response.redirect   "MyRiZhi.asp?curpage="&curpage

%>

  <%end if%>
<%=curpage%>
</body>  
  
</html>  


