📄 main.asp
字号:
<!--#include file="conn.asp"-->
<%
fileurl=SERVER.MapPath("addlist.js")
Sub Write2File(strFile, strContent, blnAppend)
' 写入文件
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
' 容错处理
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
' Case Else Response.Write Err.Description
Case Else Response.Write Err
End Select
End Sub
if Session("open")<>True then
Response.Redirect "login.asp"
end if
IF Request("del")<>"" Then
Sql = "Delete From music Where id="&Request("del")
Conn.Execute(Sql)
'=======================
call Write2File(fileurl,str,false)
set rs=server.createobject("adodb.recordset")
sql="select * from Music order by id desc "
rs.open sql,conn,1,1
while not rs.eof
str="mkList('"&rs("file")&"','"&rs("musicname")&"','"&rs("singer")&"')"
call Write2File(fileurl,str,True)
rs.movenext
wend
rs.close
set rs=nothing
call Write2File(fileurl,str,True)
'=======================
Response.Redirect "main.asp?page="&request("page")
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
'=======================
call Write2File(fileurl,str,false)
set rs=server.createobject("adodb.recordset")
sql="select * from Music order by id desc "
rs.open sql,conn,1,1
while not rs.eof
str="mkList('"&rs("file")&"','"&rs("musicname")&"','"&rs("singer")&"')"
call Write2File(fileurl,str,True)
rs.movenext
wend
rs.close
set rs=nothing
call Write2File(fileurl,str,True)
'=======================
Response.Redirect "main.asp?page="&request("page")
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
'=======================
call Write2File(fileurl,str,false)
set rs=server.createobject("adodb.recordset")
sql="select * from Music order by id desc "
rs.open sql,conn,1,1
while not rs.eof
str="mkList('"&rs("file")&"','"&rs("musicname")&"','"&rs("singer")&"')"
call Write2File(fileurl,str,True)
rs.movenext
wend
rs.close
set rs=nothing
call Write2File(fileurl,str,True)
'=======================
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;
}
.STYLE2 {font-size: 24px}
-->
</style>
</head>
<body>
<div align="center">
<script language=JavaScript>
function SureDel(id,page)
{
if ( confirm("确定删除这首歌吗？"))
{
window.location.href = "main.asp?del="+id+"&page="+page
}
}
</script>
<table width="95%" border="0">
<tr>
<td width="30%"> </td>
<td align="center"><span class="STYLE2">播放列表</span></td>
<td width="30%" align="center" valign="bottom"><a href="chgpwd.asp" target="_blank">更改密码</a> <a href="quit.asp">退出</a></td>
</tr>
</table>
</div>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr bgcolor=#386DCF>
<td> <div align="center"><font color="#FFFFFF">ID</font></div></td>
<td> <div align="center"><font color="#FFFFFF">歌词地址</font></div></td>
<td bgcolor="#386DCF"> <div align="center"><font color="#FFFFFF">歌曲+歌手</font></div></td>
<td> <div align="center"><font color="#FFFFFF">歌 曲 地 址</font></div></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
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值为接受值
rs.pagesize=25 '每页显示记录数
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
for i = 1 to rs.pagesize
%>
<tr>
<form action="main.asp?action=edit&page=<%=page%>" method="post">
<td bgcolor="#FFFFFF" ><a href="#" onClick="window.open('play.asp?url=<%=rs("file")%>&musicname=<%=rs("musicname")%>','newwindow','width=500,height=150');"><%=rs("id")%></a></td>
<td bgcolor="#FFFFFF" > <input name="singer" type="text" id="singer" value="<%=rs("singer")%>" size="12">
</td>
<td bgcolor="#FFFFFF" > <div align="center">
<input name="musicname" type="text" id="musicname" value="<%=rs("musicname")%>" size="25">
<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="80">
</div></td>
<td nowrap bgcolor="#FFFFFF">
<div align="center">
<input name="Submit2" type="submit" class="button1" value="EDIT">
</div></td>
<td nowrap bgcolor="#FFFFFF">
<div align="center"><a href='javascript:SureDel(<%=rs("id")%>,<%=page%>)'>删除</a></div></td>
</form>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next
%>
</table>
<form name="form2" method="post" action="main.asp">
<%
response.write "<div align=center>"
response.write "第<font color=red>" + cstr(page) + "</font>页/总<font color=red>" + cstr(rs.pagecount) + "</font>页 "
response.write "本页<font color=red>" + cstr(i-1) + "</font>条/总<font color=red>" + cstr(rs.recordcount) + "</font>条 "
if page = 1 then
response.write "首页 前页 "
else
response.write "<a href="&filepath&"?page=1>首页</a> <a href="&filepath&"?page="&Page-1&">上一页</a> "
end if
if page = rs.pagecount then
response.write "后页 末页"
else
response.write "<a href="&filepath&"?page="&(Page+1)&">下一页</a> <a href="&filepath&"?page=" + cstr(rs.pagecount) + ">末页</a>"
end if%>
转到
<select name="page" class="input" onChange="javascript:submit()">
<%for i=1 to rs.pagecount%>
<option value=<%=i%>
<%
if i=page then
response.write" selected"
end if
%>
>第<%=i%>页</option>
<%next%>
</select>
</form>
<%'rs.close
set rs=nothing
%>
</div>
<%end if
%>
<br>
<table width="652" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
<%
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 bgcolor="#386DCF"> <p align="right"><font color="#FFFFFF">歌曲+歌手：</font></td>
<td bgcolor="#FFFFFF"><strong>
<input name="musicname" type="text" class="input01" size="40" title="music">
</strong>歌词
<input name="singer" type="text" class="input01" value="http://" size="33" title="singer">
</td>
</tr>
<tr>
<td bgcolor="#386DCF"> <div align="right"> <font color="#FFFFFF">歌曲地址：</font></div></td>
<td bgcolor="#FFFFFF"> <input name="file" type="text" class="input01" id="file" size="80">
</td>
</tr>
<tr>
<td bgcolor="#386DCF"> <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>
<%
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -