📄 adminsave.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")<>"admin" then
Response.Redirect "../admin/index.asp"
response.end
end if
key=trim(request("key"))
%>
<html>
<head>
<title>歌曲列表</title>
<META name="Keywords" content="mp3,asf,wav,ram">
<META name="Description" content="mp3,asf,wav,mid,网上媒体播放">
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (isNaN(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</SCRIPT>
<style type="text/css">
<!--
.style4 {color: #602C17}
.style5 {color: #6B3722}
.style6 {color: #622E19}
a:link {
color: #000099;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #006666;
}
a:hover {
text-decoration: underline;
}
a:active {
text-decoration: none;
}
body,td,th {
color: #693520;
}
-->
</style>
</HEAD>
<BODY background="../img/dnacebg2.jpg" topmargin=0 leftmargin=0 marginwidth=0 marginheight=0>
<span class="style4">
<NOSCRIPT>
<IFRAME SRC=*.htm></IFRAME>
</NOSCRIPT>
</span>
<center class="style4">
<table border="0" cellpadding="0" cellspacing="0" width=450>
<tr>
<td width="293" valign="top">
<% set rs=server.createobject("adodb.recordset")
if key="" then
sql="select * from music where id order by id desc"
else
sql="select * from music where name like '%"&key&"%' or show like '%"&key&"%' or url like '%"&key&"%' or geshi like '%"&key&"%' order by id desc"
end if
rs.open sql,conn,1,1
if rs.bof or rs.eof then
on error resume next
end if
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10 //控制显示多少行
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount %>
<table border="0" cellpadding="0" cellspacing="0" width="450" >
<tr>
<td width="343" height="6" colspan="3" valign="bottom" bgcolor="#cea772"> <% response.write"<form name=go2to method=Post action='adminsave.asp'>"
if pagecount=1 then
response.write "首页 上一页 "
else
if key="" then
response.write "<a href=adminsave.asp?page=1>首页</a> "
response.write "<a href=adminsave.asp?page="+cstr(pagecount-1)+">上一页</a> "
else response.write "<a href=adminsave.asp?page=1&key="+key+">首页</a> "
response.write "<a href=adminsave.asp?page="+cstr(pagecount-1)+"&key="+key+">上一页</a> "
end if
end if
if rs.PageCount-pagecount<1 then
response.write "下一页 尾页"
else
if key="" then
response.write "<a href=adminsave.asp?page="+cstr(pagecount+1)+">下一页</a> "
response.write "<a href=adminsave.asp?page="+cstr(rs.PageCount)+">尾页</a>"
else
response.write "<a href=adminsave.asp?page="+cstr(pagecount+1)+"&key="+key+">下一页</a> "
response.write "<a href=adminsave.asp?page="+cstr(rs.PageCount)+"&key="+key+">尾页</a>" end if
end if
response.write " 页次:"&pagecount&"/"&rs.pagecount&"页</font>"
response.write "<br> 转到第<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页 "
response.write "<input type='button' value='确 定' onclick=check() class='bt'>"
response.write "<a href=adminsave.asp?work=add>添 加</a></form>"
%> </td>
</tr>
<tr><td colspan=3 align=center width="343" bgcolor="#CEA772"><a href=adminsave.asp?key=count title="列出排行榜">排行榜</a>
<a href=adminsave.asp?key=视频 title="列出所有视频">视频</a>
<a href=adminsave.asp?key=音频 title="列出所有音频">音频</a>
</td>
</tr>
<% do while not rs.eof %>
<tr>
<td width=166 height="18" valign="bottom" bgcolor="#CEA772"><a href=index1.asp?id=<%=rs("id")%> target=play><%=rs("name")%></a></td>
<td width=33 height="18" valign="bottom" bgcolor="#CEA772">
<a href=adminsave.asp?work=xg&id=<%=rs("id")%> title=<%=rs("geshi")%>,<%=rs("count")%>>修改</a>
</td>
<td width=140 height="18" valign="bottom" bgcolor="#CEA772">
<a href=adminsave.asp?work=del&id=<%=rs("id")%> title=<%=rs("geshi")%>,<%=rs("count")%>>删除</a>
</td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
%>
</table>
</td>
</tr>
<tr><td width="293" align="center" bgcolor="#cea772">
<form method=Post name=form1 action='adminsave.asp'>
<input type="text" name="Key" size="19">
<input type=submit name=xc class=bt value="搜索">
</form></td></tr>
</table>
</center>
<span class="style4">
<%
Select Case Request("work")
Case "del"
Call work_del
Case "addsave"
Call work_addsave
Case "xgsave"
Call work_xgsave
Case "xg"
Call work_xg
Case "add"
Call work_add
Case "yonghu"
Call work_yonghu
Case "yhsave"
Call work_yhsave
End Select
sub work_del
set rs=server.CreateObject("ADODB.RecordSet")
sql="delete * from music where id="&request("id")
rs.open sql,conn,1,3
response.redirect "adminsave.asp"
response.end
end sub
sub work_addsave
name=trim(request.form("name"))
url=trim(request.form("url"))
show=trim(request.form("show"))
geshi=request.form("geshi")
if name="" then
response.write "<script>alert('请添加名称');location.href='javascript:history.back()'</script>"
response.end
end if
if url="" then
response.write "<script>alert('请添加地址');location.href='javascript:history.back()'</script>"
response.end
end if
if show="" then
response.write "<script>alert('请添加说明');location.href='javascript:history.back()'</script>"
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from music"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("url")=url
rs("show")=show
rs("geshi")=geshi
rs("time")=now()
rs.update
response.redirect "adminsave.asp?work=add"
end sub
sub work_xgsave
name=trim(request("name"))
url=trim(request("url"))
show=trim(request("show"))
geshi=request("geshi")
if name="" then
response.write "<script>alert('请添加名称');location.href='javascript:history.back()'</script>"
response.end
end if
if url="" then
response.write "<script>alert('请添加地址');location.href='javascript:history.back()'</script>"
response.end
end if
if show="" then
response.write "<script>alert('请添加说明');location.href='javascript:history.back()'</script>"
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from music where id="&request("id")
rs.open sql,conn,1,3
rs("name")=name
rs("url")=url
rs("show")=show
rs("geshi")=geshi
rs("time")=now()
rs.update
response.redirect "adminsave.asp"
end sub
sub work_xg
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from music where id="&request("id")
rs.open sql,conn,1,1
%>
</span>
<center class="style4">
<table width=450 bgcolor="#cea772"><tr><td colspan="2" width="461" align="center"><span class="style5">修改记录</span></td>
</tr>
<tr> <span class="style5"><span class="style1">
</span>
<tr>
<span class="style5"></span></span>
<form method="post" action="AdminSave.asp?work=xgsave&id=<%=rs("id")%>">
<td width="289" align="center"><span class="style5">名称：</span></td>
<td width="166">
<input name="name" type="text" value=<%=rs("name")%> size="22">
</td>
<tr> <span class="style5"><span class="style1"></span>
</tr>
</span>
<tr>
<td width="289" align="center"><span class="style5">地址：</span></td>
<td width="166">
<input name="url" type="text" value=<%=rs("url")%> size="22">
</td>
</tr>
<tr>
<td width="289" align="center"><span class="style5">说明：</span></td>
<td width="166">
<input name="show" type="text" value=<%=rs("show")%> size="22">
</td>
</tr>
<tr>
<td width="289" align="center"><span class="style5">格式：</span></td>
<td width="166"> <span class="style5">
<%if rs("geshi")="视频" then%>
<INPUT type="radio" name="geshi" checked value="视频">
视频
<INPUT type="radio" name="geshi" value="音频">
音频
<%else%>
<INPUT type="radio" name="geshi" value="视频">
视频
<INPUT type="radio" name="geshi" checked value="音频">
音频
<%end if%>
</span></td>
</tr>
<tr>
<td width="594" align="center" colspan="3"> <span class="style5">
<input type="submit" name="Submit" value="[确定]" class="bt">
</span>
</form>
</td></tr></table>
</center>
<span class="style4">
<%
end sub
sub work_add
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from music"
rs.open sql,conn,1,1
%>
</span>
<center class="style4">
<table width=450 bgcolor="#cea772"><tr>
<td colspan="2" align="center" width="396"><span class="style6">添加记录</span></td>
</tr>
<tr><tr>
<form method="post" action="AdminSave.asp?work=addsave">
<td width="78" align="center"><span class="style6">名称：</span></td>
<td width="312">
<input name="name" type="text" size="22">
</td>
<tr></tr>
<tr>
<td width="78" align="center"><span class="style6">地址：</span></td>
<td width="312">
<input name="url" type="text" size="22">
</td>
</tr>
<tr>
<td width="78" align="center"><span class="style6">说明：</span></td>
<td width="312">
<input name="show" type="text" size="22">
</td>
</tr>
<tr>
<td width="78" align="center"><span class="style6">格式：</span></td>
<td width="312"> <span class="style6">
<INPUT type="radio" name="geshi" checked value="视频">
视频
<INPUT type="radio" name="geshi" value="音频">
音频 </span></td>
</tr>
<tr>
<td width="396" align="center" colspan="2"> <span class="style6">
<input type="submit" name="Submit" value="[确定]" class="bt">
</span>
</form>
</td></tr></table>
</center>
<span class="style4">
<%
end sub
%>
</span>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -