这个被做了限制功能，求高手帮解答，偶是菜鸟最好是把更改完的全部贴出，谢了！！拜求！！ <!--#include file="../include/www-buyok-com.asp"-->
<script language=javascript src=../include/mouse.js></script> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="manage.css" type="text/css"> </head> <BODY background="../images/admin/back.gif"> <% Set fso = CreateObject("Scripting.FileSystemObject") set music=Fso.OpenTextFile(server.mappath("../music/exobudpl.js")) musiclist=music.readall music.close musiclist=replace(musiclist,"mkList(","") musiclist=replace(musiclist,");","") musiclist=replace(musiclist,chr(34),"") musiclist=replace(musiclist,vbCRLF,"<br>") for i=1 to 10 musiclist=replace(musiclist,"<br><br>","<br>") next musiclist=replace(musiclist,"<br>",vbCRLF) set fso=nothing %> <table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2"> <tr class=backs><td colspan=2 class=td height=18>好歌不断--音乐设置</td></tr> <tr><td width=20% align=right>是否播放音乐 </td><td > <input type="radio" onClick="javascript:alert('提示：您正在使用的版本无此功能。');">播放 <input type="radio" checked>关闭</td></TR> <tr><td width=20% align=right>音乐文件列表 </td><td><TEXTAREA alt="每个网址单独一行<br>如：http://www.buyok.net/music/laoshuaidami.mp3" NAME="musiclist" ROWS=22 style="width=90%;overflow:auto;"> <%response.write musiclist%> </TEXTAREA></td></TR> <tr><td colspan=2 width="568" > <input type="button" onClick="javascript:alert('提示：您正在使用的版本无此功能。');" value="保存设置"> </table> <font color=red>※提示：</font><br><br>每个音乐网址/文件占一行。注意：网址和文件名中不能有中文；<br>如果是网上的音乐，请填写以http://、mms://开头的网址，例如：http://www.buyok.net/music/laoshuaidami.mp3；<br>如果是站内音乐，请将文件上传到music目录，在上面填写文件名，例如：laoshuaidami.mp3；<br>支持.mp3、.wma、.asf、.wmv等格式，不支持.rm、.ram格式。 <% rs.close set rs=nothing %>
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误
缺少对象: ''
/shop/admin/music.asp，行36
[此贴子已经被作者于2005-10-25 22:37:34编辑过]
