Asp objects

Server

Properties

ScriptTimeout

Максимальное время выполнения скрипта

Server.ScriptTimeout = NumSeconds

Methods

CreateObject

Создание серверных объектов

set adoCmd = Server.CreateObject("ADODB.Command")

Execute

Выполнение .asp файла

Server.Execute ("Page22.asp")

GetLastError

Возвращает ASPError объект.

Set ASPErr= Server.GetLastError()

HTMLEncode

Преобразовывает строку в HTML код.

sStr=Server.HTMLEncode("The paragraph tag: <P>")

MapPath

Преобразует относительный путь в абсолютный

Если путь не начинается со слеша, то возвращается путь относительного текущего файла, иначе относительно корня сайта.

sUrl=server.mappath(Request.ServerVariables("PATH_INFO"))
'c:\inetpub\wwwroot\script\test.asp
sUrl=server.mappath("data.txt")
'c:\inetpub\wwwroot\script\data.txt

Transfer

Передает всю принятую информациюю другому .asp файлу

Server.Transfer("/Myasps/ASP2.asp")

URLEncode

Преобразует URL в HTML строку

sUrl=Server.URLEncode("http://www.microsoft.com"))

Session

Collections

Contents

Коллекция объектов

Session.Content(key) = item

Dim sessitem
 
For Each sessitem in Session.Contents
  If IsObject(Session.Contents(sessitem)) Then
    Response.write(sessitem & " : Session object cannot be displayed." & "<BR>")
  Else
    If IsArray(Session.Contents(sessitem)) Then
       Response.write "Array named " & Session.Content(sessitem) & "<ol>"
       For each objArray in Session.Contents(sessitem)
           Response.write "<li>" & _
           Session.Contents(sessitem)(objArray)& "<BR>"
       Next
           Response.write "<ol>"
    Else
           Response.write(sessitem & " : " & Session.Contents(sessitem) & "<BR>")
     End If
  End If
Next

StaticObjects

Коллекция объектов созданных тегом <OBJECT>

set item = Session.StaticObjects( key )

Properties

CodePage

Кодовая страница

cod = Session.CodePage
Session.CodePage= 1251

LCID

Идентификатор локализации

cod = Session.LCID
Session.LCID= 1251

Dim lcid
lcid=Session.LCID
Session.LCID=&H0409
Rsponse.Write("Date:" & FormatDateTime(Now(),vbShortDate) & FormatDateTime(Now(),vbShortTime))
Rsponse.Write("Number:" & FormatNumber(1234.1234567,2,,,true))
Session.LCID=lcid

Список кодов:
КодСтранаДатаЧисло
&H0419RussianDMY.:_,
&H0809English (United Kingdom)DMY/:,.
&H0407German (Standard)DMY.:.,
&H0409English (United States)DMY/:_,
&H0400Process Default Language  

MSDN:\\Plarform SDK/Base Services/International Features/National Language Support

SessionID

Идентификатор сессии

cod = Session.SessionID

Timeout

Время существования сесии в минутах

to= Session.Timeout

Methods

Abandon

Удаляет все объекты сессии

Session.Abandon

Contents.Remove

Удаляет объект из Contents

Session.Contents.Remove(key)

Contents.RemoveAll

Удаляет все объекты из Contents

Session.Contents.RemoveAll

Application

Collections

Contents

Коллекция объектов

Application.Content(key) = item

StaticObjects

Коллекция объектов созданных тегом <OBJECT>

set item = Application.StaticObjects( key )

Methods

Contents.Remove

Удаляет объект из Contents

Application.Contents.Remove(key)

Contents.RemoveAll

Удаляет все объекты из Contents

Application.Contents.RemoveAll

Lock

Блокирует объекты Application

Application.Lock

Unlock

Разблокирует объекты Application

Application.Unlock

Request

Collections

ClientCertificate

Коллекция полей сертификации

item = Request.ClientCertificate( key )

Cookies

Коллекция переменных Cookies

item= Request.Cookies(key)

Dim strKey,strSubKey

For Each strKey In Request.Cookies
      Response.Write strKey & " = " & Request.Cookies(strKey) & "<BR>"
      If Request.Cookies(strKey).HasKeys Then
        For Each strSubKey In Request.Cookies(strKey)
          Response.Write "->" & strKey & "(" & strSubKey & ") = " & _
            Request.Cookies(strKey)(strSubKey) & "<BR>"
        Next
      End If
Next

Form

Коллекция переменных формы

if Request.Form(key).Count > 0 then
  var= Request.Form(key).Value
end if

Dim i,strName,strItem

For i=1 To Request.Form.Count
    strName= CStr(Request.Form.Key(i))
    If left(strName,4) = "fld_" Then
		strName = Mid(strName,5,50)
		strItem = CStr("" & Request.Form(i).Item)
		If len(strItem) > 0 Then
		    Session(strName) = strItem
		    Response.Write strName & "=" & strItem & "<BR>"
	    End if		
	End If	
Next


For i = 1 To Request.Form("FavoriteFlavor").Count
    Response.Write Request.Form("FavoriteFlavor")(i) & "<BR>"
Next

QueryString

Коллекция переменных строки запроса

if Request.QueryString(key).Count > 0 then
  var= Request.QueryString(key).Value
end if

'Набор одноименных элементов
For i = 1 To Request.QueryString("Q").Count    
    Response.Write Request.QueryString("Q")(i).Value & "<BR>"
Next

ServerVariables

Коллекция переменных окружения

var= Request.ServerVariables(key)
url= Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")

Список переменных:
ИмяЗначениеКомментарий
PATH_INFO/projects/test/lcid/test.aspПолный путь к файлу от корня
QUERY_STRINGa=123&b=333Параметры запроса
PATH_TRANSLATEDc:\Inetpub\wwwroot\projects\test\lcid\test.aspПолный путь к файлу
SERVER_NAMEdoubeikovskivИмя сервера
SCRIPT_NAME/projects/test/lcid/test.aspИмя модуля
HTTP_ACCEPT_LANGUAGEen-usЯзык клиента
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)Навигатор
HTTP_REFERER URL страницы, которая выполнила запрос
REMOTE_ADDR10.100.0.36Адрес клиента
CONTENT_TYPE19.06.2001 17:59:48multipart/form-data; boundary=---------------------------7d13db2f20abeТип данных
CONTENT_LENGTH3812Количестов байт

Properties

TotalBytes

Количество посланных байт

count = Request.Request_TotalBytes

Methods

BinaryRead

Читает бинарные данные

count = Request.BinaryRead()

Dim strHeader,strBoundary,lngLength,strData
  
strHeader = Request.ServerVariables("CONTENT_TYPE")
strBoundary = Replace(Right(strHeader, Len(strHeader) - InStrRev(strHeader,"boundary=") - 8), "-", "")
lngLength = CLng(Request.ServerVariables("CONTENT_LENGTH"))
strData = Request.BinaryRead(lngLength)

Response

Collections

Cookies

Коллекция переменных Cookies

Response.Cookies(cookie)[(key)|.attribute] = value
Response.Cookies("myCookie") = "chocolate chip"

Dim key

If Not cookie.HasKeys Then
    'Set the value of the cookie. 
    Response.Cookies(cookie) = ""
Else
    'Set the value for each key in the cookie collection.
    For Each key in Response.Cookies(cookie)
      Response.Cookies(cookie)(key) = ""
    Next
End if

Список полей:
ПолеКомментарий
DomainДоменная часть url, для которой действует данное Cookie
ExpiresДата автоматического удаления
HasKeysCookie имеет ключи
PathЧасть url содержащая путь к документу, для которой действует данное Cookie. Если не указано, то url документа

Properties

Buffer

Признак буферизации страницы

Response_Buffer = true|false
False. Сервер отправляет данные клиенту по мере формирования. 
Это значение по умолчанию для IIS 4.0. Для версии 5.0 и позже True.
True. Сервер не отправляет данные клиенту до вызова методов Flush или End.

CacheControl

Признак кеширования страниц

Response.CacheControl = "Private"|"Public"

Charset

Кодовая страница

Response.Charset = "ISO-LATIN-7"

ContentType

Определяет HTTP content type

Response.ContentType = "text/html"|"image/gif"|"application/vnd.ms-excel"

Expires

Время кеширования страницы

Response.Expires = 20|-1
В случае отрицательного числа кеширования не выполняется.

ExpiresAbsolute

Задает время окончания кеширования

Response.ExpiresAbsolute = #May 31,2001 13:30:15#

IsClientConnected

Признак соединения с клиентом

res = Response.IsClientConnected

Status

Статус возврата. Строка содержащая три цифры, которые индицируют статус возврата и краткое описание кода.

Response.Status = "401 Unauthorized"

Methods

AddHeader

Добавляет в заголовок параметр

Response.Addheader "WWW-Authenticate", "BASIC"

AppendToLog

Добавляет строку в протокол

Response.AppendToLog "My custom log message"

BinaryWrite

Пишет в выходной поток бинарные данные

Dim RS
if IsEmpty(request("ID")) then response.end
set RS = Cnn.Execute("Select * from st_image where id='" & request("ID") & "'")
if RS.Eof or RS.BOF then response.End
if IsNull(RS("pic").value) then response.End
	
Response.Clear
Response.ContentType = RS("ContentType").value
Response.BinaryWrite RS("pic").value

Clear

Сбрасывает выходной буфер

Response.Clear

End

Завершает обработку Asp файла и отсылает результат клиенту.

Response.End

Flush

Немедленно отправляет данные клиенту

Response.Flush

Redirect

Перенаправляет вызов на другой URL

Response.Redirect "http://www.microsoft.com"

Write

Пишет строку в выходной поток

Response.Write "Hello"

Hosted by uCoz