<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' –ĽŹĚ FŹ¤ŽĐ-Ź¤•iŠé‰ćŽş-Śo—ť‰Ű-“`•[j…[ ' Ťě¬“úF2002/10/18 ' Ťě¬ŽŇFŽRŤč '################################################ '--> %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim FileName, basp, barray, SaveMapPath FileName = Request("FileName") SaveMapPath = Server.MapPath("/" & HomeAlias & "/data/gazokako") & "/" & FileName Set basp=Server.CreateObject("basp21") barray = basp.BinaryRead(SaveMapPath) Response.AddHeader "Content-Disposition","attachment;filename=" & FileName & "" Response.ContentType="image/gif111" Response.BinaryWrite barray End Sub %>