www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\count.asp

    <%
Response.Expires = 0
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
If Not CheckPost Then Response.End
If Not IsNumeric(Request("id")) And Request("id")<>"" then
	Response.write"错误的系统参数!ID必须是数字"
	Response.End
End If
Dim theurl,id,strStation,cid
id = ChkNumeric(Request.Querystring("id"))
cid = ChkNumeric(Request.Querystring("cid"))
strStation = Request.ServerVariables("HTTP_REFERER")
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
%>
document.write("<script>var url='<%=theurl%>';</script>")
_dwrite("<script language=javascript src="+url+"/common/online.asp?id=<%=id%>&cid=<%=cid%>&stat=<%=strStation%>&Referer="+escape(document.referrer)+"></script>");
function _dwrite(string) {document.write(string);}
<%
Function finddir(filepath)
	finddir=""
	Dim i,abc
	for i=1 to len(filepath)
		if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
	  		abc=i
	  		exit for
		end if
	next
	if abc <> 1 then
		finddir=left(filepath,len(filepath)-abc+1)
	end if
end Function
'=============================================================
'函数作用：判断发言是否来自外部
'=============================================================
Function CheckPost()
	On Error Resume Next
	Dim server_v1, server_v2
	CheckPost = False
	server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
	server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
	If Mid(server_v1, 8, Len(server_v2)) = server_v2 Then
		CheckPost = True
	End If
End Function
Function ChkNumeric(ByVal CHECK_ID)
	If CHECK_ID <> "" And IsNumeric(CHECK_ID) Then
		CHECK_ID = CLng(CHECK_ID)
		If CHECK_ID < 0 Then CHECK_ID = 0
	Else
		CHECK_ID = 0
	End If
	ChkNumeric = CHECK_ID
End Function
%>