<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If 
%>

<%
Dim JaCheckIsLog
JaCheckIsLog = JaZ.JaIsUser(B)
Dim id,musicID
id = JaZ.JaKillStr(Request.QueryString("ID"))
musicID = JaZ.JaKillStr(Request.QueryString("musicID"))
If JaCheckIsLog = "yes" Then

Dim Jatitle,Jana,Jahassign,Jacontent,Jaurl,Jati
Dim JaInSQL
Dim JaVicNum,JaInwWhe
JaVicNum = SESSION("VicNum")
Jatitle = JaZ.JaKillStr(Trim(Request.Form("musicname")))
Jana = JaZ.JaKillStr(Trim(Request.Form("na")))
Jaurl = JaZ.JaKillStr(Trim(Request.Form("url")))
Jahassign = Trim(Request.Form("star"))
Jati = Trim(Request.Form("zhuang"))
Jacontent = JaZ.JaKillStr(Trim(Request.Form("musicmemo")))

JaInSQL = "JaMusicName='"&Jatitle&"',JaSinger='"&Jana&"',JaUrl='"&Jaurl&"',JaStar="&Jahassign&",JaMemo='"&Jacontent&"' "
JaInwWhe = "JaUid='"&JaVicNum&"' and ID="&id&" "
JaZ.JaVicBlog JaInSQL,"JaMusic",JaInwWhe

Response.Write "<script language=javascript>alert('修改成功!');"
Response.Write "window.document.location.href='MusicDoc.asp?JaUid="&JaVicNum&"&musicID="&musicID&"';</script>"

Else
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>
