www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/play_all_1.asp

    <!--#include file="const.asp"-->

<title>播放器页面生成</title>
<%
if onlyindex<>"Yes" then
response.write "<br><font size='2'>正在为您生成 ./p/***.html 播放器页面文件！</font><br><br>"
end if
%>
<%
set fso=server.createobject("Scripting.FileSystemObject")

if onlyindex="index" then
	response.end
end if
response.write "<div style='position:relative;visibility:visible'>" 
response.write "<div style='position:absolute;visibility:visible;top:0px;left:0px;z-index:1'></div>"
if not fso.folderexists(server.mappath("../p")) then
	fso.createfolder(server.mappath("../p"))
end if
Set Rs = server.createobject("adodb.recordset")
	id=request("id")
	sql="select * from MusicList where id="&id
	rs.open sql,conn,1,1                  
set wma_s=fso.opentextfile(server.mappath("../mb/mb_djplay_wmv.Html"),1)
wma_html=wma_s.readall()
wma_s.close
set flash_s=fso.opentextfile(server.mappath("../mb/mb_djplay_flash.Html"),1)
flash_html=flash_s.readall()
flash_s.close

set LX_s=fso.opentextfile(server.mappath("../mb/mb_djplay_LX.Html"),1)
LX_html=LX_s.readall()
LX_s.close

set mtv_s=fso.opentextfile(server.mappath("../mb/mb_djplay_mtv.Html"),1)
mtv_html=mtv_s.readall()
mtv_s.close
set rm_s=fso.opentextfile(server.mappath("../mb/mb_djplay_rm.Html"),1)
rm_html=rm_s.readall()
rm_s.close
dim counter
counter=0
do while not rs.eof
	dim aaa,bbb
	aaa=instrrev(rs("wma"),".")
	bbb=mid(rs("wma"),aaa+1,len(rs("wma"))-aaa)
	if Lcase(bbb)="wma" or Lcase("bbb")="asx" or Lcase("bbb")="asf" then
		str=wma_html
	elseif Lcase(bbb)="swf" then
	    str=flash_html
	elseif Lcase(bbb)="wmv" or Lcase(bbb)="asf" then
	    str=mtv_html
	else
		str=ram_html
	end if
	set player_t=fso.opentextfile(server.mappath("../p/" & Rs("Id") & ".Html"))
		dim s1,s2,s_musicname
		s1=instr(rs("musicname"),"(")
		s2=instr(rs("musicname"),")")
		if s1>1 and s2>s1 then
			s_musicname=mid(rs("musicname"),1,s1-1)
			s_musicname=replace(s_musicname,".","")
		else
			s_musicname=rs("musicname")
		end if
                str=replace(str,"$id",rs("id"))
		str=replace(str,"$s_musicname",s_musicname)
		str=replace(str,"$musicname",rs("musicname"))
		str=replace(str,"$str1",mid(rs("wma"),1,4))
		str=replace(str,"$str2",mid(rs("wma"),5,len(rs("wma"))-4))
		str=replace(str,"$dizhi",rs("ListenUrl"))
                str=replace(str,"$singer",rs("singer"))
                str=replace(str,"$dateandtime",rs("dateandtime"))
		player_t.writeline str
	player_t.close
	counter=counter+1
	response.write "<div style='background-color:white;position:absolute;visibility:visible;top:0px;left:0px;z-index:"&counter&"'><font size='2'>完成页面数 <font color='#008000' size='2'>[ " & counter & " ]</font> 个</font></div>" & vbCrLf
	rs.movenext
loop
rs.close
response.write "<div style='background-color:white;position:absolute;visibility:visible;top:0px;left:0px;z-index:"&counter&"'><font size='2'>总共生成 [ <font size='2' color='#FF9900'>" & counter & " </font>] 个HtmL页面</font></div></div>" & vbCrLf
response.write " "

response.write "<br><br><font size='2' color='#FF0000'>恭喜！html文件已经全部生成成功!</font>&nbsp;&nbsp;<a href='javascript:history.back(1)'>返回</a><Script>document.musicname=""提示您 - 文件已经全部生成完毕"";</Script>"
%><SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT></SCRIPT>

<%
Conn.Close
Set Conn=Nothing
Set fso=nothing
%>