Function URLDecode(enStr)
   dim deStr
   dim c,i,v
   deStr=""
   for i=1 to len(enStr)
    c=Mid(enStr,i,1)
   if c="%" then
    v=eval("&h"+Mid(enStr,i+1,2))
   if v<128 then
  deStr=deStr&chr(v)
  i=i+2
   else
  if isvalidhex(mid(enstr,i,3)) then
   if isvalidhex(mid(enstr,i+3,3)) then
    v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
    deStr=deStr&chr(v)
    i=i+5
   else
    v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
    deStr=deStr&chr(v)
    i=i+3  
   end if  
  else  
   destr=destr&c
  end if
   end if
   else
   if c="+" then
   deStr=deStr&" "
   else
   deStr=deStr&c
   end if
   end if
   next
   URLDecode=deStr
  end function
  
  function isvalidhex(str)
   isvalidhex=true
   str=ucase(str)
   if len(str)<>3 then isvalidhex=false:exit function
   if left(str,1)<>"%" then isvalidhex=false:exit function
   c=mid(str,2,1)
   if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
   c=mid(str,3,1)
   if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
  end function

一.在根目錄建立 crossdomain.xml 檔
內容為：
　<?xml version="1.0" encoding="UTF-8"?>
　<cross-domain-policy>
　<allow-access-from domain="*.xyz.com" />
　</cross-domain-policy>
其中xyz.com代表你的網域，用*表示所有建立在此網域下的次網域均可以讀取。
若是還有其他非此網域要用的話，只要再多加一行  <allow-access-from domain="www.abc.com" /> 即可，
如果不想要限制其他網域，就只寫這行即可 <allow-access-from domain="*" />

二.步驟一如果還不行的話
請將所有路徑(xml檔、swf檔、圖檔)都要寫成絕對路徑，
例如：
http://www.xyz.com/aaa.xml
http://www.xyz.com/bbb.swf
http://www.xyz.com/ccc.jpg