index.asp
来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 144 行
ASP
144 行
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel=stylesheet type=text/css>
<title>点歌台</title>
<script language="javascript">
<!--
function mp(htmlurl){
var
newwin=window.open(htmlurl,"52050004","top=2,left=2,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=440,height=550");
newwin.focus();
return false;
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<div align="center">
<table width="449" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td width="449" align="center" valign="top">
<!--右-->
<table border="0" width="430" cellspacing="0" cellpadding="5">
<tr>
<td align="right"> </td>
<td align="center"> </td>
</tr>
<tr>
<td width="309" align="right"><a href="index.asp"><img border="0" src="images/dgt.gif" width="186" height="47"></a></td>
<td width="101" align="center"><a href="add.asp"><img border="0" src="images/dg.gif" width="86" height="22"></a></td>
</tr>
</table>
<table border="0" cellpadding="5" width="430" 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 = 10
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 align="center"> <%=title%></td>
<td align="center"><a href="music.asp?id=<%=id%>" onClick='return mp(this.href);'><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="430" 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>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?