<%@ LANGUAGE=VBScript.Encode%>
<% 
Response.Expires=0
zhbg_id=Session("zhbg_id")
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"

If zhbg_grade<9 Then
	Response.Write "<script language=JavaScript>{alert('提示:不能添加歌曲！需要九级以上管理级!');history.go(-1);}</script>"
	Response.End
end if
songname=request.form("songname")
url=request.form("url")

if songname="" or url="" or url="http://" then
	Response.Write "<script language=JavaScript>{alert('歌曲名或歌曲路径不能为空，请返回重新填写！');history.go(-1);}</script>"
	Response.End
end if
%><!--#include file="data.asp"--><%
sql="select 歌名 from swf where 歌名='"&songname&"'"
Set Rs=connt.Execute(sql)
If not(Rs.Bof or Rs.Eof) Then
	Response.Write "<script language=JavaScript>{alert('该歌曲已存在，请不要重复添加！');history.go(-1);}</script>"
	Response.End
end if

connt.execute "insert into swf(歌名,路径) values ('"&songname&"','"&url&"')"


%>

<html>
<head>
<title>添加 mtv</title>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<link rel="stylesheet" href="../readonly/STYLE.CSS">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="../<%=chatimage%>" bgproperties="fixed" text="#FFFFFF">
<div align="center"><font color="#ff6600" style="font-size:12pt">添加 MTV</font></div>
<hr size=1 color=ff6600><br>
<table border="0" width="100%" style=font-size:10pt>
<tr><td>添加歌曲成功！</td></tr>

</table>
</form><center>
<a href=addswf.asp>返回</a>
<br><hr size=1 color=ff6600><br>
</center>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>