📄 index.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.keyword.value=="")
{
alert("请输入想查询的内容！");
document.search.keyword.focus();
return false;
}
return true;
}
-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link rel="stylesheet" href="style.css" type="text/css">
<%
dim rs
MaxPerPage=rs("duo")
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim ty
if isempty(request("youid")) or request("youid")="" then
addtion=""
else
addtion="&youid=" & request("youid")
end if
typeid=request("typeid")
typename="图吧"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=0
end if
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&typeid&""
rstype.open typesql,conn,1,1
if not rstype.eof then
typename1=rstype("type")
else typename1="全部贺卡"
end if
rstype.close
set rst=server.CreateObject("ADODB.RecordSet")
%>
<%
dim sql
if typeid=0 then
sql="select learning.*,type.type from learning,type where learning.typeid=type.typeid order by learning.articleid desc"
else
sql="select learning.*,type.type from learning,type where learning.typeid=type.typeid and learning.typeid="&typeid&" order by learning.articleid desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 歌 曲 </p>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<title>凭栏小乐</title>
<body bgcolor="#999999" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td height="60" bgcolor="#FFFFFF"><a href="http://219.138.4.92" target="_blank"><img src="IMAGES/TOP.gif" width="750" height="80" border="0"></a></td></tr>
</table><table width="748" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#686F51">
<tr> <td> <table width="748" border="0" cellspacing="0" cellpadding="0"> <tr>
<td> <table width="748" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="200" bgcolor="#EFEFEF" valign="top" background="IMAGES/line.gif">
<table width="170" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td> <table width="100%" border="0" cellspacing="1" cellpadding="0"> <tr>
<td valign="middle" height="120"> <div align="center">歌曲查询
</div><table width="150" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td> <form action="search.asp" method="post" name="search" onSubmit="return checkinput()">
<input type="text" name="keyword" size="16" maxlength="30" onFocus=this.value='' class="put">
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tbody> <tr> <td height="3"></td></tr>
</tbody> </table><select name="typeid" class="put"> <option selected value="0">全部歌曲</option>
<%
rst.open "select * from type",conn,1
do while NOT rst.EOF
%> <option value="<%=rst("typeid")%>"><%=rst("type")%></option> <%
rst.MoveNext
loop
rst.close
%> </select>
<input type="image" src="images/search-ico.gif" align="absmiddle" width="51" height="22" title="查询" id=Image1 name=Image1>
</form></td></tr> </table></td></tr> </table></td></tr> </table><table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td> <div align="center"><a href="index.asp?typeid=1"><img src="IMAGES/guo.gif" width="130" height="30" border="0"></a></div></td></tr>
<tr> <td> <div align="center"><a href="index.asp?typeid=2"><img src="IMAGES/yue.gif" width="130" height="30" border="0"></a></div></td></tr>
<tr> <td> <div align="center"><a href="index.asp?typeid=3"><img src="IMAGES/eng.gif" width="130" height="30" border="0"></a></div></td></tr>
<tr> <td> <div align="center"><a href="index.asp?typeid=4"><img src="IMAGES/other.gif" width="130" height="30" border="0"></a></div></td></tr>
<tr> <td> <div align="center"> </div></td></tr>
</table>
<table cellSpacing="0" cellPadding="0" width="180" align="center" border="0">
<tr>
<td height="20">
<div align="center">
<font color="#666666">点击"歌曲名称"播放歌曲</font></div>
</td>
</tr>
<tr>
<td height="20">
<div align="center">
<font color="#666666">点击"点播"为好友点歌</font></div>
</td>
</tr>
<tr>
<td height="20">
<div align="center">
<font color="#666666">以下是最新的点歌信</font></div>
</td>
</tr>
</table>
<table width="180" border="0" cellspacing="0" cellpadding="0" align="center" height="160">
<tr> <td> <table width="180" border="0" cellspacing="0" cellpadding="0" align="center" height="160">
<tr> <td> <table width="190" border="0" cellspacing="0" cellpadding="0" align="center" height="160">
<tr> <td height="160"><iframe src=movie.asp noresize scrolling=no frameborder=0 width=180 height=165 hspace="0" vspace="0" marginheight="0"></iframe>
</td></tr> </table></td></tr> </table></td></tr> </table>
<BR><div align="center"> <a href="http://fm974.tom.com/zip/rp8-cn-setup.exe" target="_blank"><img src="IMAGES/realplay.gif" width="77" height="28" border="0"></a><br>
<br> <a href="http://fm974.tom.com/zip/rp8-cn-setup.exe" target="_blank">播放器下载</a><br>
</div></td><td bgcolor="#E8EAEF" valign="top"> <TABLE WIDTH="548" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD> </TD></TR></TABLE><table width="460" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td width="530" colspan="2"> <table border="0" cellspacing="0" cellpadding="1" width="100%" align="center">
<tbody> <tr> <%
i=0
do while not rs.eof
id1=right(rs("images1"),2)
if id1="p3" then id2="rplay.asp"
if id1="rm" then id2="rplay.asp"
if id1="ma" then id2="play.asp"
if id1="p3" then id3="ram"
if id1="rm" then id3="ram"
if id1="ma" then id3="wma"
%> <td> <table border="0" cellspacing="0" cellpadding="1" width="100%"> <tbody>
<tr> <td> <table border="0" cellspacing="0" cellpadding="0" >
<tbody> <tr> <td height="22" >
<a href="write.asp?id=<%response.write rs("articleid") & addtion %>" target="_blank"><font color="#006699">【点播】</font></a></td>
<td height="22" width="20">
<img border="0" src="IMAGES/doc.gif"></td> <td height="22" ><a href="#" onClick="MM_openBrWindow('play/<%=id2%>?articleid=<%=rs("articleid")%>','music','width=369,height=213')" title=歌手：<%=rs("singer")%> 点击：<%=rs("hits")%>><%=rs("title")%></a></td></tr> <tr>
</tr>
</tbody> </table></td></tr> </tbody> </table><%
if i mod 2 <> 0 then
%> </tr> <tr> <%end if%> <%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
if rs.eof then exit do
loop
%> </tr> </tbody> </table><%
end sub
function showpage1(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""530"" align=""center"" height=30><tbody>"
%> <tr> <td width="300"> <form action=<%response.write ""&filename&"?typeid="&typeid&""%> method="POST">
<%
response.write "<tr>"
Response.Write "共有歌曲: <b><font color=""red"">"&totalnumber&"</font></b> 首 页次: <font color=""red""><b>"&CurrentPage&"</b> / <b>"&n&"</b></font> 页 "
if CurrentPage<2 then
response.write "首页 上一页 "
else
response.write "<a href="&filename&"?typeid="&typeid&"&page=1&>首页</a> "
response.write "<a href="&filename&"?typeid="&typeid&"&page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 末页"
else
response.write "<a href="&filename&"?typeid="&typeid&"&page="&(CurrentPage+1)
response.write ">下一页</a> <a href="&filename&"?typeid="&typeid&"&page="&n&">末页</a>"
end if
%> 转到 <input type="Text" name="page" value="<%=CurrentPage%>" size="3" maxlength="3" class="put">
页 </form></table></td></tr> </table></td></tr> </table></td></tr> </table><table width="746" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> <td> </td></tr> </table><div align="center">
</div><%
end function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -