<!--#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)
If JaCheckIsLog <> "yes" Then
Response.Write "<script language=javascript>alert('你没有权限观看该页面!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
Dim mustr,musicID
Dim spe,speID,speNA,id
id = JaZ.JaKillStr(Request.QueryString("ID"))
musicID = JaZ.JaKillStr(Request.QueryString("musicID"))
mustr = JaZ.GetBlogRe("*","JaMusic","ID="&id&" And JaUid='"&B&"' ")
spe = JaZ.GetBlogRe("ID,SpecialName","JaMusicSpecial","ID="&mustr(1,0)&" and JaUid='"&B&"' ")
If mustr(1,0) = 0 Then
speID = 0
speNA = "默认专题"
Else
speID = spe(0,0)
speNA = spe(1,0)
End if
%>
<html>
<head>
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JaZone</title>
<link type="text/css" rel="stylesheet" href="Style/<%=Trim(C(5))%>/css.css">
</head>
<script>
function CheckJaUser() {
         if (document.form1.musicname.value=="")
           {
           alert("歌曲名不能为空!");
           document.form1.musicname.focus();
           return false;
           }
         if (document.form1.na.value=="")
           {
           alert("歌手名不能为空!");
           document.form1.na.focus();
           return false;
           }
         if (document.form1.url.value=="")
           {
           alert("URL不能为空!");
           document.form1.url.focus();
           return false;
           }
        if (document.form1.star.value=="0")
           {
           alert("请选择星级!");
           document.form1.star.focus();
           return false;
           }
         if (document.form1.musicmemo.value=="")
           {
           alert("专题简介不能为空!");
           document.form1.musicmemo.focus();
           return false;
           }
}
</script>
<body leftMargin=2 topMargin=0 marginheight="0" marginwidth="0" style="background-color:transparent;<%=cur%>" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="23" colspan="3" background="Style/<%=Trim(C(5))%>/titleback.gif"><span class="classs"><img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp;<b>添加专题</b></span></td>
  </tr>
  <tr> 
    <td width="845" height="2"></td>
    <td width="29"></td>
    <td width="131"></td>
  </tr>
</table>
<BR>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center">
        <form name="form1" method="post" action="MusicEdit2.Asp?JaUid=<%=B%>&musicID=<%=musicID%>&ID=<%=mustr(0,0)%>" onSubmit="return CheckJaUser();">
          <table width="90%" border="0" cellspacing="2" cellpadding="0">
            <tr> 
              <td width="17%">歌曲名：</td>
              <td width="83%"><input name="musicname" type="text" id="musicname" value="<%=Trim(mustr(3,0))%>" maxlength="16">
                * </td>
            </tr>
            <tr> 
              <td>歌手名：</td>
              <td width="83%"><input name="na" type="text" id="na" value="<%=Trim(mustr(4,0))%>" maxlength="16">
                *</td>
            </tr>
            <tr> 
              <td>添加URL：</td>
              <td width="83%"><input name="url" type="text" id="url" value="<%=Trim(mustr(5,0))%>" size="35" maxlength="50">
                *</td>
            </tr>
            <tr> 
              <td>专题：</td>
              <td width="83%"><select name="zhuang">
                  <option value="<%=speID%>" selected ><%=Trim(speNa)%></option>
                    <option value="0">默认专题</option>
<%
Dim ss
Set ss=Conn.Execute("Select ID,SpecialName From [JaMusicSpecial] Where JaUid='"&B&"' ")
Do While Not ss.Eof
Response.Write "<option value='"& ss(0) &"'>"& Trim(ss(1)) &"</option>"
ss.MoveNext
Loop
ss.Close
%>
                </select>
                *</td>
            </tr>
            <tr> 
              <td>星级：</td>
              <td width="83%"><select name="star">
                  <option value="<%=mustr(6,0)%>" selected><%=Star(mustr(6,0))%></option>
                  <option value="1">一星级</option>
                  <option value="2">二星级</option>
                  <option value="3">三星级</option>
                  <option value="4">四星级</option>
                  <option value="5">五星级</option>
                </select>
                *</td>
            </tr>
            <tr> 
              <td>简介：</td>
              <td><textarea name="musicmemo" cols="35" rows="5" id="musicmemo"><%=mustr(7,0)%></textarea></td>
            </tr>
            <tr> 
              <td colspan="2"> <div align="center"><br>
                  <input name="imageField" type="image" src="Qz/b.gif" width="1" height="1" border="0" class="submit" onClick="return checkAndSub()">
                  <input name="imageField" type="image" src="Qz/b.gif" width="1" height="1" border="0" class="reset" onClick="javascript:form1.reset();return false;">
                </div></td>
            </tr>
          </table>
        </form>
      </div></td>
  </tr>
</table>
</body>
</html>
<%
Function Star(id)
Select Case id
       Case 1
           Star="一星级"
       Case 2
           Star="二星级"
       Case 3
           Star="三星级"
       Case 4
           Star="四星级"
       Case 5
           Star="五星级"
End Select
End Function
%>
