
<%
'读取网站配置信息,888wang.com音乐网站系统，QQ：56566918
	set rs = server.CreateObject("ADODB.RecordSEt")
	sql="select top 1 * from config"
	rs.open sql,conn,1,1
	if not rs.EOF then
		WebName = rs("WebName")
		WebUrl = rs("WebUrl")
		Adminqq = rs("Adminqq")
		AdminEmail = rs("AdminEmail")
		Keywords = rs("Keywords")
		Descriptions = rs("Descriptions")
		Record = rs("Record")
		Copyright = rs("Copyright")
		CountCode = rs("CountCode")
	end if
	rs.close
	'response.write Copyright
	set rs=nothing
	
	'播放页
	function urlPlay(id)
		urlPlay="/play/"&id&".html"
	end function
	
	
	function urlNews(id)
		urlNews="/news/news.asp?id="&id
	end function

%>





