es On Error Resume Next tbContent = Replace(tbContent,Match.Value, _DataSource(Mid(Match.Value,2,Len(Match.Value)-2)),1) Next end if Response.Write(tdStart) Response.Write(tbContent) Response.Write(tdEnd) Next Response.Write("</tr>" & vbCrLF) DataSource.MoveNext Next ''''Draw Pageing Row if DataSource.PageCount > 1 and LCase(pageingStyle) <> "none" then Dim i response.write("<tr>") response.write("<td colspan=" & Columns.Count & " " & PageingStyle & ">") for i=1 to DataSource.PageCount if i <> CurPage then response.write("<a href=''''" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & i & "''''>" ) end if response.write(i) if i <> CurPage then response.write("</a>") end if response.write(" ") next response.write("</td></tr>" & vbCrLf) end if ''''Draw Table end Response.Write("</table>") end sub End Class ''''users Like { UserID,LoginName,Password,RealName,Age,Gender,} ''''initDB ''''Rs.Open "Select * from users",Cn ''''Dim tbGrid1 ''''Set tbGrid1 = New TBGrid ''''Set tbGrid1.DataSource = Rs ''''tbGrid1.Columns.add "LoginName","用户名" ''''tbGrid1.ItemStyle.add "Password","align=right" ''''tbGrid1.ItemStyle.add "修改","width=100" ''''tbGrid1.AddTemplate "修改","<a href=''''aaa.asp?id={UserID}''''><font color=red>{RealName}</font></a>" ''''tbGrid1.Columns.add "Password","密码" ''''tbGrid1.PageSize = 5 ''''tbGrid1.AllowPageing = true ''''tbGrid1.PageingStyle = "align=right" ''''tbGrid1.CurPage = CInt(Request("page")) ''''tbGrid1.Show() ''''CloseDB %>
On Error Resume Next
}
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
