<!--#Include File="Connection.Asp"-->
 
<%
Dim JaBlog,JaDelSQL
Dim JaCheckIsLog,B
Set JaBlog = new q_zone
B = JaBlog.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
Dim musicID,id
id = JaBlog.JaKillStr(Request.QueryString("ID"))
musicID = JaBlog.JaKillStr(Request.QueryString("musicID"))

JaCheckIsLog = JaBlog.JaIsUser(B)
If JaCheckIsLog <> "yes" Then
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
JaDelSQL = "JaUid='"&SESSION("VicNum")&"' and ID="&id&" "
JaBlog.JaDelete "JaMusic",JaDelSQL

Response.Write "<script language=javascript>alert('删除成功!');"
Response.Write "window.document.location.href='MusicDoc.asp?JaUid="&SESSION("VicNum")&"&musicID="&musicID&"';</script>"
End if
Set JaBlog=Nothing
%>
