guest_save.asp

艾特同学录配套留言本

<!--#include file="conn.asp"-->
<%
Dim user,title,book

user=request("user")
title=request("title")
book=request("book")

if user="" or title="" or book="" then
response.write"<script>alert('对不起，贴子资料不能为空');history.go(-1);</script>"
response.end()
end if
if len(book)>1000 then
response.write"<script>alert('对不起，贴子内容不能大于 1000 个字符');history.go(-1);</script>"
response.end()
end if

set rs=server.createobject("adodb.recordset")
sql="select * from book"
rs.open sql,conn,1,3
rs.addnew
rs("user")=user
rs("title")=title
rs("book")=book
rs.update
rs.close
set rs=nothing
response.redirect"index.asp"
%>