adcount.asp

来自「飞天论坛FTBBS PHP版 v4.1.ASP源代码」· ASP 代码 · 共 26 行

<!--#include virtual="/kingstone/configseting/odbc/conn.asp" -->
<%
district=request.querystring("district")
url=request.querystring("url")
pos=request.querystring("pos")
if INSTR(district&url&pos," ") then
	response.redirect "/index.asp"
end if
rs.open "select * from click where ckdate='"&date&"' and District='"&district&"' and pos='"&pos&"'",dsnstr,3,2
if not rs.eof and not rs.bof then
	rs(3)=cint(trim(rs(3)&" "))+1
	rs.update
else
	rs.addnew
	rs(1)=district
	rs(2)=pos
	rs(3)=1
	rs(4)=date
	rs.update
end if
rs.close
set rs=nothing
dsnstr.close
set dsnstr=nothing
response.redirect url
%>