<!--#Include File="Connection.Asp"-->
<!--#Include File="Function.Asp"-->
<!--#Include File="JaClog.Asp"-->
<%
If Request.QueryString("action")="do" Then
Dim SqlA,Aid,TIt,T,H,R,U,S,M
Aid = Cint(Trim(Request.Form("id")))
Tit = JaKillStr(Trim(Request.Form("Tit")))
T = JaKillStr(Trim(Request.Form("T")))
H = JaKillStr(Trim(Request.Form("H")))
U = JaKillStr(Trim(Request.Form("U")))
S = JaKillStr(Trim(Request.Form("S")))
M = JaKillStr(Trim(Request.Form("M")))

SqlA = "Update [JaMusic] Set JaUid='"&S&"',JaMusicName='"&Tit&"',JaSinger='"&T&"',JaUrl='"&H&"',JaStar="&U&",JaMemo='"&M&"' WHERE ID="&Aid&""

Conn.ExeCute(SqlA)
Response.Write "<script language=javascript>alert('修改音乐成功!');"
  Response.Write "window.document.location.href='MusicEdit2.Asp?musicID="&Aid&"';</script>"
  Response.End()
End If
Dim musicID,Rs
musicID = Trim(Request.QueryString("musicID"))
Set Rs = Conn.ExeCute("SELECT * FROM [JaMusic] WHERE ID = "&musicID&"")
If Not Rs.Eof Then
%>
<HTML><HEAD><TITLE>无标题文档</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="JaImg/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY>
<FORM name=form action="?action=do" method=post>
<TABLE class=itemhead height=25 cellSpacing=0 cellPadding=0 width="100%" 
align=center border=0>
  <TBODY>
  <TR>
    <TD class=itemheadtd vAlign=bottom bgColor=#bcdbfe>
      <TABLE height=18 cellSpacing=0 cellPadding=0 width=250 border=0>
            <TBODY>
        <TR>
                <TD class=item>音乐信息 ID:<%=musicID%></TD>
              </TR></TBODY></TABLE>
        </TD>
      </TR></TBODY></TABLE>
<TABLE height=8 cellSpacing=0 cellPadding=0 width=100 border=0>
  <TBODY>
  <TR>
    <TD></TD></TR></TBODY></TABLE>
  <TABLE cellSpacing=1 cellPadding=3 width="100%" align=center bgColor=#164481 
border=0>
    <TBODY>
      <TR> 
        <TD align=middle width="19%" bgColor=#daebfe height=12><STRONG> 音 乐 名 
          称：</STRONG></TD>
        <TD width="81%" bgColor=#ffffff><INPUT 
      name=Tit id="Tit" value=<%=Rs(3)%> size="40" maxLength=50> <INPUT 
       type=hidden name=id id="id" value="<%=musicID%>" size="40" maxLength=50></TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=5><strong>音 乐 歌 手：</strong></TD>
        <TD width="81%" bgColor=#ffffff><input name="T" type="text" id="T" value="<%=Trim(Rs(4))%>" maxlength="50"></TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=6><strong>音 乐 连 接：</strong></TD>
        <TD width="81%" bgColor=#ffffff><input name="H" type="text" id="H" value="<%=Rs(5)%>" size="40" maxlength="100"></TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=25><strong>音 乐 星 级：</strong></TD>
        <TD bgColor=#e7ebf1> <INPUT 
      name=U id="U" value="<%=Rs(6)%>" maxLength=10> </TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=25><strong>发 表 用 户：</strong></TD>
        <TD bgColor=#ffffff><INPUT 
      name=S id="S" value=<%=Rs(2)%> maxLength=50>
        </TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=25><STRONG>备 注：</STRONG></TD>
        <TD bgColor=#e7ebf1><SPAN class=font1 id=PreAddress></SPAN> <textarea name="M" cols="50" rows="10" id="M"><%=Trim(Rs(7))%></textarea> 
        </TD>
      </TR>
      <TR> 
        <TD align=middle bgColor=#daebfe height=35>&nbsp;</TD>
        <TD bgColor=#ffffff colSpan=2><INPUT class=button1 type=submit value=确认无误，我要修改 name=Submit23></TD>
      </TR>
    </TBODY>
  </TABLE>
</FORM>
</BODY></HTML>
<%
End If
Rs.Close
Set Rs = Nothing
%>