add.asp

这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!

<!--#Include File="odbc_connection.asp"-->
<!--#Include File="function.asp"-->
<!--#Include File="config.asp"-->
<%
dim title,body,name,email
'调用函数，处理客户提交的数据,这样可以保证能自动换行
title=myReplace(request.form("title"))     
body=myReplace(request.form("body"))
name=myReplace(request.form("name"))
email=myReplace(request.form("email"))
'下面开始添加记录，因为内容和E-mail可以省略，所以先分成前后两段分别组织
Dim sqla,sqlb,strSql
sqla = "Insert Into guest(name,title,submit_date"
sqlb = "values('" & name & "','" & title & "',#" & Now() & "#"
If body<>"" Then
	sqla = sqla & ",body"
	sqlb = sqlb & ",'" & body & "'"
End If
if email<>"" then
	sqla = sqla & ",email"
	sqlb = sqlb & ",'" & email & "'"
end if
'下面将前后两段组成完整的SQL语句
strSql = sqla & ") " & sqlb & ")"
'执行Insert语句，添加记录
db.Execute(strSql)
'关闭对象
db.Close
Set db=Nothing
'下面返回首页,不过因为添加完毕一般应该能够马上看到，所以应该显示第1页
Session("page_no")=1
response.redirect "index.asp"
%>