📄 response.asp
字号:
<%
'从表格中获取变量值
Email=Replace(Request.Form("Email"),"'","''")
Contents=Replace(Request.Form("Contents"),"'","''")
'对空项进行检查
IF Email="" THEN Email="Unknown"
IF Contents="" THEN Contents="None"
'获取用户的IP地址
UserIP=Request.ServerVariables("REMOTE_ADDR")
'创建SQL命令字符串
MySQL="INSERT Feedback (Feed_Email,Feed_IP,Feed_Contents)
VALUES ('"&Email&"','"&UserIP&"','"&Contents&"')"
'把数据加入Feedback表中
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "FILEDSN=d:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn"
Conn.Execute MySQL
%>
<HTML>
<HEAD>
<TITLE> 感谢</TITLE>
</HEAD>
<BODY>
<H2> 多谢您的建议</H2>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -