📄 setc.asp
字号:
<!--#include file="conn.asp"-->
<%
Connect()
Dim objRs,strSQL,id
id = Request.QueryString("id")
Set objRs = Server.CreateObject("Adodb.RecordSet")
strSQL = "Select [Count] From [Counts] Where [Id]=" & id
objRs.open strSQL,objConn,1,3
Dim i
i = objRs("Count")
i = i + 1
objRs("Count") = i
objRs.Update()
objRs.Close()
Set objRs = Nothing
Disconnect()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -