?? admin.asp
字號:
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> <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&"頁 "
If page>1 Then response.write"<a href=""admin.asp?action=songlist&page="&page-1&""">上一頁</a> "
if Rs.pagecount-page <> 0 then response.write"<a href=""admin.asp?action=songlist&page="&page+1&""">下一頁</a> "
Response.Write " 跳轉到 <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> 頁 </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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -