📄 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 = "guest@larry.net.cn"
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")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -