path=request.ServerVariables("SCRIPT_NAME")

response.write(path)

取得当前的文件名 

页面来路:

< %=Request.ServerVariables("HTTP_REFERER") %>

上面的东东很重要：如果有这样的网页：http://www.abc.com/aaa.asp?id=7，那么，我以后可以直接在浏览器中键入http://www.abc.com/aaa.asp?id=7或http://www.abc.com/aaa.asp?id=8 等等，那么就没有什么保密而言了。加上面那句判断就OK了：如果Request.ServerVariables("HTTP_REFERER")=空   则非法！再加上主机名字符是否存在的判断，就更完美了。思路如下：

如果 Request.ServerVariables("HTTP_REFERER")<>"" 那么
        如果 instr(Request.ServerVariables("HTTP_REFERER"),"主机域名")<1 那么非法
               执行“非法”指令
         否则
               执行“合法”指令
         结束判断            (即：从别的页面做个“http://www.abc.com/aaa.asp?id=8”的链点也不行)
否则
       执行“合法”指令
结束判断。

随机选择页面上所有下拉框，函数参数怎样设置为一个对象？
一个函数，随机选择页面上的下拉框：

RegisterUserFunc "Frame", "ChildObjects", "AllSelect",True
Public Sub  AllSelect(byref myPage)
dim i 
Set oDesc = Description.Create()
oDesc("html tag").Value = "SELECT"
oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)　＇此行报错
For i = 0 To Lists.Count - 1
  Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
Next 
End Sub

提示“找不到对象”，哪里错了？
hanmy 发表于 2008-5-7 05:11 PM

Line (7): "Set lists = myPage.ChildObjects(oDesc)".

用Ｆｕｎｃｔｉｏｎ和Ｓｕｂ是一样的结果。

sunskystar 发表于 2008-5-7 05:11 PM

Public Sub  AllSelect(byref myPage)
        dim i 
        Set oDesc = Description.Create()
        oDesc("html tag").Value = "SELECT"
        oDesc("disabled").Value = 0
        Set lists = myPage.ChildObjects(oDesc)
        For i = 0 To Lists.Count - 1
                Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
        Next 
End Sub
RegisterUserFunc "Frame", "AllSelect", "AllSelect",True

rightFrame.AllSelect　'成功！
ahxxzx 发表于 2008-5-7 05:11 PM

呵呵，学习了，多谢楼主
Max 发表于 2008-5-7 05:11 PM

关键是这句吧
RegisterUserFunc "Frame", "AllSelect", "AllSelect",True
为FRAME注册函数