可以使用 IIsMimeType (ADSI) 对象的 Extension 属性指定文件扩展名的 MIME 类型。
DirObj.Extension = String
<%
Dim MimeMapObj
Dim MimeMapList
Const ADS_PROPERTY_UPDATE = 2
Dim NewMimeMapSize
' 使用 GetEx 检索 MimeMap 数组
Set MimeMapObj = GetObject("IIS://localhost/MimeMap ")
MimeMapList = MimeMapObj.GetEx("MimeMap ")
' 在数组中创建一个新的项目
NewMimeMapSize = UBound(MimeMapList) + 1
Redim preserve MimeMapList (NewMimeMapSize)
' 创建新的 MimeType 项目
Set MimeMapList(NewMimeMapSize) = CreateObject ("MimeMap ")
MimeMapList(NewMimeMapSize).Extension = ".log"
MimeMapList(NewMimeMapSize).MimeType = "text/plain"
' 使用 PutEx 以新数组更新 MimeMap 数组
MimeMapObj.PutEx ADS_PROPERTY_UPDATE, "MimeMap ", MimeMapList
MimeMapObj.SetInfo
%>