insert.asp

大家好

<%
sub counter0(titlenm)
	set conn=server.createObject("ADODB.Connection")
	dbpath=server.mappath("../counter/count.mdb")

	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	set ts=server.createobject("ADODB.Recordset")

	
	
	ts.LockType=2
	sqlstr="select * from count where page='" & trim(titlenm) & "'"
	ts.open sqlstr,conn
	if ts.eof then
		ts.addnew
		ts("page")=trim(titlenm)
		ts("num")=1
	else
		ts("num")=ts("num")+1
	end if	
	ts.update
	ts.close
	set ts=nothing
	set conn=nothing

end sub
%>