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
%>
上一页 [1] [2] [3] [4] |
