8 мая корпорация Borland Software Corporation объявила о выходе Borland Delphi 6, новой версии своей среды разработки для Windows, позволяющей быстрое создание и развертывание приложений, использующих XML и SOAP-технологии. Delphi 6 - единственная RAD-среда, которая полностью поддерживает все промышленные стандарты: XML, SOAP, WSDL и XSL; и кроме того, платформы Microsoft .Net и BizTalk. Среди новых возможностей Borland Delphi 6 следует отметить: новая платформа BizSnap Web Services RAD development platform упрощает интеграцию типа business-to-business простым созданием веб-сервисов XML/SOAP; новая объектная среда WebSnap для разработки веб-приложений с поддержкой таких сервисов, как Apache, Netscape и Microsoft Internet Information Services (IIS); новая версия DataSnap для разработки высокопроизводительных приложений для интернета с поддержкой основных СУБД: Oracle, MS-SQL Server, Informix, IBM DB2, Sybase и InterBase.
Процедура для показа картинок случайным образом из заданного каталога
Приводимая ниже процедура DisplayRandomImage показывает как при помощи FileSystemObject и функции Randomize выводить на ASP-странице картинки случайным образом из заданного каталога. Данная процедура может быть просто включена в ваш скрипт вызовом формата DisplayRandomImage("/files/images/"), где в качестве параметра должен быть указан относительный путь к каталогу с изображениями.
Sub DisplayRandomImage( szImageFolder )
Dim szImagesFolderPath, szImageTag
Dim nRandom, nCounter, nFilesCount
Dim oFS, oFolder, oFileCollection, oFile
If Right(szImageFolder, 1) <> "/" Then szImageFolder = szImageFolder & "/"
' translate virtual folder into physical path
szImagesFolderPath = Server.MapPath (szImageFolder)
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFS.GetFolder(szImagesFolderPath)
Set oFileCollection = oFolder.Files
nFilesCount = oFileCollection.Count
if nFilesCount = 0 then
Response.Write "No image available" ' в каталоге нет картинок
Exit Sub
end if
Randomize(Cbyte(Left(Right(Time(),5),2)))
nRandom = int(nFilesCount * rnd) + 1
nCounter = 0
For Each oFile in oFileCollection
nCounter = nCounter + 1
if nCounter = nRandom then
szImageTag = "<img src=""" & szImageFolder & oFile.Name & """>"
Response.Write szImageTag
Exit For
end if
Next
Set oFileCollection = Nothing
Set oFolder = Nothing
Set oFS = Nothing
End Sub