⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin.asp

📁 asp写的一个mp3播放器(带源码)
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
Response.Write "	</tr>"
Response.Write "	<tr>"
Response.Write "	  <td colspan=2 class=TableRow2><b>操作选项：</b> <a href='admin.asp?action=showmain&id=10'>管理首页</a> | "
Response.Write "	  <a href='admin.asp?action=playerset'>播放器设置</a> | "
Response.Write "	  <a href='admin.asp?action=songadd'>添加歌曲</a> | "
Response.Write "	  <a href='admin.asp?action=songlist'>歌曲管理</a> | "
Response.Write "	  <a href='admin.asp?action=View'>分类管理</a> | "
Response.Write "	  <a href=""admin.asp?action=adminmain"">用户管理</a> | "
Response.Write "	  <a href=""admin.asp?action=out"">退出管理</a> | "
Response.Write "	  <a href='admin.asp?action=songlist'>歌曲分类管理</a>：" & vbCrLf
Response.Write "	  <select name=cztype onchange=""Selectcztype(this)"">" & vbCrLf
Response.Write "		<option value=""999"">选择分类查看</option>" & vbCrLf
Response.Write "		<option value=0"
If int(cz_typeid) = 0 Then 
Response.Write " selected"
cz_typename = "网友点歌"
End If
Response.Write ">点歌列表</option>" & vbCrLf
call Cz_Type_List
Response.Write "	  </select></td>" & vbCrLf
Response.Write "	</tr></form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<br>"
End Sub
Private Sub Cz_Type_List()
	Set RsObj = Conn.Execute("SELECT cz_id,cz_type From cz_class ORDER BY cz_id asc")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "          <option value=""" & RsObj("cz_id") & """"
		If int(cz_typeid) = int(RsObj("cz_id")) Then
		Response.Write " selected"
		cz_typename = RsObj("cz_type")
		End If
		Response.Write ">"
		Response.Write RsObj("cz_type")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
End Sub
Private Sub Cz_song_add()
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "	function add_song_form()" & vbCrLf
Response.Write "	{" & vbCrLf
Response.Write "		if(document.addsongform.songname.value=="""")" & vbCrLf
Response.Write "		{" & vbCrLf
Response.Write "			alert(""请输入歌曲名称！"");" & vbCrLf
Response.Write "			document.addsongform.songname.focus();" & vbCrLf
Response.Write "			return false;" & vbCrLf
Response.Write "		}" & vbCrLf
Response.Write "		if(document.addsongform.songurl.value=="""")" & vbCrLf
Response.Write "		{" & vbCrLf
Response.Write "			alert(""请输入歌曲地址！"");" & vbCrLf
Response.Write "			document.addsongform.songurl.focus();" & vbCrLf
Response.Write "			return false;" & vbCrLf
Response.Write "		}" & vbCrLf
Response.Write "		if(document.addsongform.singer.value=="""")" & vbCrLf
Response.Write "		{" & vbCrLf
Response.Write "			alert(""请输入歌手姓名！"");" & vbCrLf
Response.Write "			document.addsongform.singer.focus();" & vbCrLf
Response.Write "			return false;" & vbCrLf
Response.Write "		}" & vbCrLf
Response.Write "	}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "      <table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <th colspan=""4"">添 加 歌 曲</th>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "		<form method=Post name=""addsongform"" action=""admin.asp?action=save&cz_typeid=" & cz_typeid & "&page=" & page & """ onSubmit=""return add_song_form();"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td width=""15%"" align=""right"" nowrap class=""TableRow2""><b>歌名名称：</b></td>" & vbCrLf
Response.Write "          <td width=""40%"" class=""TableRow1""><input name=""songname"" type=""text"" id=""songname"" size=""50"" maxlength=""30""></td>" & vbCrLf
Response.Write "          <td width=""15%"" align=""right"" nowrap class=""TableRow2""><b>所属分类：</b></td>" & vbCrLf
Response.Write "          <td width=""30%"" class=""TableRow1""><select name=""cztype"" id=""cztype"">"  & vbCrLf
call Cz_Type_List()
Response.Write "          </select></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td width=""15%"" align=""right"" nowrap class=""TableRow2""><b>歌名路径：</b></td>" & vbCrLf
Response.Write "          <td width=""40%"" class=""TableRow1""><input name=""songurl"" type=""text"" id=""songurl"" size=""50"" maxlength=""200""></td>" & vbCrLf
Response.Write "          <td width=""15%"" align=""right"" nowrap class=""TableRow2""><b>演 唱 者：</b></td>" & vbCrLf
Response.Write "          <td width=""30%"" class=""TableRow1""><input name=""singer"" type=""text"" id=""singer"" size=""20"" maxlength=""30""></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""4"" class=""TableRow2"">提示：按对话框前的说明填写歌曲信息，添加歌曲。</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr align=""center"">" & vbCrLf
Response.Write "          <td colspan=""4"" class=""TableRow2"">" & vbCrLf
Response.Write "	        <input name=""songlist"" type=""hidden"" value="""&songlist&""">" & vbCrLf
Response.Write "	        <input type=""button"" name=""Submit4"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button>" & vbCrLf
Response.Write "	  <input type=""submit"" name=""btnSubmit"" value="" 保  存 "" class=Button></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "		</form>" & vbCrLf
Response.Write "      </table>" & vbCrLf
End Sub 
Private Sub Cz_admin_songlist()
Call Cz_AdminTop
Dim go,i
If cz_typeid = 999 Then
SQL = " cz_typeid <> 1000 "
Else
SQL = " cz_typeid = "&cz_typeid
End If
songlist = "cuiznet"
SQL = "Select * from cz_songlist where "&SQL&" Order by cz_id desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open SQL,conn,1,1
Response.Write "      <table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <th colspan=""4"">"&cz_typename&" 歌曲列表 </th>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td width=""15%"" align=""center"" nowrap class=""TableRow2""><b>歌手姓名</b></td>" & vbCrLf
Response.Write "          <td width=""25%"" align=""center"" nowrap class=""TableRow2""><b>歌名名称</b></td>" & vbCrLf
Response.Write "          <td width=""40%"" align=""center"" class=""TableRow1""><b>歌名路径</b></td>" & vbCrLf
Response.Write "          <td width=""20%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
If RS.EOF Then 
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""4"" nowrap class=""TableRow""  height=""100"">暂无歌曲信息！请添加！</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Else
rs.pagesize=12 
if (page-rs.pagecount) > 0 then
page=rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
rs.absolutepage=page
do while not rs.eof 
i = i + 1
if i > rs.pagesize then exit do
Response.Write "		<form method=Post name=""myform"& rs("cz_id") &""" action=""admin.asp?action=songedit&cz_typeid=" & cz_typeid & "&id="& rs("cz_id") &"&page=" & page & """>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
If rs("cz_typeid") = 0 Then
Response.Write "          <td width=""80%"" class=""TableRow1"" colspan=""3""><font color=#999999>[网友点歌]</font>&nbsp;<input name=""songurl2"" type=""text"" id=""songurl2"" size=""112"" maxlength=""200"" value="""&rs("cz_from_name")&" 为 "&rs("cz_to_name")&" 点了一首《"&rs("cz_song_name")&"》，并祝福说："&rs("cz_player_msg")&" 歌曲路径：" & rs("cz_song_url") & """   /></td>" & vbCrLf
Response.Write "          <td width=""20%"" class=""TableRow1""  align=""center"" >"
Response.Write "<input name=""Submit2"" type=""submit"" class=""Button"" value="" 编 辑 "" disabled />" & vbCrLf
Else
Response.Write "          <td nowrap class=""TableRow2""><input name=""singer"" type=""text"" id=""singer"" size=""25"" maxlength=""30"" value = """ & rs("cz_from_name") &""" /></td>" & vbCrLf
Response.Write "          <td width=""25%"" nowrap class=""TableRow2""><input name=""songname"" type=""text"" id=""songname"" size=""40"" maxlength=""30"" value = """& rs("cz_song_name") &""" /></td>" & vbCrLf
Response.Write "          <td width=""40%"" class=""TableRow1""><input name=""songurl"" type=""text"" id=""songurl"" size=""55"" maxlength=""200"" value=""" & rs("cz_song_url") & """ /></td>" & vbCrLf
Response.Write "          <td width=""20%"" class=""TableRow1""  align=""center"" >"
Response.Write "<input name=""Submit2"" type=""submit"" class=""Button"" value="" 编 辑 "">" & vbCrLf
End If
Response.Write "          <input name=""del"" onClick=""javascript:if(!confirm('提示：确认删除本歌曲吗？')){return false;};window.location.href='admin.asp?action=songdel&cz_typeid=" & cz_typeid & "&id="& rs("cz_id") &"&page=" & page & "';"" type=""button"" class=""Button"" value="" 删 除 ""></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "		</form>" & vbCrLf
rs.movenext
loop
Response.Write "        <form name=""page_form"" method=""post""><tr>" & vbCrLf
Response.Write "          <td colspan=""4"" nowrap class=""TableRow2""  align=""right"" >共有"&page&"/"&Rs.pagecount&"页&nbsp;&nbsp;&nbsp;"
If page>1 Then response.write"<a href=""admin.asp?action=songlist&page="&page-1&""">上一页</a>&nbsp;"
if Rs.pagecount-page <> 0 then response.write"<a href=""admin.asp?action=songlist&page="&page+1&""">下一页</a>&nbsp;"
Response.Write "          &nbsp;跳转到 <select name=""czpage"" onchange=""SelectCzPage(this)"">"
for go=1 to Rs.pagecount
if cstr(page)=cstr(go) then
response.write "          <option value="""&go&""" selected>"&go&"</option>"
else
response.write "          <option value="""&go&""">"&go&"</option>"
end if
next
response.write "          </select> 页&nbsp;&nbsp;</td>" & vbCrLf
Response.Write "        </tr></form>" & vbCrLf
End If
RS.CLOSE
Set RS=Nothing
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""4"" nowrap class=""TableRow2"">提示：分类歌曲列表管理页面。点击每行右边的操作键，对本行歌曲进行操作。</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "      </table><br />" & vbCrLf
Call Cz_song_add
End Sub
Private Sub Cz_Admin_type()	  
Call Cz_AdminTop
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from cz_class where cz_id <> 0 order by cz_id asc",conn,1,1
Dim rsnum
If Not rs.eof Then
rsnum = rs.recordcount
Else
rsnum = 0
End If
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" style=""padding:2,7,0,7 px;"">" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top""><table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <th colspan=""3"">分 类 添 加 </th>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td width=""15%"" align=""center"" nowrap class=""TableRow2""><b>序 号</b></td>" & vbCrLf
Response.Write "        <td width=""50%"" align=""center"" nowrap class=""TableRow2""><b>分类名称</b></td>" & vbCrLf
Response.Write "        <td width=""35%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <form method=Post name=""myformadd"" action=""admin.asp?action=addtype"" onSubmit=""return ClassEditform(this);"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td align=""center"" nowrap class=""TableRow2""><B>"& rsnum+1 &"</B></td>" & vbCrLf
Response.Write "          <td width=""25%"" nowrap class=""TableRow2""><input name=""cztype_name"" type=""text"" id=""cztype_name"" size=""30"" maxlength=""30""></td>" & vbCrLf
Response.Write "          <td width=""20%"" align=""center"" class=""TableRow1""><input name=""Submit"" type=""submit"" class=""Button"" value="" 添 加  "">" & vbCrLf
Response.Write "              <input name=""Submit1"" type=""reset"" class=""Button"" value="" 清 除 ""></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "      </form>" & vbCrLf
Response.Write "      <tr>" & vbCrLf
Response.Write "        <td colspan=""3"" nowrap class=""TableRow2"">提示：这里添加一个歌曲分类。</td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "      <tr align=""center"">" & vbCrLf
Response.Write "        <td colspan=""4"" class=""TableRow2""><input type=""button"" name=""Submit2"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button></td>" & vbCrLf
Response.Write "      </tr>" & vbCrLf
Response.Write "    </table></td>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top""><table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <th colspan=""3"">分 类 列 表 </th>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td width=""15%"" align=""center"" nowrap class=""TableRow2""><b>序 号</b></td>" & vbCrLf
Response.Write "          <td width=""50%"" align=""center"" nowrap class=""TableRow2""><b>分类名称</b></td>" & vbCrLf
Response.Write "          <td width=""35%"" align=""center"" class=""TableRow1"">相关操作</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
If rs.eof Then
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""3"" nowrap class=""TableRow""  height=""30"">无任何分类！从左边对话框添加…</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Else
i=0
Do While Not rs.eof
i=i+1
Response.Write "		<form method=Post name=""editform" & rs("cz_id") & """ action=""admin.asp?action=TypeEdit&id=" & rs("cz_id") & """  id=""f"&cz_id&""" onSubmit=""return ClassEditform(this);"">" & vbCrLf
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td nowrap class=""TableRow2"" align=""center""><b>" & i & "</b></td>" & vbCrLf
Response.Write "          <td width=""25%"" nowrap class=""TableRow2""><input name=""cztype_name"" type=""text"" id=""cztype_name"" size=""30"" maxlength=""30"" value = """ & rs("cz_type") & """></td>" & vbCrLf
Response.Write "          <td width=""20%"" align=""center"" class=""TableRow1""><input name=""Submit"" type=""submit"" class=""Button"" value="" 编 辑 "">" & vbCrLf
Response.Write "            <input name=""del"" onClick=""javascript:if(!confirm('确认删除[" & rs("cz_type") & "]分类吗？ \n\n与其相关联的歌曲将全部删除！')){return false;};window.location.href='admin.asp?action=typedel&id=" & rs("cz_id") & "';"" type=""button"" class=""Button"" value="" 删 除 ""></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "		</form>" & vbCrLf
rs.movenext
Loop
End If
rs.close
Set rs = Nothing
Response.Write "        <tr>" & vbCrLf
Response.Write "          <td colspan=""3"" nowrap class=""TableRow2"">提示：歌曲分类栏目修改与删除。</td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "        <tr align=""center"">" & vbCrLf
Response.Write "          <td colspan=""4"" class=""TableRow2""><input type=""button"" name=""Submit4"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=Button></td>" & vbCrLf
Response.Write "        </tr>" & vbCrLf
Response.Write "    </table></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
Private Sub Cz_AdminUser()
Call Cz_AdminTop
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" style=""padding:2,7,0,7 px;"">" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td width=""50%"" valign=""top""><table  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">" & vbCrLf
Response.Write "      <tr>" & vbCrLf
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -