如何判断数据库里的链接文件的类型（mpeg wma 等等）？？？

爱你爱到西元

<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
%>

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


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

爱虎老油♂

'这个是一个函数直接调用即可
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

メ阿ǒ瑞メ

看了一遍原文，不懂；又看了一遍原文，还是不懂。再看了一遍原文，实在不懂。最后看了一遍回帖，懂了我为什么不懂……于是我懂了，人有时候要学会放弃。