如何用ASP读取ASF流文件中的摘要信息？

[大猫钓鱼]

有没有大虾知道如何用ASP读取ASF流文件中的摘要信息？就如标题、备注、音频、视频信息之类。

[大猫钓鱼]

兄弟们，帮我顶顶呀！这搞不好我就要跟经理翻脸了。他奶奶的

[hhjjhjhj]

看看这个能不能帮你
http://community.csdn.net/Expert/topic/3276/3276922.xml?temp=.3652307

[大猫钓鱼]

我先看看先，呵呵，终于有大虾露面了。。。

[大猫钓鱼]

这样做是不是不可能？

[goodstuday]

up 应该可以做到的
学习！

[大猫钓鱼]

闻所未闻呀！经理让做的，他自己不会，晕？

[valu]

考验你的时刻来了。。。。

[大猫钓鱼]

那不是要写成DLL文件再在ASP里调用?呵呵,不太会...

[hhjjhjhj]

不用。
Set shl = New Shell
改成 Set shl =server.createobject("Shell.application")

[heng_net]

我刚好也遇到这样一个问题。
QQ：45284678
大家聊聊！

[大猫钓鱼]

to:hhjjhjhj: 首先谢谢你，heng_net告诉我后，已经在VB里实现了显示属性功能，现在ASP里是不是写的代码和VB一样呢，首先Microsoft Shell Controls And Automation这个应用方法是怎么样的呢？

[大猫钓鱼]

如果我在ASP里不引用Microsoft Shell Controls And Automation或不能引用，那还是得写成dll吧？要不。。。哦，我再试试！

[hhjjhjhj]

呵呵，学ASP的应该先学VB
<%
response.write getfilePTY("D:\web\test\aa.gif")


Function getfilePTY(strFl )
Dim fso
Dim fl
Dim pth
Dim flname

Dim shl
Dim shfd
Dim s
Dim i

Set fso = server.CreateObject("scripting.filesystemobject")
Set fl = fso.GetFile(strFl)
pth = fl.ParentFolder.Path
flname = fl.Name

Set shl =server.CreateObject("Shell.application")
Set shfd = shl.NameSpace(pth)

For i = 0 To 33
If shfd.GetDetailsOf(0, i) <> "" Or shfd.GetDetailsOf(shfd.Items.Item(flname), i) <> "" Then
s = s & shfd.GetDetailsOf(0, i) & ": " & shfd.GetDetailsOf(shfd.Items.Item(flname), i) & "<br>"
End If
Next

getfilePTY = s
End Function
%>

[大猫钓鱼]

hoho问题基本解决了，到时候有不懂的再问hhjjhjhj(大头)兄啊，我的头也很大耶～～～ok，结帖！