add_music.asp 枫的记忆个人主页程序源码程序 - ASP源码程序

www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\add_music.asp
    <link href="admin.css" rel="stylesheet" type="text/css">
<%
	if session("level")<>"1" then
		Response.Write("你无权访问此页面！")
		Response.End
	end if	
%>
<!--#INCLUDE FILE="conn.asp"-->
<%
  hidden=trim(request("hidden"))
 
  if hidden="ok" then
  m_type=trim(request("m_type"))
  title=trim(request("title"))
  m_url=trim(request("m_url"))
  m_pic=trim(request("m_pic"))
  content=request("content")
  status=trim(request("status"))
  
  set rs=server.createobject("adodb.recordset")
  sql="select * from music"
  rs.Open sql,conn,1,3
  rs.addnew
  rs("m_type")=m_type
  rs("title")=title
  rs("m_url")=m_url
  rs("m_pic")=m_pic
  rs("content")=content
  rs("status")=status
  rs("add_time")=date()
  rs.update
	if err.number<>0 then
	    Response.Write("<script language=javascript>alert('添加失败，请点击返回');history.back();</script>")
	    Response.End
	else
		Response.Redirect "manage_music.asp"
		Response.End
	end if
  end if
%>

<body bgcolor="#CDD5DE">
<br><br>
<table width="75%" border="0" cellspacing="1" cellpadding="0" align="center" class="tablebody">
  <tr>
    <td><table width="100%" border="0" cellpadding="5" cellspacing="0">
        <tr>
          <th>音 乐 添 加</a></span></th>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="1" cellpadding="8">
	<form name="add_music" method="post" action="add_music.asp">
      <input type="hidden" name="hidden" value="ok">
      <tr bgcolor="#F3F5F8">
        <td width="25%" align="right">类 型：</td>
        <td width="75%"><select name="m_type">
          <option value="MUSIC">MUSIC</option>
          <option value="FLASH">FLASH</option>
          <option value="M T V">M T V</option>
          <option value="MOIVE">MOIVE</option>
          </td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">是 否 显 示：</td>
        <td><input name="status" type="text" id="status" size="4" value="0">　（<font color=red>0</font> 为显示，<font color=red>1</font> 为隐藏） [ 是否显示在主页前台 ]</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">名 称：</td>
        <td><input name="title" type="text" id="title" size="50"></td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">地 址：</td>
        <td><input name="m_url" type="text" id="m_url" size="50" value="http://"></td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">小 图 地 址：</td>
        <td><input name="m_pic" type="text" id="m_pic" size="40">　<input type="button" name="Submit2" value="上 传" onClick="window.open('upload_flash.asp?formname=add_music&editname=m_pic&uppath=upfile&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">　（首页显示图）</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td align="right">简 要 说 明：</td>
        <td><textarea name="content" cols="60" rows="10"></textarea>　（MUSIC不填）</td>
      </tr>
      <tr bgcolor="#F3F5F8">
        <td height="40" colspan="2" align="center"><input type="submit" name="Submit" value="提 交">　
          　　　
          <input type="reset" name="Submit2" value="重 置"></td>
      </tr>
	  </form>
    </table></td>
</table>
</body>
</html>