📄 index1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=yd_title%></title>
<style type="text/css">
td { font-family: "Arial", "Helvetica", "sans-serif"; font-size: 12px; font-style: normal; line-height: 21px; font-weight: normal; font-variant: normal}
a:visited {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: normal;
line-height: 21px;
color: #000000;
text-decoration: none;
}
a:hover {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: normal;
line-height: 21px;
color: #CC0033;
text-decoration: underline;
}
a:active {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: normal;
line-height: 21px;
color: #000000;
text-decoration: none;
}
a:link {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: normal;
line-height: 21px;
color: #000000;
text-decoration: none;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #F0F0F0;
}
input {
font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
font-style: normal;
line-height: normal;
color: #006600;
border: #000000 1px solid;
}
.style1 {color: #F0F0F0}
</style>
<script language= "javascript">
function openpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=100,left=200,width=300,height=150");
newwin.focus();
return false;
}
</script>
</head>
<body><center>
<%if request.form("sub")="sub" then
username=trim(request.form("username"))
username=replace(username,"'","")
password=trim(request.form("password"))
password=replace(password,"'","")
if username=yd_admin and password=yd_password then
session("yd631")="jiangyuedong"
response.Redirect("index.asp")
else
response.Redirect("index.asp")
end if
end if%>
<table width="700" border="0" cellpadding="0" cellspacing="0" bgcolor="#F0F0F0">
<tr>
<td height="138" align="left" valign="top"><%set rs3=server.CreateObject("adodb.recordset")
sql3="select * from yd_music order by id desc"
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
response.Write("暂时没有歌曲")
else
page=request.QueryString("page")
rs3.pagesize=6
total=rs3.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page > rs3.PageCount then
rs3.AbsolutePage = rs3.PageCount
elseif page <= 0 then
page = 1
else
rs3.AbsolutePage = page
end if
End if
page = rs3.AbsolutePage%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2">歌曲</td>
<td width="55">歌手</td>
<td width="49">视听</td>
<td width="33">点击</td>
<td width="211">上传时间</td>
<td width="242"><%if session("yd631")="jiangyuedong" then%>编辑<%end if%></td>
</tr>
<% m=1
For i = 1 to rs3.PageSize
if rs3.EOF then
Exit For
end if
%>
<td width="13" align="left"><img src="img/music.gif" width="11" height="13" border="0"></td>
<td width="67" align="left"><% if len(rs3("m_title"))>15 then %>
<%=Left(rs3("m_title"),15)%>...
<%else%>
<%=rs3("m_title")%>
<% end if%></td>
<td align="center"><%=rs3("m_name")%></td>
<td align="center"><a href="play.asp?id=<%=rs3("id")%>" onClick="return openpage(this.href);"><img src="img/play.gif" width="13" height="13" border="0"></a></td>
<td align="center"><%=rs3("m_hits")%></td>
<td align="center"><%=rs3("m_time")%></td>
<td><%if session("yd631")="jiangyuedong" then%><a href="del.asp?id=<%=rs3("id")%>"><img src="img/del.gif" width="18" height="18" alt="删除" border="0"></a><a href="edi.asp?id=<%=rs3("id")%>"><img src="img/edi.gif" width="18" height="18" alt="编辑" border="0"></a><%if rs3("yan")="ok" then%><a href="tuijian.asp?id=<%=rs3("id")%>&act=no">不推荐</a><%end if%><%if rs3("yan")="no" then%><a href="tuijian.asp?id=<%=rs3("id")%>&act=ok">推荐</a><%end if%><%end if%></td>
</tr>
<%m=m+1
rs3.movenext
next%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><span class="style1">
<%if rs3.pagecount<>1 and rs3.pagecount<>0 then%>
<%if page<rs3.pagecount then%>
<%if page=1 then %>
[首页] [上一页]
<%else%>
[<a Href="index.asp?page=<%=1%>">首页</a>]
[<a Href="index.asp?page=<% =page-1 %>">上一页</a>]
<% end if %>
[<a Href="index.asp?page=<%=page+1%>">下一页</a>]
[<a Href="index.asp?page=<%=rs3.PageCount%>">尾页</a>]
<%else%>
[<a Href="index.asp?page=<% = 1%>">首页</a>]
[<a Href="index.asp?page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<b><%=page%></b>/<%=rs3.PageCount%>]
[共<%=rs3.RecordCount%>篇 <b><%=rs3.PageSize%></b>篇/页]
</span></td>
</tr>
</table> <%end if
rs3.close
set rs3=nothing
conn.close
set conn=nothing%></td>
</tr>
</table>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -