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

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

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

StrReverse用字符串反转函数外加Mid函数
原理就是比如abc.xx.com/video/time.mpeg
反转后就是gepm.emit/oediv/moc.xx.cba
接下来第一个/之前就是文件名
取得后取得文件类型gepm
再执行StrReverse后得到文件类型mpeg
如
Function getFileCls(FileURL)
Dim RevStr
Dim i
Dim FileName
Dim FileClsAry
FileName=""
RevStr=StrReverse(FileURL)
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<>"" Then
FileClsAry=Split(FileName,".")
getFileCls=StrReverse(FileClsAry(0))
Else
getFileCls=""
End IF
End Function

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

是这样吗？？？

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

<%
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编辑过]

'这个是一个函数直接调用即可
Function getFileCls(FileURL)
Dim RevStr
Dim i
Dim FileName
Dim FileClsAry
FileName=""
RevStr=StrReverse(FileURL)
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<>"" Then
FileClsAry=Split(FileName,".")
IF IsArray(FileClsAry) Then
getFileCls=StrReverse(FileClsAry(0))
Else
getFileCls=""
End IF
Else
getFileCls=""
End IF
End Function
'以下为调用代码
Dim FClsStr=""
FClsStr=getFileCls('http://www.test.com/test.mpg')
IF FClsStr<>"" Then
Response.write "文件类型为"&FClsStr
Else
Response.write "文件地址有错误"
End IF

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

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

把错误信息的网页内容贴出来。

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



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