<%
set FileObject = server.createobject("Scripting.FileSystemObject")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
fn = Request.ServerVariables("SCRIPT_NAME")
fn = Mid(fn,InStrRev(fn,"/")+1)
path= Server.MapPath("/images")
fn=replace(fn,"show_","")
File =path&"\"&fn&".jpg"
If FSO.FileExists(File) = True Then
response.Write "/images/"&fn&".jpg"
else
response.Write "/images/news_r2_c4.jpg"
End If
%>
asp实用代码记录
2010-1-15 18:23:37
Tags: asp
发布:subin | 分类:ASP / PHP / JSP | 评论:0 | 引用:0 | 浏览:
- 相关文章:
asp上传大附件iis设置 (2009-12-22 10:18:10)
ASP检测含有中文字符串的实际长度 (2009-9-15 11:37:40)
asp 读文件并替换特定字符 (2009-8-11 15:29:21)
asp判断是否为数字:IsNumeric (2009-8-8 14:33:39)
利用ASP如何列出文件夹里所有文件和文件夹 (2009-8-8 13:31:24)
asp获取post和get的参数 (2009-8-8 13:26:57)
asp .net php jsp连接MsSQL MySQL ACCESS Oracle的代码 (2009-7-23 15:56:33)
asp代替access replace函数的代码 (2009-7-15 14:58:57)
asp给图片加水印的代码和方法 (2009-7-7 17:58:44)
asp自定义函数：中文字符转Uncode代码 (2009-2-4 11:41:32)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
