musicedit.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

<!--#include file="conn.asp"-->
<!--#include file="cook.asp"-->
<!--#include file="info.asp"-->
<script laguage="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.title.value=="")
    {
      alert("请输入音乐名称！")
      document.form1.title.focus()
      return false
     }
else if(document.form1.author.value=="")
    { 
      alert("没有歌手大名！")
      document.form1.author.focus()
      return false
     }
else if(document.form1.mcurl.value=="")
    { 
      alert("没有输入音乐地址！")
      document.form1.mcurl.focus()
      return false
     }
}

-->
</script>
<%
if request.Form("sub")="sub" then
title=request.Form("title")
author=request.Form("author")
mcsize=request.Form("mcsize")
mcurl=request.Form("mcurl")
id=request.Form("id")

if title="" or author="" or mcurl="" then
   response.Write"<script>alert('音乐内容不能为空！');history.go(-1)</script>"
   response.End()
else
   set rs=server.CreateObject("adodb.recordset")
   sql="select * from music where id="&id
   rs.open sql,conn,3,3
   rs("title")=title
   rs("author")=author
   rs("mcsize")=mcsize
   rs("mcurl")=mcurl
   rs.update
   response.Write"<script>alert('音乐编辑成功！');window.location.href('music.asp')</script>"
   response.End()
end if 
end if

call htmltop

id=cint(request.QueryString("id"))
if id<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from music where id="&id
rs.open sql,conn,1,1
%>
<table width="700" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="TdStyle">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><br>
      <table width="600" border="0" cellpadding="5" cellspacing="1" bgcolor="#C0C0C0">
  <form name="form1" method="post" action="musicedit.asp" onsubmit="return form1_onsubmit()">
          <tr align="center" bgcolor="#E3E3E3"> 
            <td height="30" colspan="2"><B>编 辑 音 乐</B></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="100" height="25" align="right">音乐名称：</td>
            <td width="500"><input name="title" type="text" size="20" value="<%=rs("title")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="25" align="right">歌手大名：</td>
            <td><input name="author" type="text" size="16" value="<%=rs("author")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="25" align="right">音乐大小：</td>
	    <td><input name="mcsize" type="text" size="12" value="<%=rs("mcsize")%>" readonly></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="25" align="right">音乐地址：</td>
            <td><input name="mcurl" type="text" size="40" value="<%=rs("mcurl")%>" readonly></td>
          </tr>
          <tr align="center" bgcolor="#E3E3E3"> 
            <td height="30" colspan="2"> 
              <input type="submit" name="Submit" value=" 提交 ">
        　　　 <input type="hidden" name="sub" value="sub">
		<input type="hidden" name="id" value="<%=id%>">
        <input type="reset" name="Submit2" value=" 重置 "></td>
    </tr></form>
  </table><br>
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if

call htmlend
%>