songedit.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 73 行

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<!-- #include file="../Inc/Head.asp" -->
<%
   Song_Id=request("Song_Id")
   set rs=server.createobject("adodb.recordset")
   Sql="select * from song where Song_Id="&Song_Id
   rs.open sql,conn,1,1
 
%>
<script Language="JavaScript">
function Form_Validator(theForm) 
{ 
	
	if (theForm.Song_Name.value == "") 
	{ 
		alert("歌曲名称必须填写"); 
		theForm.Song_Name.focus(); 
		return (false); 
	} 


	return (true); 
} 
</script> 

 
<table width="60%" border="0" align="center" cellpadding="2" cellspacing="1"  bgcolor="#ffffff">
  <form method="POST" action="Songsave.asp?action=edit&Song_Id=<%=Song_Id%>" onsubmit="return Form_Validator(this)">
    <tr> 
      <td align="right" width="17%">歌 名：</td>
      <td> <input type="text" name="Song_Name" size="20" class="smallinput" maxlength="50" value="<%=rs("Song_Name")%>"> 
      </td>
    </tr>
    <tr> 
      <td align="right" width="17%">演 唱：</td>
      <td colspan="3"> <input type="text" name="Song_singer" value="<%=rs("singer")%>" size="10"> 
      </td>
    </tr>
    <tr> 
      <td colspan="2" align="right"><div align="center">
          <script src=../Inc/eshopcode.js></script>
          <!--#include file=../Inc/Ubb.inc -->
        </div></td>
    </tr>
    <tr> 
      <td width="17%" align="right"><div align="left">试听地址： (<font color="#FF0000">支持UBB</font>)</div></td>
      <td> <textarea name="content" cols="50" rows="4" id="content"><%=rs("rm")%></textarea> 
      </td>
    </tr>
    <tr> 
      <td align="right" width="17%">MP3下载：</td>
      <td> <input type="text" name="Song_mp3" value="<%=rs("mp3")%>" size="50"> 
      </td>
    </tr>
    <tr> 
      <td align="right" width="17%">MTV地址：</td>
      <td> <input type="text" name="Song_mv" value="<%=rs("mv")%>" size="50"> 
      </td>
    </tr>
    <tr> 
      <td align="right" width="17%">SWF地址：</td>
      <td> <input type="text" name="Song_swf" value="<%=rs("swf")%>" size="50"> 
      </td>
    </tr>
    <tr > 
      <td colspan=2 align=center> <input type="submit" value=" 确 定 "> </td>
    </tr>
  </form>
</table> 
<!-- #include file="../Inc/Foot.asp" -->