diary_add1.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim date,weather,title,face,body,user
date=request("date")
weather=request("weather")
title=request("title")
body=request("body")
user=session("user")
face=request("face")
set rs1=server.createobject("adodb.recordset")
sql1="select * from diary"
rs1.open sql1,conn,3,2
set rs=server.createobject("adodb.recordset")
sql="select * from user where user='"&user&"'"
rs.open sql,conn,1,1
if user = "" then
response.write("<script>alert('连接超时，请重新登陆！')</script>")
server.transfer("login.asp")
end if
if user <> rs("user") or session("password") <> rs("password") then
response.write("<script>alert('对不起，您不是改日基本的管理员，请重新登陆！')</script>")
server.transfer("login.asp")
end if
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
Rs1.AddNew
Rs1("username")=user
Rs1("date")=date
Rs1("weather")=weather
Rs1("title")=title
Rs1("face")=face
Rs1("body")=HTMLcode(body)
rs1("face")=face
rs1.update
rs1.close
set rs1=nothing
response.redirect "diary.asp?user="&user&""
%>
<!--#include file="close.asp"-->