Set Rs=CreateObject("Adodb.Recordset")
   Rs.open SqlStr,Conn,1,1
   FN=Rs.Fields.Count
   RC=Rs.RecordCount
   Rs.PageSize=20
   Count=Rs.PageSize
   PN=Rs.PageCount
   Page=request("Page")
   If Page<>"" Then Page=Clng(Page)
   If Page="" Or Page=0 Then Page=1
   If Page>PN Then Page=PN
   If Page>1 Then Rs.absolutepage=Page
   SI=SI&"<table><tr height=25 bgcolor=#cccccc><td></td>"
   For n=0 to FN-1
   Set Fld=Rs.Fields.Item(n)
   SI=SI&"<td align='center'>"&Fld.Name&"</td>"
   Set Fld=nothing
   Next
   SI=SI&"</tr>"
  
   Do While Not(Rs.Eof or Rs.Bof) And Count>0
   Count=Count-1
   Bgcolor="#EFEFEF"
   SI=SI&"<tr><td bgcolor=#cccccc><font face='wingdings'>x</font></td>"
   For i=0 To FN-1
   If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if
   If RC=1 Then
   ColInfo=HTMLEncode(Rs(i))
   Else
   ColInfo=HTMLEncode(Left(Rs(i),50))
   End If
   SI=SI&"<td bgcolor="&Bgcolor&">"&ColInfo&"</td>"
   Next
   SI=SI&"</tr>"
   Rs.MoveNext
   Loop
 

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象