stat.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 37 行

<!--#include file="inc/conn.asp" -->
<%
'页面来路
dim vcome
	vcome=Request("referer")

	if vcome="" or instr(1,vcome,"localhost")>0 then
	vcome="直接输入访问"	
	end if
	if instr(1,lcase(vcome),ownsitekey)>0 then
	vcome=ownsiteurl
	end if
	if len(vcome)>240 then
	vcome=left(vcome,240)
	end if
	
	vcome1=vcome
	vcome2=vcome
	vcome=replace(vcome,"http://","")
	if instr(1,vcome,"/")>0 then   
	vcome=split(vcome,"/")
	vcome1=vcome(0)
	end if

	sql="select vcome from comes where vcome='"&vcome1&"'"
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
		sql="insert into comes(vcome,vlast) values ('"&vcome1&"','"&vcome2&"')"
	else
		sql="update comes set n=n+1,vlast='"&vcome2&"' where vcome='"&vcome1&"'"
	end if
	conn.execute(sql)
rs.close
set rs=nothing

Call closedb
%>