handle.asp

asp开发 asp开发 asp开发 asp开发

<%
name = left(request("name"),15)
email = left(request("email"),30)
subject = left(request("subject"),30)
memo = request("memo")
memo = Replace( memo, vbCrLf, "<BR>" )
If name = "" Or email = "" Or subject = "" Or memo = "" Then
   Response.Write("输入框不能为空白!")
   Response.End() '不再处理以下的程序
End If

sql = "INSERT INTO GuestBook(姓名,email,主题,留言,ip)" &_
	"VALUES('" & name & "','" & email & "','" & subject & "','"&_
	memo&"','" & Request.ServerVariables("REMOTE_ADDR") & "')"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("lyb.mdb")
conn.execute(sql)
Response.Redirect "../lyb.asp"
%>