diary_modify1.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim face,date,weather,title,body,user,id
face=request("face")
date=request("date")
weather=request("weather")
title=request("title")
body=request("body")
user=request("user")
id=request("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from diary where id ="&request("id")
rs.open sql,conn,2,3
if date="" then
response.write("<script>alert('对不起，日记添加的日期必须填写！');history.go(-1)</script>")
server.transfer("diary_add.asp")
end if
if title="" then
response.write("<script>alert('对不起，日记标题必须填写！');history.go(-1)</script>")
server.transfer("diary_add.asp")
end if
if body="" then
response.write("<script>alert('对不起，日记内容必须填写！');history.go(-1)</script>")
server.transfer("diary_add.asp")
end if
%>
<%
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function
rs("face")=face
rs("date")=date
rs("weather")=weather
rs("title")=title
rs("body")=HTMLcode(body)
rs.update
rs.close
set rs=nothing
response.redirect "diary.asp?user=" & user
%>
<!--#include file="close.asp"-->