📄 addcounter.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set objconn = Server.CreateObject("ADODB.Connection")
connstr="Provider=microsoft.jet.oledb.4.0;Data source=" & server.MapPath("toupiaodb.Mdb")
objconn.Open connstr
sqlstr="select * from webt"
set objrs=server.CreateObject("ADODB.Recordset")
objrs.open sqlstr,objconn,1,3
objrs.movefirst
while not objrs.eof
if objrs("name")=request("radiobutton") then
objrs("counters")=objrs("counters")+1
objrs.update
end if
objrs.movenext
wend
response.Redirect("index_tp.asp")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -