📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="js/top.htm"-->
<html>
<title>音乐酒吧点歌台-免费点歌-点歌列表</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel=stylesheet type=text/css>
<script language="javascript">
function clickone() {
alert('点歌请到相应歌曲播放页点 "点歌送此歌曲给朋友 "!')
return false;
}
</script>
</head>
<body bgcolor="9FB3AB" leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<div align="center">
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="157"><img border="0" src="images/TOP1.gif" width="157" height="17"></td>
<td width="593" background="images/TOP2.gif"> </td>
<td width="10"><img border="0" src="images/TOP3.gif" width="10" height="17"></td>
</tr>
</table>
<table border="0" width="770" cellspacing="0" cellpadding="2" background="images/top4.gif">
<tr>
<td align="center" width="50"><img border="0" src="images/icon1.gif" width="23" height="24"></td>
<td>音乐酒吧点歌台,送给好友一份最真挚的祝福!</td>
<td><div align="center"><strong><a href="help.asp" target="_blank">点歌帮助</a></strong></div></td>
<td width="100"><a href="#" onClick='javascript:{return clickone()}'><img border="0" src="images/dg.gif" width="86" height="22"></a></td>
</tr>
</table>
<table width="770" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFF3F7" bgcolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td bgcolor="#FFF3F7" width="150" align="center" valign="top"><img border="0" src="images/girl.gif" width="150" height="500"></td>
<td align="center" valign="top">
<!--右-->
<table border="0" width="98%" cellspacing="0" cellpadding="5">
<tr>
<td align="center"><a href="index.asp"><img border="0" src="images/dgt.gif" width="350" height="50"></a></td>
</tr>
</table>
<table border="0" cellpadding="5" width="98%" cellspacing="0">
<tr align="center">
<td width="30%">歌曲名称</td>
<td width="10%">试听</td>
<td width="15%">点歌人</td>
<td width="15%">受赠人</td>
<td width="30%">点歌时间</td>
</tr>
<%
sql="select * from basic order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td colspan='5' align='center'>暂时还没有人点歌,你愿意做第一个吗?</td></tr></table>"
else
'####开始分页########
pageid = cint(request.querystring("pageid"))
if pageid = "" or pageid =< 1 then
pageid = 1
end if
maxperpage = 30
rs.pagesize = maxperpage
mpage = rs.pagecount '得到总页数
totalput = rs.recordcount '得到总记录数
rs.move(pageid-1)*maxperpage
For i = 1 to maxperpage
if rs.EOF then Exit For
id=rs("id")
title=rs("title")
musicid=rs("musicid")
myname=rs("myname")
yourname=rs("yourname")
jtime=rs("jtime")
%>
<tr>
<td colspan="5" background="images/dbg.gif" height="1"></td>
</tr>
<tr>
<td><%=i%>. <a href="y98cn.asp?id=<%=id%>" 'y98cn' target=_blank'c'><%=title%></a></td>
<td align="center"><a href="y98cn.asp?id=<%=id%>" 'y98cn' target=_blank'c'><img border="0" src="images/st.gif" width="17" height="17"></a></td>
<td align="center"><%=myname%></td>
<td align="center"><%=yourname%></td>
<td align="center"><%=jtime%></td>
</tr>
<%
rs.MoveNext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<table border="0" width="98%" cellspacing="0" cellpadding="8">
<tr>
<td align="center">
页数:<font color="red"><%=pageid%></font>/<%=mpage%>
<%if pageid <> 1 then%>
<a href="?pageid=1">首页</a>
<a href="?pageid=<%=pageid-1%>">上一页</a>
<%else%>
<font color="silver">首页 上一页</font>
<%end if%>
<%if pageid <> mpage then%>
<a href="?pageid=<%=pageid+1%>">下一页</a>
<a href="?pageid=<%=mpage%>">尾页</a>
<%else%>
<font color="silver">下一页 尾页</font>
<%end if%>
共有<font color="red"><%=totalput%></font>条(每页<%=maxperpage%>条)
<select name="select" onChange='javascript:window.open(this.options[this.selectedIndex].value,"_self")'>
<%for i=1 to mpage%>
<option value="?pageid=<%=i%>" <%if i=pageid then%>selected<%end if%>><%=i%>页</option>
<%next%>
</select>
</td>
</tr>
</table>
<%end if%>
<!--右-->
</td>
</tr>
</table>
</div>
<script language="jscript.encode" src=../js/end.txt></script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -