次の方法で共有

IIsMimeMap

  • [アーティクル]

IIsMimeMap オブジェクトは、Web サーバーが使用する、継承された Multipurpose Internet Mail Extensions (MIME) マッピングを設定します。

IIsMimeMap オブジェクトは ADSI オブジェクトですが、ADSI コンテナ オブジェクトではありません。

ADsPath

IIS://MachineName/MIMEMAP

MachineName には、任意の名前、または "LocalHost" を指定できます。

構文

varReturn = object.Method

 

要素
  • varReturn
    メソッドからの戻り値を受け取る変数です。
  • object
    通常は、直前の GetObject 操作の結果として、IIsMimeMap オブジェクトを含んでいる変数です。
  • Method
    選択したオブジェクト メソッドです。
プロパティ
ADSI オブジェクト プロパティ  
メタベース プロパティ
MimeMap  
メソッド
ADSI オブジェクト メソッド ADSI オブジェクトの標準メソッドです。
コード例
  <%
  Dim MimeMapObj, aMimeMap, MMType, MMExtension, i, aMimeMapNew()
  Const ADS_PROPERTY_UPDATE = 2
'Get the mimemap object.
  Set MimeMapObj = GetObject("IIS://LocalHost/MimeMap")
'Get the mappings from the MimeMap property.
  aMimeMap = MimeMapObj.GetEx("MimeMap")
' Display the mappings.
  ShowMM(MimeMapObj)
' Add a new mapping.
  i = UBound(aMimeMap) + 1
  Redim Preserve aMimeMap(i)
  Set aMimeMap(i) = CreateObject("MimeMap")
  aMimeMap(i).Extension = ".jnq"
  aMimeMap(i).MimeType = "junque/my-junque"
  MimeMapObj.PutEx ADS_PROPERTY_UPDATE, "MimeMap", aMimeMap
  MimeMapObj.SetInfo
' Display the mappings.
  ShowMM(MimeMapObj)
'Delete a mapping by copying to a new map array.
  i = 0
  For Each MMItem in aMimeMap
    If MMItem.Extension <> ".jnq" Then
      Redim Preserve aMimeMapNew(i)
      Set aMimeMapNew(i) = CreateObject("MimeMap")
      aMimeMapNew(i).Extension = MMItem.Extension
      aMimeMapNew(i).MimeType = MMItem.MimeType
      i = i + 1
    End If
  Next
  MimeMapObj.PutEx ADS_PROPERTY_UPDATE, "MimeMap", aMimeMapNew
  MimeMapObj.SetInfo
'Display the mappings.
  ShowMM(MimeMapObj)
'Subroutine to display the mappings in a table.
  Sub ShowMM(MMObj)
  aMM = MMObj.GetEx("MimeMap")
'Set up table to display mappings.
  Response.Write "<HR><TABLE BORDER><CAPTION><B>MIME Maps</B></CAPTION>"
  Response.Write "<TR><TH>Type</TH><TH>Extension</TH>"
'Display the mappings in the table.
  For Each MM in aMM
    Response.Write "<TR><TD>" & MM.MimeType & "</TD>"
    Response.Write "<TD>" & MM.Extension & "</TD></TR>"
  Next
  Response.Write "</TABLE>"
  End Sub
%>