<!--#include file="conn.Asp"-->
<!--#include file="function.Asp"-->
<!--#include file="../inc/config_list.Asp"-->
<!--#include file="../inc/md5.asp"-->
<%CheckAdmin3%>
<%
'===========请保留版权信息,如果去除，将不提供相关服务==============
' 888网音乐系统 V8.1 版
' 管方网址：www.888wang.com
' 技术支持: QQ:56566918
' 客服：见www.888wang.com网站的客服QQ
' 电话:15918529718
'==================================================================
%>
<%
musicid=request.QueryString("jim")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>歌词生成主页面</title>
<style>
td{font-size:9pt;line-height:160%} 
body{font-size:9pt;line-height:160%} 

a:link       { color: #0033CC; text-decoration: none }
a:visited    { color: #0033CC; text-decoration: none }
a:active     { color: #FF0000; text-decoration: none }
a:hover      { color: #000000; text-decoration: underline}
</style>
</head>
<body>
<%
'################ 读取主体 开始 ################
	set rs=server.createobject("adodb.recordset")
		sql="select ID,MusicName,Singer,AddWordsUser,SongWords,shenhe,lockwords from musiclist where ID="+cstr(musicid)+""
rs.open sql,conn,1,1
if rs.eof then
	errmsg=errmsg+"参数错误，请输入正确的参数"
	call error()
        Response.End 
        else 
musicname=musicname&""&rs("musicname")&""
singer=singer&""&rs("singer")&""
AddWordsUser=AddWordsUser&""&rs("AddWordsUser")&""
shenhe=shenhe&""&rs("shenhe")&""
lockwords=lockwords&""&rs("lockwords")&""
songwords=songwords&""&rs("songwords")&""
id=id&""&rs("id")&""

	if songwords = "" or songwords =null then
	
		songwords="<center><p><br>没有此歌词<p><a href=http://mp3.baidu.com/m?f=ms&tn=baidump3lyric&ct=150994944&lf=2&rn=10&word="&musicname&"+"&singer&"&lm=-1 target=_blank>到百度搜索此歌词</a><p><center>"
		if LockWords=true then
		songwords=songwords&"(已锁定此歌词)"
			
		else
		songwords=songwords&" <input type=button name=addword onClick=window.open('../user/AddWord.asp?id="&musicid&"','_self','') value=我来添加/修改歌词>"
		 
		 end if
	end if
	'http://mp3.baidu.com/m?f=ms&tn=baidump3lyric&ct=150994944&lf=2&rn=10&word=一生有你+水木年华&lm=-1
	if shenhe=false then
		AddUserShow="感谢网友: "&AddWordsUser&" 提供歌词"
	else
		AddUserShow=""
	end if
end if
rs.close
%>
<%
'################ 文件释放 开始 ################
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set type_d = fso.opentextfile(server.mappath("../mb/gc_mb.asp"),1,True)
pencat= type_d.ReadAll

'################ 以下是公共的统计，站点地址，名称，关键词等 ###############

pencat=replace(pencat,"{webname}",webname)
pencat=replace(pencat,"{weburl}",weburl)
pencat=replace(pencat,"{Adminqq}",Adminqq)
pencat=replace(pencat,"{AdminEmail}",AdminEmail)
pencat=replace(pencat,"{keywords}",keywords)
pencat=replace(pencat,"{Descriptions}",Descriptions)
pencat=replace(pencat,"{record}",record)
pencat=replace(pencat,"{Copyright}",Copyright)

pencat=replace(pencat,"Music_Name",musicname)
pencat=replace(pencat,"Music_Singer",singer)
pencat=replace(pencat,"Music_geci",songwords)
pencat=replace(pencat,"Music_AddUserShow",AddUserShow)

pencat=replace(pencat,"Music_id",id)

urlString=""&md5(""&id&"play")&"_"&id&""

pencat=replace(pencat,"Play_Url",urlString)


'################ 以下是歌手分类 #888wang.com音乐网###############


i=0
MaxList=15
	set rs=server.createobject("adodb.recordset")
		sql="SELECT * FROM Sclass"
rs.open sql,conn,1,1
'set rs=conn.execute("SELECT * FROM Sclass order by Sclassid ASC")
do while not rs.eof
i=i+1
fenlei=fenlei&"<LI><A href=../index/"&rs("Sclassid")&".Html target=_self>"&replace(replace(replace(rs("SClass"),"手",""),"乐队",""),"部歌","部")&"</A></LI>"
if i>=MaxList then exit do
rs.movenext
loop
rs.close
pencat=replace(pencat,"{fenlei}",fenlei)
'=========================取得模板文件 #888网音乐=================================
Set type_x = fso.CreateTextFile(server.mappath("../gc/"&musicid&".html"))
type_x.WriteLine pencat
set fso = nothing
type_d.close
type_x.close
'************** 生成HTML页 结束 ***************
set rs=nothing
conn.close
set conn=nothing
%>
<font color="#FF0000">·</font><font color="#FF0000">生成<%=musicname%>HTML文件完成</font>

</body></html>





