从叉叉兵的个人日记本上看到的。作者:tr4c3
1:沸腾展望的
| 以下是引用片段: Const adTypeBinary = 1 FileName = Request.QueryString(“FileName”) if FileName = ”" Then Response.Write ”无效文件名!” Response.End End if FileExt = Mid(FileName, InStrRev(FileName, ”.”) + 1) Select Case UCase(FileExt) Case ”ASP”, ”ASA”, ”aspX”, ”ASAX”, ”MDB” Response.Write ”非法操作!” Response.End End Select Response.Clear if lcase(right(FileName,3))=”gif” or lcase(right(FileName,3))=”jpg” or lcase(right(FileName,3))=”png” then Response.ContentType = ”image/*” ‘ 对图像文件不出现下载对话框 else Response.ContentType = ”application/ms-download” end if 阅读全文 |