📄 main.asp
字号:
<!--#include file="conn.asp"-->
<%
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)
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>EDIT JS</title>
<style type="text/css">
<!--
table {
font-size: 9pt;
}
-->
</style>
<style type="text/css">
<!--
input {
background-color: #FFFFFF;
border: 1px solid #CCCCCC;
}
-->
</style>
</head>
<body>
<table width="750" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr bgcolor=#386DCF>
<td> <font color="#FFFFFF"><strong>歌手姓名</strong></font></td>
<td bgcolor="#386DCF"> <font color="#FFFFFF">歌曲名字</font></td>
<td> <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
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 = 15 '每页显示记录数
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="EDIT">
</div></td>
<td nowrap bgcolor="#FFFFFF">
<div align="center"><a href="main.asp?del=<%=Rs("id")%>">删除</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 width="750" 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"> <input name="singer" type="text" class="input01" size="20" title="singer">
<strong>:歌手</strong>
<input name="musicname" type="text" class="input01" size="20" title="music">
<strong>:歌曲名字</strong></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="50">
</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>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -