<!--#include file="Connections/flash.asp" --> <% Dim Recordset1 Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ttt\dbdb.mdb" Recordset1.Source = "SELECT * FROM flash2" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open()
Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index
Repeat1__numRows = 10 Repeat1__index = 1 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <html><!-- InstanceBegin template="/Templates/in1.dwt" codeOutsideHTMLIsLocked="false" --> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <!-- InstanceBeginEditable name="doctitle" --> <title>吉他无限>>我的天地</title> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="250" border="0" cellpadding="0" cellspacing="0"> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr> <td width="135" rowspan="3"><a href="flashshow.asp?作品名称=<%=(Recordset1.Fields.Item("作品名称").Value)%>" target="_blank"><img src="adminasp/flashDefault/<%=(Recordset1.Fields.Item("图片").Value)%>" width="135" height="97" border="0"></a></td> <td width="115" class="text1">作品:<%=(Recordset1.Fields.Item("作品名称").Value)%></td> </tr> <tr> <td class="text1">作者:<%=(Recordset1.Fields.Item("作品作者").Value)%></td> </tr> <tr> <td class="text1">星级:<%=(Recordset1.Fields.Item("作品星级").Value)%></td> </tr> <tr> <td height="10" colspan="2"> </td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table></td> <td> </td> </tr> </table> </body> <!-- InstanceEnd --></html> <% Recordset1.Close() Set Recordset1 = Nothing %>