📄 adminsong.asp
字号:
<!--#include file="bjhead.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
<TBODY>
<TR vAlign=top>
<TD bgColor=#cccccc><IMG height=1 alt="" src="../image/stu.htm" width=1
name=""></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=8 bgColor=#f4f4f4></TD></TR>
<TD>
<TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=52>
<TABLE width="100%"
border=0 align="center" cellPadding=3 cellSpacing=0
borderColor=#111111 id=AutoNumber5 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD class=6 width=495 background=../image/type_bg.gif
height=30><IMG height=12 src="../image/type01.gif" width=12
align=absMiddle> <font color="#CC3300">当前位置</font><A
href="index.asp?clas=<%=session("clas")%>">í网站首页</A> - <A
href="?clas=<%=session("clas")%>" class="6"><%=session("clas")%>°点歌</A></TD>
<TD width=100 background=../image/type_bg.gif>
<DIV align=center><IMG
src="../image/more.gif"
border=0></DIV></TD></TR><TR>
<TD colSpan=2>
<DIV align=center>
<%dim username,sql,type2,ad
username=Session("wzname")
clas=Session("clas")
ad=request.querystring("ad")
type2=request.queryString("type2")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from bj where bjname = '" &clas& "'"
rs.open sql,conn,1,3
if rs("adminname")<>Session("wzname") then
Response.Write("D?μü￡???μ?è¨á|2?1?°?￡??ìà′???ò?íμ?à?°é")
Response.Write("<br>")
Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>°￥￡???è￥°é</font></a>")
rs.close
set rs=nothing
else
Select Case type2
Case "add":
Call add
Case "del":
Call del
Case Else:
call show
End Select
end if
sub show
%>
<table width="100%" cellspacing="0">
<tr>
<td><table width="100%" align="center" cellspacing="0">
<tr>
<td width="19%"><a href="adminbj.asp">°à??×êá?</a></td>
<td width="19%"><a href="admingg.asp">·￠2?1???</a></td>
<td width="19%"><a href="adminvip.asp">管理员VIP</a></td>
<td width="13%"><a href="adminvote.asp">管理员投票</a></td>
<td width="11%"><p><a href="adminsong.asp">管理音乐</a></p> </td>
<td width="19%"><a href="adminmove.asp">管理员退出</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="16"><div align="center"><font color="#FF0000">?a°à??ê×ò3é?μ??è?úDàéíoíμ??èì¨?ó?è</font></div></td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FCD015">
<form name="form3" method="post" action="?type2=add"><tr>
<td width="15%">歌曲名</td>
<td width="85%">
<input name="song" type="text" id="song"> <a href="../help.asp"><font color="#FF0000">网站帮助</font></a></td>
</tr>
<tr>
<td>地址</td>
<td><input name="songhttp" type="text" id="songhttp" value="http://" size="50">
±?D?ò?http://?aí·</td>
</tr><tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="修改">
</td>
</tr></form>
</table></td>
</tr>
<%Dim cur,rowcount,i,clas
clas=Session("clas")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from bysong where class= '" &clas& "' order by id desc"
rs.open sql,conn,1,3
if rs.eof then
%>
<tr>
<td>?a??°à?1??óD?óò?à???￡?</td>
</tr>
<%else%>
<tr>
<td><table width="100%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFD320">
<tr> <td colspan="3"><div align="center" class="style2">???úê???ò?·?????￡????Tó?μ?ò?à?é?3y￡?D?D?o?×÷</div></td></tr>
<tr><td width="21%"><div align="center">?è??</div></td>
<td width="65%"><div align="center">í??·</div></td>
<td width="14%"><div align="center">é?3y</div></td>
</tr>
<%
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=30
rs.absolutepage=cint(cur)
rowcount=0
do while not rs.eof and rowcount<rs.pagesize%>
<tr>
<td width="21%"><div align="center"><%=rs("song")%></div></td>
<td width="65%"><div align="center"><%=rs("songhttp")%></div></td>
<td width="14%"><div align="center"><a href="?type2=del&ad=<%=rs("id")%>" onClick="return confirm('??μ?òaé?3y￡?')">é?3y</a></div></td>
</tr>
<%rowcount=rowcount+1
rs.movenext
loop%>
</table></td>
</tr><tr>
<td><table width="100%" border="0">
<tr><form name="form2" method="post" action=""><TD align=left bgcolor="#FEE370"><span class="style2"><font color="#CC3300">12<%=rs.recordcount%>ì??? ·?<%=rs.pagecount%>ò3??????ò310ì???????μ±?°ò3′?￡o<%=cur%>/<%=rs.pagecount%>??????????????????????????????????
×aμ?:
<select name="cur" size="1" onchange="javascript:submit()">
<%for i = 1 to rs.pagecount%>
<option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>μú<%=i%>ò3 </option>
<%next%>
</select>
<%
rs.close
set rs=nothing%>
</font></span></td>
</form>
</tr>
</table></td>
</tr>
<%end if%></table>
<%
end sub
sub add
dim songhttp,song
songhttp=request.form("songhttp")
song=request.form("song")
clas=Session("clas")
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from bysong where 1=2",conn,1,3
rs.addnew()
rs("class")=Session("clas")
rs("song")=song
rs("songhttp")=songhttp
rs.update
rs.close
set rs=nothing
response.redirect "adminsong.asp"
end sub
sub del
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from bysong where id="&ad&""
rs.open sql,conn,1,3
Response.Redirect "adminsong.asp"
end sub%>
</DIV></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="../bottom.asp"--></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -