为什么我这段代码只能显示bmp格式的图片,而不能显示jpg格式的图片?
<td width="12%" height="76" rowspan="5"><img border="0" src=
<%
'用flag来表示有没有此人相片
flag=false
Set fso =server.CreateObject("Scripting.FileSystemObject")
myPath=Server.MapPath(".\pic")
Set f = fso.GetFolder(myPath)
Set fc = f.Files
For Each f1 in fc
namestr = f1.name
name1 = left(namestr,len(namestr)-4)
//除去左边的扩展名,而取得名字 ,比如说 张文.bmp
name2 = request.cookies("username")
//读出cookie里保存的名字
'如果说有相片文件存在,就显示出来。
//两个名字相比较,如果相同就显示路径和文件名
if strcomp(name1,cstr(name2),1)=0 then
response.write("pic/" & namestr)
//用flag来标志是正常退出,还是异常退出
flag=true
exit for
end if
Next
//如果没有找到图片,也就是异常退出,显示无图
if not flag then response.write("pic/none.jpg")
%>
width="78" height="104"></td>