dim x
x=1
dim y
y=Request.Form("upcount")+1
do while x < y '循环写播放文件
if Request.Form("file" & x)="" then
mytextfile.writeline("<entry>")
b="<ref href="& chr(34) & Request.Form("file" & x) & chr(34) & "/>"
mytextfile.writeline(b)
mytextfile.writeline("</entry>")
end if
x=x+1 '循环写播放文件结束
loop
mytextfile.writeline("</asx>")
'''''''''''''''''''''''''''''''''''''''''''''''''写文件结束
參考答案:取得文本框内容后判断 right(内容,4) ...
如果不是 .mp3 或者 .wma 就报错 ...
