📄 favorite.asp
字号:
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<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>
<%
Server.ScriptTimeOut=500
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 favorite"
RS.Open strSQL,conn,1,1
Do while not RS.EOF
%>
<tr>
<%
For i=1 to 6
%>
<td width="16%" height="100" align="center">
<a href="playlist.asp?user=<%=RS("user")%>"><img border="0" src="images/folder.jpg"><br><%=RS("user")%></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 + -