<EMBED src="<%=rs("hw_link")%>" style="HEIGHT: 100%; WIDTH: 218" type=audio/mpeg AUTOSTART="0" loop="0"></EMBED>

－－－－－－－－－－－－－以上是一个播放器的代码，"<%=rs("hw_link")%>"是数据库中的媒体文件连接，如何去判断这个连接的文件类型是MPEG呢？？？？

有朋友ＨＥＬＰ吗？？：）

哗。。。。。收到，版主亲自出马，本人很荣幸。。。。。。谢谢了。。。。挥泪中。。。。。：）

是这样吗？？？

————————————————————————————————

<%
Function getFileCls'('http://www.test.com/test.mpg')'
Dim RevStr
Dim i
Dim FileName
Dim FileClsAry
FileName="gpm"
RevStr=StrReverse'('http://www.test.com/test.mpg')'
For i=1 To Len(RevStr)
IF Mid(RevStr,i,1)<>"/" Then
FileName=FileName&Mid(RevStr,i,1)
Else
Exit For
End IF
Next
If FileName<>"gpm" Then
FileClsAry=Split(FileName,".")
getFileCls=StrReverse(FileClsAry(0))
response.write "哗,对了哟...."
Else
getFileCls=""
response.write "啊哦....不对哟..."
End IF
End Function
%>

————————————————————————————————————


嗯？？？？我得不到任何输出的。。。。。？？

[此贴子已经被作者于2006-9-21 22:35:20编辑过]

哦。。。。原来是这样。。。真是感谢呀。。。又学到了东西，版主真是好呀。。。。。。

咦。。。。。？？运行错误咧？哪里还错呢？？？

————————————————————————



HTTP 500 - 内部服务器错误
Internet Explorer

哦。。。啊哈，不好意思。。。。

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/shop/111.asp，行28

Dim FClsStr=""
-----------^

辛苦你了。。。。。。

Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/shop/111.asp，行30

FClsStr=getFileCls('http://www.test.com/test.mpg')
-------------------^

。。。。。。。。。。。。。。。。。。。。。。。。。。。。看来比较难哟。。。。。