2011年3月5日
隐藏真实文件地址的下载页代码
摘要： download.asp?FileName===================<%Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") 'GET传来的文件名变量if FileName = "" Then Response.Write "无效文件名." Response.End End if ' 下面是不希望下载的文件 FileExt = 阅读全文
posted @ 2011-03-05 11:30 moretop 阅读(679) 评论(0) 推荐(0) 编辑
利用fso判断文件是否存在。
摘要： <%dim fs,fileURLfileURL="Attachment\20113447344437.swf"set fs=Server.CreateObject("Scripting.FileSystemObject")if fs.FileExists(server.mappath(fileURL))=true thenresponse.write"文件存在"elseresponse.write"文件不存在"end ifset fs=nothing%> 阅读全文
posted @ 2011-03-05 10:30 moretop 阅读(400) 评论(0) 推荐(0) 编辑
asp截取字符串：根据右边第一个点(.)去掉扩展名
摘要： <%str="aaaa.bbb.bbb.gif" str=left(str,InStrRev(str,".")-1)response.write str%> 阅读全文
posted @ 2011-03-05 00:00 moretop 阅读(404) 评论(0) 推荐(0) 编辑