Скачиваем файл с URL в нужную папку Folder Найдено в (http://bbs.vbstreets.ru/viewtopic.php?p=6589962#6589962) Function Download(URL,Folder) Dim XMLHTTP, ADOStream, FileName URL = Replace(URL,"","/") FileName = right(URL,len(URL)-instrrev(URL,"/")) if len(FileName)=0 Then msgbox "Имя файла не указано" Exit Function End if Set XMLHTTP = CREATEOBJECT("Microsoft.XMLHTTP") XMLHTTP.open "GET", URL, "False" XMLHTTP.send If XMLHTTP.statustext = "OK" Then Set ADOStream = CreateObject("ADODB.Stream") ADOStream.type = 1 ADOStream.Open ADOStream.Write XMLHTTP.responseBody if len(Folder) > 0 Then FileName = Folder & "" & FileName ADOStream.SaveToFile FileName, 2 ADOStream.Close Set ADOStream = Nothing Download = 1 'Else ' состояние загрузки 'Download = 0 'XMLHTTP.statustext End if Set XMLHTTP = Nothing End Function

А ВОТ ТУТ ДИНАМИЧЕСКИ ОПРЕДЕЛЯЮТ: ПОДДЕРЖИВАТЕСЯ ЛИ Flash plugin ИЛИ НЕТ http://www.kirupa.com/developer/mx/detection.htm А ТАКЖЕ, ОТЛИЧАЮТ SWF И СТАТИЧЕСКУЮ КАРТИНКУ

не все методы понятны, не могли бы Вы добавить комментарии в операторы SET.

Рекомендую function insertFile( fname ) insertFile = -1 'error dim fso, ts, ForReading, line ForReading = 1 Set fso = Server.CreateObject( "Scripting.FileSystemObject" ) if fso.FileExists( fname ) = false then Set fso = nothing exit function end if Set ts = fso.OpenTextFile( fname, ForReading ) do while not ts.AtEndOfStream 'read line by line line = ts.ReadLine Response.Write line loop ts.Close Set ts = nothing Set fso = nothing insertFile = 1 'success end function

Я работаю с ASP. Иногда необходимо на html-страницу выдать содержимое файлов, имена которых меняются. Можно писать <% if fname="a1" then %> <!--#INCLUDE FILE="a1.inc" --> <% elseif fname="a2" then %> <!--#INCLUDE FILE="a2.inc" --> ... Есть ли лучший подход?