用多了有问题，自己改吧。当前目录有可写权限！！！

<%@LANGUAGE="VBSCRIPT"%>

<%
if Request.Form("loadno")="yes" then                    '判斷是否表單提交

set myfileobject=server.createobject("scripting.filesystemobject")
       ' myfilepath=server.mappath("vod.asx")             '設寫文件路徑與文件名
myfilepath=server.mappath("vod.asx")
set mytextfile=myfileobject.createtextfile(myfilepath)

    ''''''''''''''''''''''''''''''''''''''      開始寫文件
     a="<asx version = " & chr(34) & "3.0" & chr(34) & ">"
    mytextfile.writeline(a)
    mytextfile.writeline(" <title>浏览器</title>")
dim x
   x=1
        dim y
        y=Request.Form("upcount")+1
        do while x < y                                             '循环寫播放文件
       if Request.Form("file" & x)<

[1] [2] [3] [4] 下一页

在google里搜索更多生成一个asx,或m3u 文件

	Web www.51ec.org