📄 main.asp
字号:
<!--#include file="conn.asp"-->
<%
if Request("action")="exit" then
response.cookies("users")("username")=""
response.cookies("users")("userpass")=""
Session("admin")=False
Response.redirect"login7.asp"
end if
if Session("admin")<>True then
Response.Redirect "login7.asp"
end if
IF Request("del")<>"" Then
Sql = "Delete From music Where id="&Request("del")
Conn.Execute(Sql)
Response.Redirect "main.asp"
End IF
if Request("action")="edit" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from music where id="&request("id")
rs.open sql,conn,1,3
rs("musicname")=trim(request("musicname"))
rs("singer")=trim(request("singer"))
rs("file")=trim(request("file"))
rs.Update
rs.Close
set rs=nothing
Response.Redirect "main.asp"
end if
if Request("action")="add" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,3,2
rs.addnew
if trim(request.form("musicname"))="" then
response.write "<script language=javascript>"
response.write "alert('请填写名称');"
response.write "</script>"
response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
Response.End
end if
if trim(request.form("file"))="" then
response.write "<script language=javascript>"
response.write "alert('请填写地址');"
response.write "</script>"
response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
Response.End
end if
rs("musicname")=trim(request("musicname"))
rs("singer")=trim(request("singer"))
rs("file")=trim(request("file"))
rs.update
rs.close
response.redirect "main.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>梦想小筑音乐管理</title>
<style type="text/css">
<!--
table {
font-size: 9pt;
}
-->
</style>
<style type="text/css">
<!--
input {
background-color: #FFFFFF;
border: 1px solid #CCCCCC;
}
-->
</style>
<style>
BODY {scrollbar-track-color:#ffffff; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #dddddd; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff}
A {COLOR: #999999; TEXT-DECORATION: none }
A:visited {COLOR: #3B7221; TEXT-DECORATION: none}
A:active {COLOR: #ffffff; TEXT-DECORATION: none}
A:hover {COLOR: #3B7221; border-bottom:1px dotted #3B7221}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#3B7221;letter-spacing : 1pt ;line-height :15pt}
</style>
<style type=text/css>BODY {
BACKGROUND-POSITION: right bottom; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-REPEAT: no-repeat
}</style>
</head>
<body background="fuhao/login.jpg">
<br>
<br>
<table style="FILTER: alpha(opacity=75)" width="750" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="cccccc">
<tr bgcolor=#3B7221>
<td align="center" bgcolor="#3B7221"> <font color="#FFFFFF">歌手姓名</font></td>
<td align="center" bgcolor="#3B7221"> <font color="#FFFFFF">歌曲名字</font></td>
<td align="center" bgcolor="#3B7221"> <font color="#FFFFFF">歌曲地址</font></td>
<td colspan="2"><div align="center"><font color="#FFFFFF">操作</font></div></td>
</tr>
<%
sql="select * from music order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
rs.pagesize = 99
if rs.eof and rs.bof then
response.write "<div align=center><font size=2>还没有</font></div>"
else
page=1 '设置变量初始值PAGE=1
page=request.querystring("page") 'page值为接受值
const PageSize = 99 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End If
Page = rs.AbsolutePage
dim i
i = 0
do while not rs.eof
%>
<tr>
<form action="main.asp?action=edit" method="post">
<td bgcolor="#FFFFFF" > <input name="singer" type="text" id="singer" value="<%=rs("singer")%>" size="15">
</td>
<td bgcolor="#FFFFFF" > <div align="center">
<input name="musicname" type="text" id="musicname" value="<%=rs("musicname")%>" size="15">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>">
</div></td>
<td bgcolor="#FFFFFF"> <div align="center">
<input name="file" type="text" id="file" value="<%=rs("file")%>" size="60">
</div></td>
<td nowrap bgcolor="#FFFFFF">
<div align="center">
<input name="Submit2" type="submit" class="button1" value="修改">
</div></td>
<td nowrap bgcolor="#FFFFFF">
<div align="center"><a href="main.asp?del=<%=Rs("id")%>" onclick='javascript: return confirm("你确定要删除吗? ");'><font color="222222">删除</font></a></div>
</td>
</form>
</tr>
<%
i=i+1
if i>=PageSize then exit do
rs.movenext
loop
%>
<tr bgcolor="#FFFFFf">
<td colspan="5"> <div align="right">
<%
dim n
if rs.RecordCount mod pagesize=0 then
n= rs.RecordCount \ pagesize
else
n= rs.RecordCount \ pagesize+1
end if
response.write " <table><form method=post action="&filepath&"><tr><td>"
if Page<2 then
response.write "首页 | 上一页 | "
else
response.write "<a href="&filepath&"?page=1>首页</a> | "
response.write "<a href="&filepath&"?page="&Page-1&">上一页</a> | "
end if
if n-page<1 then
response.write "下一页 | 尾页"
else
response.write "<a href="&filepath&"?page="&(Page+1)&">"
response.write "下一页</a> | <a href="&filepath&"?page="&n&">尾页</a>"
end if
response.write " 共"&rs.RecordCount&"个"
response.write " 转到第<input type='text' name='page' size=2 maxlength=10 class=input01 value="&page&">"
response.write " /"&n&"页 "
response.write "<input type='hidden' name='POST' value='True' ></td></tr></form></table>"
end if
%>
</div></td>
</tr>
</table>
<table style="FILTER: alpha(opacity=75)" width="750" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="cccccc">
<%
sql="select * from music order by id desc"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql,conn,1,3
do while not rs1.eof
fileall="mkList("&chr(34)&rs1("file")&chr(34)&","&chr(34)&rs1("musicname")&" - "&rs1("singer")&chr(34)&");"
intAllFile =intAllFile&vbcrlf&fileall
rs1.movenext
loop
%>
<form action="main.asp?action=add" method="post" name="form" >
<tr>
<td align="right" bgcolor="#3B7221"><font color="#FFFFFF">歌手姓名：</font></td>
<td bgcolor="#FFFFFF"> <input name="singer" type="text" class="input01" size="20" title="singer">
</td>
</tr>
<tr>
<td align="right" bgcolor="#3B7221"><font color="#FFFFFF">歌曲名称：</font></td>
<td bgcolor="#FFFFFF"><input name="musicname" type="text" class="input01" size="20" title="music"></td>
</tr>
<tr>
<td align="right" bgcolor="#3B7221"><font color="#FFFFFF">歌曲地址：</font></td>
<td bgcolor="#FFFFFF">
<input name="file" type="text" class="input01" id="file" size="50">
</td>
</tr>
<tr>
<td bgcolor="#3B7221"> <div align="right"></div></td>
<td bgcolor="#FFFFFF"> <input name="Submit" type="submit" class="button1" value=" 增 加 ">
<input name="Submit1" type="reset" class="button1" value=" 重 设 "></td>
</tr>
</form>
</table>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><a href="?action=exit">[退出]</a></td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -