📄 list_db.asp
字号:
<!--#include file="conn.asp"-->
<%if session("logined") <> "Yes" Then Response.Redirect "admin_login.asp"%>
<%Response.Expires=-1%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>管理数据库记录</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Keywords" CONTENT="音乐">
<META NAME="Description" CONTENT="">
<style type="text/css">
td {font-size:12px}
</style>
<Script Language="JavaScript">
function winopen(xxx) {
window.open("modify.asp?numeration="+xxx,'modify',"width=300,height=350,left=0,top=0")
}
</Script>
</HEAD>
<%
action=Request("action")
title=Request("title")
tclass=Request("class")
if action = "del" and title <> "" then
conn.execute("delete from basic where title='"&title&"'")
Response.Write "<font color='red'>已删除一条标题为 "&title&" 的记录!</font><br><a href='list_db.asp'>继续>></a>"
Response.Write "<Script>setTimeout('top.location=\'list_db.asp\'',1000);</Script>"
Response.End
end if
%>
<BODY>
<div style="visibility:visible;position:absolute;top:10px;left:10px" id="loading">
<font color="green">正在读取数据库记录，请稍候...<br>
（记录数越多，所需时间越长)
</font>
</div>
<table border="1">
<tr><td>序号</td><td>歌曲标题</td><td>歌曲路径</td><td>歌曲类别</td><td>收录时间</td><td>备注</td><td>操作</td></tr>
<%
if tclass <> "" Then
sql = "select * from basic where class='"&tclass&"'"
else
sql = "select * from basic"
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open sql,Conn,1,3
Do While Not Rs.Eof
%>
<Script Language="JavaScript">
function yesorno() {
return confirm("Are you sure you want to delete it?");
}
</Script>
<tr><td><%=Rs("numeration")%></td><td><%=Rs("title")%></td><td><%=Rs("url")%></td>
<td><a href="list_db.asp?class=<%=Rs("class")%>"><%=Rs("class")%></td>
<td><%=Rs("time")%></td>
<td><%=Rs("remark")%></td>
<div style="visibility:hidden;position:absolute;top:0px">
<form action="list_db.asp" method="post">
<input type="hidden" name="title" value='<%=Rs("title")%>'>
<input type="hidden" name="action" value="del">
</div>
<td><input type="submit" value='删除' onclick="return yesorno()">
<button onclick='winopen("<%=Rs("numeration")%>")'>修改</button></td></form></tr>
<%
Rs.MoveNext
Loop
%>
</table>
<Script Language="JavaScript">
loading.style.visibility="hidden";
</Script>
<br>
共<%=Rs.RecordCount%>条记录．
<a href="JavaScript:location.reload()">刷新本页</a>
<%
if tclass <> "" then
Response.Write "<a href='list_db.asp'>显示所有</a>"
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -