📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'-----修改每页显示个数 Start--------
const MaxPerPage=20
'-----修改每页显示个数 End --------
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<title>心愿音乐网站</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/basic.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="function.js"></script>
<link href="pic/style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="670" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#34b481">
<td width="149" height="20" bgcolor="#34b481">
<div align="center"><a href="http://www.lt52.com"><font color="#FFFFFF">www.lt52.com</font></a></div></td>
<td width="112" height="20">
<div align="center"><a href="http://flash.lt52.com" class="BigMenu"><font color="#FFFFFF">FLASH频道</font></a></div></td>
<td width="100" height="20">
<div align="center"><font color="#3300FF">音乐频道</font></div></td>
<td width="100" height="20">
<div align="center"><a href="http://www.lt52.com/xz" class="BigMenu"><font color="#FFFFFF">星座物语</font></a></div></td>
<td width="100" height="20">
<div align="center"><a href="http://web.lt52.com" target="_blank"><font color="#FFFFFF">上网导航</font></a></div></td>
<td width="102" height="20">
<div align="center"><a href="http://bbs.lt52.com" class="BigMenu"><font color="#FFFFFF">超级论坛</font></a></div></td>
</tr>
</table>
<br>
<table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20">
<div align="center"><a href="index.asp?px=id">歌曲首页</a> <a href="index.asp?px=isgood">推荐歌曲</a>
<a href="index.asp?px=hit">top歌曲</a> <a href="index.asp#1">上传歌曲</a></div></td>
</tr>
</table>
<br>
<table width="670" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#34b481">
<td height="25"><font color="#FFFFFF">歌曲</font></td>
<td><font color="#FFFFFF">作者</font></td>
<td><font color="#FFFFFF">试听</font></td>
<td><font color="#FFFFFF">人气</font></td>
<td><font color="#FFFFFF">(大小)</font></td>
<td bgcolor="#34b481"><font color="#FFFFFF">时间</font></td>
</tr>
<tr bgcolor="#f4fbf8">
<td height="25" colspan="8">
<%
px=request("px")
if px ="" then
px=id
end if
singer=request("singer")
'lei=replace(request("lei"),"'","’")
'typ1=replace(request("typ1"),"'","’")
'search=replace(request("search"),"'","’")
'diqu=request("dq")
set rs=server.createobject("adodb.recordset")
sql="select * from book"
if singer<>"" then sql=sql & " where strUser like '%"&singer&"%'"
Select case px
case "isgood"
sql=sql & " Order by isgood asc"
case "hit"
sql=sql & " Order by hit DESC"
case "id"
sql=sql & " Order by id DESC"
End Select
'if lei<>"" then sql=sql + " and sfid="&lei&""
'if typ1<>"" then sql=sql + " and lx="&typ1&""
'if diqu<>"" then sql=sql + " and dq like '%"&diqu&"%'"
'if search<>"" then sql=sql + " and bt like '%"&search&"%'"
'if sfid<>"" then sql=sql + " and sfid="&sfid&""
'if cs<>"" then sql=sql + " and cs='"&cs&"'"
'sql=sql + " order by xid DESC"
rs.open sql,strDconn,1,1
if rs.eof and rs.bof then
Response.Write "<center><font color=red>还没有添加歌曲。</font></center>"
else
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
showpage 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
showpage totalput,MaxPerPage,"index.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
%>
</td>
</tr>
<form action="" name="form1" method="post">
<%do while not rs.eof%>
<tr bgcolor="#f4fbf8">
<td height="25" align="center"><div align="left"><a href="UpLoadFile/player.asp?id=<%=rs("id") %>" target="_blank1"><%=rs("strMessage")%><img src="pic/audio.gif" width="11" height="11" border="0">
</a></div></td>
<td height="25"><a href="index.asp?singer=<%=rs("strUser")%>"><%=rs("strUser")%></a></td>
<td align="center">
<%
if rs("strSize1")<>0 then response.Write("<a href='UpLoadFile/player.asp?id="&rs("id")&"' target='_blank1'><img src='pic/wma.gif' width='26' height='12' border='0'></a><br>")
if rs("strSize2")<>0 then response.Write("<a href='UpLoadFile/player.asp?id="&rs("id")&"' target='_blank1'><img src='pic/wma.gif' width='26' height='12' border='0'></a>")
%>
</td>
<td align="center"><%=rs("hit")%> </td>
<td align="center"><%=rs("strSize1")/1000%>k</td>
<td align="center"><%=datevalue(rs("datePost"))%></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</form>
<tr bgcolor="#f4fbf8">
<td height="25" colspan="8">
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="""&filename&"""><tr><td align=right> "
if CurrentPage<2 then
response.write "共<b><font color=red>"&totalnumber&"</font></b>首歌曲 首页 上一页 "
else
response.write "共<b><font color=red>"&totalnumber&"</font></b>首歌曲 <a href="&filename&"?page=1&px="&px&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&px="&px&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&px="&px&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&px="&px&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条信息/页 "
%>
转到：
<%
response.write "</td></tr></FORM></table>"
end function
%>
</td>
</tr>
</table>
<table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" bgcolor="#f4fbf8">
<div align="center"><a name="1"></a> <font color="#336600"><strong>心愿网站非常感谢你能把好听的歌曲与大家分享！</strong></font>
</div></td>
</tr>
</table>
<table width="670" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<form method=post action="upload1.asp" enctype="multipart/form-data" name="form1">
<tr bgcolor="#34b481">
<td width="180" height="17" align="center"><font color="#FFFFFF">网友上传</font></td>
<td align="center"><font color="#FFFFFF">内容</font></td>
</tr>
<tr bgcolor="#f4fbf8">
<td width="180" height="17" align="center">作者昵称:</td>
<td> <input name="intro" type="text" size="10" maxlength="8">
（8字以内） </td>
</tr>
<tr bgcolor="#f4fbf8">
<td align="center">作品名称:</td>
<td> <input name="intro2" type="text" value="" size="30"></td>
</tr>
<tr bgcolor="#f4fbf8">
<td align="center">作品分类:</td>
<td> <select name="fenlei" id="select">
<option value="国语歌曲">国语歌曲</option>
<option value="粤语歌曲">粤语歌曲</option>
<option value="英语歌曲">英语歌曲</option>
<option value="日语歌曲">日语歌曲</option>
<option value="韩语歌曲">韩语歌曲</option>
<option value="其他歌曲">其他歌曲</option>
</select></td>
</tr>
<tr bgcolor="#f4fbf8">
<td width="180" align="center">上传1</td>
<td> <input type="file" name="photo">
允许只支持mp3/wma/asf/rm/ram文件</td>
</tr>
<tr bgcolor="#f4fbf8">
<td align="center">上传2</td>
<td> <input type="file" name="photo2">
允许最大文件为2M(5000*1024字节)</td>
</tr>
<tr bgcolor="#f4fbf8">
<td width="180" align="center"> </td>
<td> <input type="submit" name="Submit" value="上 传"> <input type="reset" name="Submit2" value="重 设">
非常感谢你能把好听的歌曲与大家分享！ </td>
</tr>
</form>
</table>
<br>
<table width="670" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td align="center"><hr size=1 width=100%></td>
</tr>
<tr>
<td align="center">心愿网络</td>
</tr>
<tr>
<td align="center">Powered by 心愿网络(<a href="http://www.lt52.com/" target="_blank">www.lt52.com</a>)</td>
</tr>
</table>
</body>
</html>
<%
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -