insert.asp

大家好

<%
sub counter0(titlenm)
	set conn=server.createobject("adodb.connection")
	conn.open Application("DBCon_ConnectionString") 
	set rs=server.createobject("adodb.recordset")
	
	rs.LockType=adLockOptimistic
	sqlstr="select * from counter where page='" & trim(titlenm) & "'"
	rs.open sqlstr,conn
	if rs.eof then
		rs.addnew
		rs("page")=trim(titlenm)
		rs("num")=1
	else
		rs("num")=rs("num")+1
	end if	
	rs.update
	rs.close
	set conn=nothing

end sub
%>