message.asp

一个ＡＳＰ网站博克程序

<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->

<%
	Dim objDBMS
	Set objDBMS = New LarrixDBMS
	objDBMS.Open "SELECT * FROM [Messages]", 3
	objDBMS.objRSET.AddNew
	objDBMS.objRSET("MessageLAB").Value = Trim(Request.Form("label"))
	objDBMS.objRSET("MessageUSR").Value = Trim(Request.Form("username"))
	If Trim(Request.Form("email")) = "" Then
		objDBMS.objRSET("MessageEML").Value = "[e-mail]"
	Else
		objDBMS.objRSET("MessageEML").Value = Trim(Request.Form("email"))
	End If
	objDBMS.objRSET("MessageDTM").Value = Now()
	objDBMS.objRSET("MessageURL").Value = Request.ServerVariables("REMOTE_ADDR")
	objDBMS.objRSET.Update
	objDBMS.Close
	Set objDBMS = Nothing
	Response.Redirect("GuestBook.asp")
%>