BVB Source Codes

EXW FLASH web site management system v2.0 Show admin_music.asp Source code

Return Download EXW FLASH web site management system v2.0: download admin_music.asp Source code - Download EXW FLASH web site management system v2.0 Source code - Type:.asp
  1. <!--#include file="../inc/mdb.asp"-->
  2. <%Admin="System"%>
  3. <!--#include file="check.asp"-->
  4. <!--#include file="../inc/config.asp"-->
  5. <!--#include file="../inc/FORMAT.asp"-->
  6. <!--#include file="xmldata/Generatexml.asp"-->
  7. <HTML><HEAD><TITLE>EXW 管理中心——音乐管理</TITLE>
  8. <META http-equiv=Content-Type content="text/html; charset=gb2312">
  9. <LINK href="inc/css.css" type=text/css rel=stylesheet>
  10. <META content="MSHTML 6.00.2800.1126" name=GENERATOR>
  11. </HEAD>
  12. <body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
  13. <%
  14. if session("adminlogin")<>sessionvar then
  15.   Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.top.location.href='index.asp';</script>")
  16.   response.end
  17. else
  18. if request.form("MM_insert") then
  19. '==================http://www.2ey.cn==============================
  20. if request.form("action")="newdj" then
  21. dim djname,djurl
  22. djname=trim(replace(request.form("name"),"'",""))
  23. djuser=trim(replace(request.form("user"),"'",""))
  24. djurl=trim(replace(request.form("url"),"'",""))
  25. if djname="" then
  26.   Response.Write("<script language=javascript>alert('你必须填写歌曲名称!');history.back(1);</script>")
  27.   response.end
  28. end if
  29. if djuser="" then
  30.   Response.Write("<script language=javascript>alert('你必须填写歌手名称!');history.back(1);</script>")
  31.   response.end
  32. end if
  33. if djurl="" then
  34.   Response.Write("<script language=javascript>alert('你必须填写歌曲地址!');history.back(1);</script>")
  35.   response.end
  36. end if
  37. if lcase(right(djurl,4))<>".mp3" then
  38.   Response.Write("<script language=javascript>alert('请上传或连接MP3格式音乐!');history.back(1);</script>")
  39.   response.end
  40. end if
  41. sql="select * from dj"
  42. set rs=server.createobject("adodb.recordset")
  43. rs.open sql,conn,1,3
  44. rs.addnew
  45.   rs("dj_name")=djname
  46.   rs("dj_user")=djuser
  47.   rs("dj_url")=djurl
  48.   rs.update
  49.   rs.close
  50.   ADODB_SaveToFile Musicplayer,"../xml/player.xml","音乐XML数据更新成功"
  51.   response.redirect "admin_music.asp?action=dj"
  52. '==================http://www.2ey.cn==============================
  53. elseif request.form("action")="editdj" then
  54. if request.Form("id")="" then
  55.   Response.Write("<script language=javascript>alert('你必须指定操作的对象!');history.back(1);</script>")
  56.   response.End
  57. else
  58.   if not isInteger(request.form("id")) then
  59.     Response.Write("<script language=javascript>alert('非法的歌曲id参数。');history.back(1);</script>")
  60.     response.End
  61.   end if
  62. end if
  63. djname=trim(replace(request.form("name"),"'",""))
  64. djuser=trim(replace(request.form("user"),"'",""))
  65. djurl=trim(replace(request.form("url"),"'",""))
  66. if djname="" then
  67.   Response.Write("<script language=javascript>alert('你必须填写歌曲名称!');history.back(1);</script>")
  68.   response.End
  69. end if
  70. if djuser="" then
  71.   Response.Write("<script language=javascript>alert('你必须填写歌手名称!');history.back(1);</script>")
  72.   response.End
  73. end if
  74. if djurl="" then
  75.   Response.Write("<script language=javascript>alert('你必须填写歌曲地址!');history.back(1);</script>")
  76.   response.End
  77. end if
  78. if lcase(right(djurl,4))<>".mp3" then
  79.   Response.Write("<script language=javascript>alert('请上传或连接MP3格式音乐!');history.back(1);</script>")
  80.   response.end
  81. end if
  82.   sql="select * from dj where dj_id="&cint(request.form("id"))
  83.   set rs=server.createobject("adodb.recordset")
  84.   rs.open sql,conn,1,3
  85.   rs("dj_name")=djname
  86.   rs("dj_user")=djuser
  87.  if rs("dj_url")<>djurl then
  88.      Call dfile(rs("dj_url"))
  89.  end if
  90.   rs("dj_url")=djurl
  91.   rs.update
  92.   rs.close
  93.   set rs=nothing
  94.   ADODB_SaveToFile Musicplayer,"../xml/player.xml","音乐XML数据更新成功"
  95.   response.redirect "admin_music.asp?action=dj"
  96. end if
  97. end if
  98. '==================http://www.2ey.cn==============================
  99. if request.querystring("action")="deldj" then
  100. djid = request.querystring("djid")
  101.   if djid="" then
  102.   Response.Write("<script language=javascript>alert('你必须指定操作的对象!');history.back(1);</script>")
  103.   response.End
  104.   elseif not isInteger(djid) then
  105.     Response.Write("<script language=javascript>alert('非法的歌曲id参数。');history.back(1);</script>")
  106.     response.End
  107.   end if
  108.      Set rs = conn.Execute("Select * from dj where dj_id="&djid)
  109.      Call dfile(rs("dj_url"))
  110.      rs.close
  111.   conn.execute("delete from dj where dj_id="&djid)
  112.   ADODB_SaveToFile Musicplayer,"../xml/player.xml","音乐XML数据更新成功"
  113.   response.redirect "admin_music.asp?action=dj"
  114. end if
  115.  
  116. '音乐排序修改数据
  117. if request.querystring("action")="px" then
  118.         j = request.Form("i")
  119.         j = Split(j,",")(Ubound(Split(j,",")))
  120.         for i = 1 to j
  121.                 dj_px = request.Form("txt_paixu("&i&")")
  122.                 id = request.Form("id("&i&")")
  123.                 conn.Execute ("Update dj set paixu="&dj_px&" where dj_id="&id)
  124.         next
  125.   ADODB_SaveToFile Musicplayer,"../xml/player.xml","音乐XML数据更新成功"
  126.   Response.Write("<script language=javascript>alert('排序更新成功!');this.location.href='admin_music.asp?action=dj';</script>")
  127.         SaveSet.close
  128. end if
  129. '==================http://www.2ey.cn==============================
  130. if request.querystring("action")="dj" then%>
  131. <table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=esingcom style="border-collapse: collapse">
  132.    <form action="?action=px" method="post">
  133.     <tr>
  134.       <td colspan="8" class=esing><div align="center"><span style="font-weight: bold">音乐批量修改</span></div></td>
  135.     </tr>
  136.     <tr class=esingcn>
  137.       <td width="8%"><div align="center">排序</div></td>
  138.       <td width="30%">&nbsp;歌曲名称</td>
  139.       <td width="20%">&nbsp;演唱歌手</td>
  140.       <td width="20%"><div align="center">添加时间</div></td>
  141.       <td width="12%"><div align="center">管理操作</div></td>
  142.     </tr>
  143.         <%Set rs = conn.Execute("Select * from dj order by paixu")
  144.         if rs.eof then
  145.                 response.Write("<tr><td colspan=5><center>暂时没有任何歌曲</center></td></tr>")
  146.         end if
  147.         dim i,j
  148.         i = 0
  149.         j = 0
  150.         do while not rs.eof
  151.         id = rs(0)
  152.         i = i+1
  153.         j=j+1%>
  154.     <tr class=esingnet>
  155.       <td><div align="center">
  156.        <input name="txt_paixu(<%=i%>)" type="text" id="txt_paixu(<%=i%>)" value="<%=j%>" size="4" maxlength="2" class="lostfocus" gf="0" onmouseover='this.className="getfocus"' onmouseout='if (this.gf=="0") this.className="lostfocus"' onblur='this.className="lostfocus";this.gf="0"' onfocus='this.className="getfocus";this.gf="1"'>
  157.       </div></td>
  158.       <td><%=rs("dj_name")%></td>
  159.       <td><%=rs("dj_user")%></td>
  160.       <td><%=rs("dj_date")%>
  161.       <input name="i" type="hidden" id="i" value=<%=i%>>
  162.       <input name="id(<%=i%>)" type="hidden" id="id" value="<%=id%>">
  163. </td>
  164.       <td class="table"><div align="center">
  165.           <a href="admin_music.asp?id=<%=id%>&action=editdj">编辑</a>
  166.           <a href="admin_music.asp?djid=<%=id%>&action=deldj" onClick="{if(confirm('您确定要删除此项目吗?')){return true;}return false;}">删除</a>
  167.           </div></td>
  168.     </tr>
  169.         <%
  170.         rs.movenext
  171.         loop
  172.         rs.close
  173.         %>
  174.     <tr class=esingnet>
  175.       <td colspan="8">&nbsp;<font color="#FF0000"><b>注意:</b>如果需要修改排列顺序,直接修改序号即可。</font></td>
  176.      </tr>
  177.     <tr class=esingcn>
  178.       <td colspan="8"><div align="center">
  179.         <input type="submit" name="Submit" value="修改排序" class="button">
  180.       </div></td>
  181.     </tr>
  182.   </form>
  183. <%
  184. Response.Write("</table>")
  185. end if
  186. '==================http://www.2ey.cn==============================
  187. if request.querystring("action")="addnewdj" then
  188. %>
  189.      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=esingcom style="border-collapse: collapse">
  190.         <form name="form2" method="post" action="">
  191.           <tr class=esing>
  192.             <td colspan="2">新增歌曲</td>
  193.           </tr>
  194.           <tr class=esingnet>
  195.             <td width="17%" align="right">歌曲名称:</td>
  196.             <td width="83%"><input type="text" name="name" size="40"></td>
  197.           </tr>
  198.           <tr class=esingnet>
  199.             <td align="right">歌手姓名:</td>
  200.             <td>
  201.               <input type="text" name="user" size="20" value="">
  202.             </td>
  203.           </tr>
  204.           <tr class=esingnet>
  205.             <td align="right">MP3地址:</td>
  206.             <td>
  207.               <input type="text" name="url" size="48"><br><FONT COLOR="red">→如要上传音乐,请在下一栏上传。音乐地址自动添加!!!</FONT></td>
  208.           </tr>
  209. <tr class=esingnet>
  210.               <td align="right">MP3歌曲:</td>
  211.               <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=dj"></iframe></td>
  212.             </tr>      
  213.  
  214.           <tr class=esingcn align="center">
  215.             <td colspan="2">
  216.              
  217.              <input type="submit" name="Submit" value="确定新增" class="button">
  218.               <input type="reset" name="Reset" value="清空重填" class="button">
  219.               [<a href="admin_music.asp?action=dj">返回</a>] </td>
  220.           </tr><input type="hidden" name="action" value="newdj">
  221.                  <input type="hidden" name="MM_insert" value="true">
  222.         </form>
  223.       </table>
  224. <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=esingcom style="border-collapse: collapse">
  225. <tr class=esing>
  226. <td>重要说明</td>
  227. </tr>
  228. <tr  class=esingnet>
  229. <td><B><FONT COLOR="#FF0000">⊙</FONT></B><FONT COLOR="#0000FF">请上传或连接</FONT><B><FONT COLOR="#FF0000">MP3</FONT></B><FONT COLOR="#0000FF">格式的音乐,其他格式将无法播放!!</FONT>
  230. </td></tr></table>
  231. <%end if
  232. '==================http://www.2ey.cn==============================
  233. if request.QueryString("action")="editdj" then
  234. if request.querystring("id")="" then
  235.   Response.Write("<script language=javascript>alert('请指定操作的对象!');history.back(1);</script>")
  236.   response.end
  237. else
  238.   if not isinteger(request.querystring("id")) then
  239.     Response.Write("<script language=javascript>alert('非法的歌曲ID参数!');history.back(1);</script>")
  240.         response.end
  241.   end if
  242. end if
  243. sql="select * from dj where dj_id="&cint(request.querystring("id"))
  244. set rs=server.createobject("adodb.recordset")
  245. rs.open sql,conn,1,1
  246.  
  247. %>
  248. <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=esingcom style="border-collapse: collapse">
  249.         <form name="form2" method="post" action="">
  250.           <tr class=esing>
  251.             <td colspan="2">修改歌曲</td>
  252.           </tr>
  253.  
  254.           <tr class=esingnet>
  255.             <td width="17%">歌曲名称:</td>
  256.             <td width="83%">
  257.               <input name="name" type="text" class="textarea" id="name" size="40" value="<%=rs("dj_name")%>">
  258.             </td>
  259.           </tr>
  260.           <tr class=esingnet>
  261.             <td width="17%">歌手姓名:</td>
  262.             <td width="83%">
  263.               <input name="user" type="text" class="textarea" id="user" size="20" value="<%=rs("dj_user")%>">
  264.             </td>
  265.           </tr>
  266.           <tr class=esingnet>
  267.             <td  width="17%">视听地址:</td>
  268.             <td  width="83%">
  269.               <input name="url" type="text" id="url" size="48" value="<%=rs("dj_url")%>"><BR><FONT COLOR="red">→→如要上传音乐,请在下一栏上传。音乐地址自动添加!!!</FONT></td>
  270.           </tr>
  271. <tr class=esingnet>
  272.               <td> 上传歌曲: </td>
  273.               <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=dj"></iframe></td>
  274.             </tr>
  275.           <tr  class=esingcn align="center">
  276.             <td colspan="2">
  277.               <input name="Submit" type="submit" id="Submit" value="确定修改">
  278.               <input type="reset" name="Reset" value="清空重填" >
  279.               [<a href="admin_music.asp?action=dj">返回</a>] </td>
  280.           </tr><input type="hidden" name="id" value="<%=rs("dj_id")%>">
  281.              <input type="hidden" name="action" value="editdj">
  282.           <input type="hidden" name="MM_insert" value="true">
  283.         </form>
  284.       </table>
  285. <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=esingcom style="border-collapse: collapse">
  286. <tr class=esing>
  287. <td>重要说明</td>
  288. </tr>
  289. <tr  class=esingnet>
  290. <td><B><FONT COLOR="#FF0000">⊙</FONT></B><FONT COLOR="#0000FF">请上传或连接</FONT><B><FONT COLOR="#FF0000">MP3</FONT></B><FONT COLOR="#0000FF">格式的音乐,其他格式将无法播放!!</FONT>
  291. </td></tr></table>
  292. <%
  293. rs.close
  294. set rs=nothing
  295. end if
  296. end if
  297. %>
  298.  
  299.  
downloadadmin_music.asp Source code - Download EXW FLASH web site management system v2.0 Source code
Related Source Codes/Software:
WAP2.0 web site management system V1.0 - System installation steps 1, install the QuickWAP ... 2016-10-20
DK v1.1 enterprise website management system - Back-end path URL +Admin (modify more secure) Ba... 2016-10-20
Love v3.0 leather CMS comprehensive website - Love leather CMS is Urumqi love leather network sc... 2016-10-20
Package UECMS v4.0 local experience - UECMS is positioning in the high-end market in CMS... 2016-10-20
Easy to build the software enterprise website source v1.3 every day - Everyday easy website software is based on the Mic... 2016-10-20
The self-help chain home beautiful - The self-help chain home beautiful 2016-10-20
Residential feng shui fortune-telling v1.0 - The project according to the orientation of the ar... 2016-10-20
Interesting content ASPCMS v1.0 - Update log: 2016-10-20
QQ group v2.1 release system - ha ha - "Copyright" This system is based on the Wu Meng de... 2016-10-20
The new network domain name host distribution system V1.0 - Use Notepad to open \Global.asa idc1688 into your ... 2016-10-20
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top