add.asp

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

<!--#INCLUDE FILE="odbc_connection.asp"-->
<!--#INCLUDE FILE="function.asp"-->
<%
	dim writer_id,title,body,reader_id
	
	title=myReplace(request.form("title"))      '调用函数，处理客户提交的数据
	body=myReplace(request.form("body"))
	name=myReplace(request.form("name"))
	email=myReplace(request.form("email"))
	Dim sqla,sqlb,strSql
	sqla = "Insert into guest(name"
	sqlb = "values('" & name & "'"
	sqla = sqla & ",title"
	sqlb = sqlb & ",'" & title & "'"
	If body<>"" Then
		sqla = sqla & ",body"
		sqlb = sqlb & ",'" & body & "'"
	End If
	if email<>"" then
		sqla = sqla & ",email"
		sqlb = sqlb & ",'" & email & "'"
	end if
	strSql = sqla & ") " & sqlb & ")"
	db.Execute(strSql)
	db.close
	set db=nothing
	response.redirect "index.asp"

%>