func_login.asp

Simple涂乌板2

<%
'登陆计数器
Sub Counter()
	Application.Lock
	st("visitor")=st("visitor")+1
	st.Update
	Application.UnLock
End Sub

Sub IPFilter()
	tbname="IPFilter"
	sql="select * from "&tbname
	set FT=GetRS(mdbname,tbname,sql)
	IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If IP = "" Then
		IP = Request.ServerVariables("REMOTE_ADDR") 
	End If
	For n=1 To FT.RecordCount
		If FT("IP")=IP Then
			Response.End
		End If
		FT.MoveNext
	Next
End Sub

If Session("visitor")=Empty And Session("FuncLoginPass")="Pass" Then
	Counter()
	IPFilter()
	Session("visitor")=st("visitor")
	Response.Redirect "index.asp"
End If
%>