自己写的后台类中用来检测文件来源连接的程序部分
自己写的后台类中用来检测文件来源连接的程序部分
自己写的后台类中用来检测文件来源连接的程序部分 自己用的而已，见笑。
Class md_system_class
Private file_name_s,i,Come_url_s
'类初始化时的动作
Private Sub Class_Initialize()
If Not Response.IsClientConnected Then Response.End
End Sub
'类关闭时的操作
Private Sub Class_Terminate()
Response.End
End Sub
Public Sub Come_url(file_name)
file_name_s=split(file_name,',')
i=0
For i=0 To ubound(file_name_s)
If Request.ServerVariables('HTTP_REFERER')<>'http://'&Request.ServerVariables('SERVER_NAME')&Mid(Request.ServerVariables('SCRIPT_NAME'),1,InStrRev(Request.ServerVariables('SCRIPT_NAME'),'/'))&Trim(file_name_s(i)) Then
Come_url_s=False
Else
Come_url_s=True
Exit For
End If
Next
If Come_url_s=False Then
Response.Write('<script language='javascript'>'&chr(13))
Response.Write('<!--'&chr(13))
Response.Write('function Index(){ window.alert('非法登陆页面');window.top.location='md_system_login.asp';}'&chr(13))
Response.Write('Index();'&chr(13))
Response.Write('-->'&chr(13))
Response.Write('</script>')
Response.End
End IF
End Sub
End Class
调用时：
Dim xxx
Set xxx=New md_system_class
Call xxx.Come_url(a.asp,b.asp)
Set xxx=nothing
括号中可以是无数个地址，用逗号隔开
