<p>利用FSO判断图片是否存在并相应处理</p>
<p>Function FileExt(strFileName)<br />
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br />
if objFSO.fileExists(Server.MapPath("/"&strFileName&".gif")) then<br />
response.write "<img align=absmiddle src='/"&strFileName&".gif' border=0 width=90 height=90>"<br />
else<br />
strFileName=Left(strFileName,2)<br />
strFileName=Ltrim(replace(strFileName,".",""))<br />
response.write "<img align=absmiddle src='/"&strFileName&".gif' border=0 width=90 height=90>"<br />
end if<br />
end function</p>