add.asp

来自「这是一个关于留言本的ASP程序设计,本人也是在网上找的,在这里提供大家学习用!」· ASP 代码 · 共 30 行

<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_connection.asp"-->
   <%
	Dim title,body,name,email                    '声明变量
	title=Request.Form("title")                   '返回留言主题
	body=Request.Form("body")                 '返回留言内容
	name=Request.Form("name")                 '返回留言人姓名
	email=Request.Form("email")                 '返回留言人email
	Dim Sql,sValues
	Sql = "Insert Into guest(name"
	sValues = "Values('" & name & "'"
	Sql = Sql & ",title"
	sValues = sValues & ",'" & title & "'"
	If body<>"" Then                           '如果留言内容不为空
		Sql = Sql & ",body"
		sValues = sValues & ",'" & body & "'"
	End If
	If email<>"" Then                           '如果留言人email不为空
		Sql = Sql & ",email"
		sValues = sValues & ",'" & email & "'"
	End If
	Sql = Sql & ",submit_date"
	sValues = sValues & ",'" & date & "'"            '插入系统时间为留言时间
	Sql = Sql & ") " & sValues & ")"
	db.Execute(Sql)                             '插入记录
	db.Close                                   '关闭connection对象
	Response.Redirect "index.asp"                 '重定向回首页
  %>