save.asp

自己做的一个网站

<% option explicit
response.buffer=true%>
<!--#include file="conn.asp"-->
<%
dim title,body,author,email
title=request.form("title")
body=request.form("body")
author=request.form("author")
email=request.form("email")
rs.open "tguest",conn,1,3
rs.addnew
rs("title")=title
if body="" then body="没有内容"
rs("body")=body
rs("author")=author
if email="" then email="没有信箱"
rs("email")=email
rs.update
rs.close
set rs=nothing 
conn.close
set conn=nothing 
response.redirect "guestbook.asp"
%>