addcounter.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 22 行

<%@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")
 
 
 %>