SWF文件头结构，留下供以后参考。
| 项目 | 类型 | 描述 |
| 文件类型说明 | 8位 | 文件类型的说明，F或者C，F表示文件没有被压缩，C表示采用zlib压缩文件 |
| 文件类型说明 | 8位 | W |
| 文件类型说明 | 8位 | S |
| 文件的版本号 | 8位 | 文件的版本号，比如version8，这一项就是0x08 |
| 文件的长度 | 32位 | 文件的长度，如果被压缩，则这个数字表示的是解压缩之后的文件长度 |
| 显示的尺寸 | rect | 这是一个特殊的类型。使用twips作为单位，1 twips = 1/1440英寸 |
| 贞频 | 16位 | 8.8的定点数（低八整数，高八小数）表示每一秒更新的贞数 |
| 贞数量 | 16位 | 影片一共有多少贞。注意右边是高位。例如0102表示有513贞，而不是258贞 |
注：表格内容选摘自：http://space.flash8.net/space/html/55/381555_itemid_307609.html
<%
'***************************************
' 三个函数打造网页小偷服务器
' ---- aleaf.com ----
'
' url --要采集的网页
' ptn --正则表达式,可控制采集指定内容
'***************************************
Response.Charset="gb2312"
Dim url,ptn
url=trim(request("url"))
ptn=trim(request("ptn"))
Response.Write GetContent(GetPage(url),ptn)
Function GetContent(txt,ptnStr)
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern ="[\s\S]+"
If ptnStr<>"" Then
regEx.Pattern =ptnStr
End if
txt=replace(txt,vbCRLF,"")
GetContent=regEx.Execute(txt)(0).value
End Function
Function GetPage(urlStr)
Dim HTTP_Obj
On Error Resume Next
Set HTTP_Obj = Server.CreateObject("MSXML2.XMLHTTP")
HTTP_Obj.Open "Get", urlStr, False, "", ""
HTTP_Obj.Send
If HTTP_Obj.Readystate <> 4 Then
Set HTTP_Obj = Nothing
GetPage = "ERROR..."
Exit Function
End If
GetPage = ResponseStrToStr(HTTP_Obj.ResponseBody)
Set HTTP_Obj = Nothing
End Function
Function ResponseStrToStr(Body_Str)
Dim StreamObj
Set StreamObj = Server.CreateObject("Adodb.Stream")
StreamObj.Type = 1
StreamObj.Mode = 3
StreamObj.Open
StreamObj.Write Body_Str
StreamObj.Position = 0
StreamObj.Type = 2
StreamObj.Charset = "GB2312"
ResponseStrToStr = StreamObj.ReadText
StreamObj.Close
Set StreamObj = Nothing
End Function
%>
<%
'*****************************************
' ASP网页实现防小偷或盗链
' -- Aleaf.Com --
'*****************************************
dim onlyURL,visitURL,fromURL
' 合法网址...
onlyURL="http://www.aleaf.com/"
' 跳转网址...
visitURL=request.serverVariables("URL")
' 读取来源...
fromURL=trim(request.serverVariables("HTTP_REFERER"))
if fromURL="" then
'***来源为空:可能直接输入网址或小偷...
'***如果是直接输入网址则跳转以产生一个合法的REFERER;若是小偷则不会跳转.
response.write "<div style='display:none'><p>拒绝小偷!!!"
response.write "<p>来自:" & fromURL
response.write "<p>请访问:<a id='link1' href='" & visitURL & "'>" & visitURL &"</a></div>"
response.write "<script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF
response.end
elseif inStr(fromURL,onlyURL)<>1 then
'***非指定来源:盗链???...
response.write "<p>拒绝盗链!!!"
response.write "<p>来自:" & fromURL
response.write "<p>请访问:<a id='link1' href='" & onlyURL & "'>" & onlyURL &"</a>"
response.write "<p><script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF
response.end
else
'***合法来源:执行后面的页面...
end if
%>