Make_musicplay.asp 盘锦DJ舞曲网商业版源码程序 - ASP源码程序

www.gusucode.com > 盘锦DJ舞曲网商业版源码程序 > admin/Make_musicplay.asp
    <!--#include file="../config.Asp"-->
<!--#include file="loginOK.asp"-->
<%pagename="make_musiclist"%>
<%
id=request.QueryString("id")
shengchengid="id"&id&"play"
shengchengid=md5(shengchengid)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("SELECT * FROM Musiclist where ID="&ID)
rs("musicname")=musicname
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
FILENAME="../music_play/"&id&".Htm"
rs.close
%>
<html><head><title>生成播放页面</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<p>&nbsp;</p>
<table border="0" cellspacing="0" align="center" width="80%" cellpadding="0">
  <tr>
    <td align="center"><%
rs.open ("select play from mb"),conn,1,1
pencat=rs("play")
rs.close
'################ 读标题开始 ################
  set rs=conn.execute("SELECT * FROM Musiclist where ID="&ID)
   if rs.eof and rs.bof then 
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
		else
		MusicName=rs("MusicName")
end if
rs.close
pencat=replace(pencat,"play_3",play_3)
'################ 读主题 开始 ################
set rs=server.createobject("adodb.recordset")
sql="select server.serverurl as serverurl,musiclist.musicpath as musicpath,musiclist.hits as hits,musiclist.MusicName as MusicName, musiclist.id as id from server,musiclist where musiclist.ID="&request("id")
sql=sql&"and server.serverid=musiclist.serverid"
rs.open sql,conn,1,3
rm=rs("serverurl")&rs("musicpath")
rs("hits")=rs("hits")+1
rs.update
pencat= Replace(pencat, "{Id}", id)
pencat= Replace(pencat, "{Musicname}", MusicName)
pencat= Replace(pencat, "{rm}", rm)
rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"play_2",play_2)
'################ 读结束 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(FILENAME))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
%>
生成<%=Singer%> 歌曲“<%=musicname%>”文件完成，<a target="_blank" href="<%=FILENAME%>">点此浏览<%=FILENAME%></a>
</td>
  </tr>
</table></body></html>