Admin_musiclist_1.asp 要听音乐网完美修正版 1.0源码程序 - ASP源码程序

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/Admin_musiclist_1.asp
    <!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_info(0)%></title>
<link href="css.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<script src="../js/checkform.js"></script>
</head>
<body text=#000000 leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#E5E5E5">
<br>
<%
Dim Action,ID,SpecialName,SpecialRead,ClassID,strClass,Previewimg
If Not CheckAdmin(ScriptName) Then
    strMsg="<Li>您没有管理本页面的权限。"
    Call Msg()
Else
    SELECT Case Request("Action")
        Case "edit"
            Call Edit()
		Case "edit_save"
            Call Edit_Save()
		Case "SetNoGood"
		    Call SetNoGood()
		Case "SetIsGood"
		    Call SetIsGood()
        Case "del"
            Call Del()
		Case "SetNoTj"
            Call SetNoTj()
		Case "SetIsTj"
            Call SetIsTj()
        Case Else
            Call Edit()
    End Select
End If

DataClose()

Sub Edit()

    ID=CheckStr(Request.QueryString("ID"))
	SQL="SELECT * FROM "& TableClass &" WHERE ID="&ID
	Set Rs=Conn.Execute(SQL)
	'Set Rs=Nothing
%>
<form name="myform" method="post" action="?">
      <table border="1" width="99%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
        <tr>
          <td width="100%" height="20" bgcolor="#96C5DE" align=center><font color="white"><b>修 改 歌 曲</b></font></td>
        </tr>
		<tr>
          <td width="100%" height="25" align=left>
                <div align="center">
                  <table border="0" cellpadding="0" cellspacing="0" width="100%">
                    <tr>
                      <td width="15%" height="25" align="right">歌曲名称：</td>
                      <td width="85%"><input type="text" name="name" size="20" value="<%=rs("MusicName")%>"></td>
                    </tr>
                    <tr>
                      <td width="15%" height="25" align="right">试听地址：</td>
                      <td width="85%"><input type="text" name="wma" value="<%=rs("wma")%>" size="20"></td>
                    </tr>
                    <tr>
                      <td width="15%" height="25" align="right">歌词：</td>
                      <td width="85%"><TEXTAREA name="word" rows=10 cols="60"><%=rs("songwords")%></TEXTAREA></td>
                    </tr>

                  </table>
                </div>
		  </td>
        </tr>
        <tr>
          <td width="100%" height="22" bgcolor="A4CEE4" align=center>
			  <input name="Action" type="hidden" id="Action" value="edit_save">
			  <input name="GoUrl" type="hidden" id="GoUrl" value="<%=Url%>">
			  <input name="ID" type="hidden" id="ID" value="<%=ID%>">
              <input type="submit" name="Submit" value="提交" class="button"> <input type="reSet" name="Submit2" value="重置" class="button"></td>
        </tr>
       </form>
      </table>
</form>
      
<%
End Sub

Sub Edit_Save()
    ID=CheckStr(Request.Form("ID"))
	set rs=server.CreateObject("ADODB.RecordSet")
	sql="SELECT * FROM "& TableClass &" WHERE ID="&ID 
	rs.open sql,conn,1,3
	rs("MusicName")=Request.Form("name")
	rs("wma")=Request.Form("wma")
  rs("songwords")=Request.Form("word")
  rs.update
	rs.close
	Set Rs=Nothing
	Response.Redirect Request.Form("GoUrl")
End Sub

Sub Del()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="DELETE FROM "& TableClass &" WHERE ID="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub

Sub SetIsGood()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="UPDATE "& TableClass &" SET IsGood=1 WHERE ID="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub

Sub SetNoGood()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="UPDATE "& TableClass &" SET IsGood=0 WHERE ID="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub

Sub SetIsTj()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="UPDATE "& TableClass &" SET Tj=1 WHERE ID="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub

Sub SetNoTj()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="UPDATE "& TableClass &" SET Tj=0 WHERE ID="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub
%>