asp必须输入内容文本框

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 就报错 ...