📄 singer.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>HTTP://MMP3.KU.NET</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body><a href="main.htm"><img border="0" src="images/upper.jpg" width="30" height="20"></a>
<%
Server.ScriptTimeOut = 500
recPerPages = 6
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
Set RS = SERVER.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM singer where sort=" & Cint(Request("sort"))
RS.Open strSQL,conn,1,1
%>
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"><td width="16%" align="center"></tr>
<%
Do while not RS.EOF
%>
<tr>
<%
For i=1 to 6
%>
<td width="16%" height="100" align="center">
<a href="music.asp?name=<%=RS("name")%>&sort=<%=Request("sort")%>"><img border="0" src="images/folder.jpg"><br><%=RS("name")%></a>
</td>
<%
RS.MoveNext
If RS.EOF then
RS.MoveLast
Exit For
End If
Next
%>
</tr>
<%
RS.MoveNext
If RS.EOF then
RS.MoveLast
Exit Do
Else
RS.MovePrevious
End If
Loop
%>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -