问题：

RS记录集里面有 GIF/JPG/SWF三种格式文件的路径 在网页中显示时 是用的do while....loop把它们全显示出来

现在只可以显示出GIF/JPG这两种格式，代码如何写能够把SWF的文件也显示出来？

请高手帮帮忙，代码贴出来加上注实，谢谢！

[此贴子已经被作者于2005-11-25 12:00:22编辑过]

先判断要输出的是哪种格式的文件，如过是GIF或者JPG的就用<IMG SRC="地址">输出，如果是SWF格式则需要用FlashPlayer插件来输出了

<%
fileclass="文件格式"
if fileclass="gif" or fileclass="jpg" then
%>
<img src="路径">
<%else%>
<object .....></object>
<%end if%>

[此贴子已经被作者于2005-11-25 12:12:10编辑过]

定义一个函数取得文件的格式(扩展名)
Function GetFileExt(FullPath)
If FullPath <> "" Then
GetFileExt = LCase(Mid(FullPath,InStrRev(FullPath, ".")+1))
Else
GetFileExt = ""
End If
End function


<% if GetFileExt(rs("filepath"))="jpg" or GetFileExt(rs("filepath"))="gif" then %>
<img src="<%=rs("filepath")%>">
<% elseif GetFileExt(rs("filepath"))="swf" then %>
<object .....></object>
<% end if %>

<%
if isnull(rs("PicUrl"))=true or rs("PicUrl")="" then
response.write "无图片"
elseif instr(rs("PicUrl"),"http://")<>0 then
response.write "<A href="&rs("web")&" target=blank><img src="&rs("PicUrl")&" width=120 height=60 border=0></a>"
else
response.write "<A href="&rs("web")&" target=blank><img src="&rs("PicUrl")&" width=120 height=60 border=0></a>"
end if
%>



高手帮我改下看看。SWF也要显示 把OBJECT那里代码写完整吧 红色变成显示SWF的吧

[此贴子已经被作者于2005-11-25 14:00:01编辑过]

你在dw里面插一个flash就知道怎么办了

你可以用right(rs("PicUrl"),3)="swf" or right(rs("PicUrl"),3)="SWF" 来判断

dim fileclass
fileclass="文件格式"
if fileclass="gif" or fileclass="jpg" then

response.write "<A href="&rs("web")&" target=blank><img src=http://www.1000mb.cn/yqlj/picture/"&rs("PicUrl")&" width=120 height=60 border=0></a>"
else
response.write "1111"
end if



2楼的大哥 帮帮忙 怎么确定后缀 我这样写 全显示1111

3楼的大哥 你的方法难度太高了 我定义一个方法都不行 你能代码写全一些吗 还有关于OBJECT里面显示SWF不会写


别打。。。。。打出来嘛！ 谢谢了

有文件名就行确定 用right

谢谢。稿定了。

[此贴子已经被作者于2005-11-25 16:38:12编辑过]