<%
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
id = CInt(Request.Querystring("id"))
strStation = Left(Request.ServerVariables("HTTP_REFERER"),220)
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
%>

document.write("<script>var url='<%=theurl%>';</script>")
_dwrite("<script language=javascript src="+url+"/inc/online.asp?id=<%=id%>&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
%>