<%
'------------------------------------------------ - ---------
'機能: リモート ファイル サイズを取得する
'パラメータ: URL リモート ファイル アドレス
'戻り値：リモートファイルサイズ（単位：バイト）
'------------------------------------------------ - ---------
関数 getRemoteFileSize(url)
DimxmlHTTP
Set xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "get"、url、false
'次の文は非常に重要です。そうでない場合は、ヘッダー情報を返す前にすべてのファイル情報をプリロードする必要があります。
xmlHTTP.setRequestHeader "範囲"、"バイト=-1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
xmlHTTP = なしを設定します
関数終了
Response.Write(getRemoteFileSize(" %>