WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

stat.asp：源码内容

							<!--#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
%>

						