📄 add.asp.txt
字号:
<HTML>
<HEAD><TITLE>返回</TITLE></HEAD>
<BODY bgcolor=LightYellow>
<%
Dim oConn ' 声明Connection对象
Dim FilePath ' 声明Search.mdb文件物理路径
Dim selected ' 声明选择项变量
' 从Request对象中获取选择项值
selected = Request.Form("options")
' 获取Search.mdb的物理路径
FilePath = Server.MapPath("Search.mdb")
' 创建ADO的Connection对象到Search.mdb数据库的连接
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & FilePath
oConn.Open
' 修改原有的记录值，使选择项的值加1
SQL="UPDATE Search SET Sel" & selected & "=Sel" & selected & "+1 WHERE ID=1"
oConn.Execute(SQL)
' 关闭数据库，释放内存变量
oConn.Close
Set oConn = Nothing
%>
<center><FONT size=5 face=方正舒体 color= blue>
感谢您的支持！</FONT>
<p><A href="Index.asp">返回调查页面</A>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -