我想把从access里读取的一条新闻,分为若干页显示(因为内容过多),该如何实现呢,下面是读取的代码,谢谢!
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
'执行绑定
Dim conn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("adminen/wwwlink.mdb")) '建立Connection对象
Dim strSql As String
strSql="Select * From News Where link_id=" & Request.QueryString("link_id") '建立查询语句
Dim cmd As New OleDbCommand(strSql, conn1) '建立Command对象
conn1.Open() '打开数据库连接
Dim dr As OleDbDataReader = cmd.ExecuteReader() '建立DataReader对象
MyRepeater.DataSource = dr '指定数据源
MyRepeater.DataBind() '执行绑定
conn1.Close()
End Sub
</script>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
'执行绑定
Dim conn1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("adminen/wwwlink.mdb")) '建立Connection对象
Dim strSql As String
strSql="Select * From News Where link_id=" & Request.QueryString("link_id") '建立查询语句
Dim cmd As New OleDbCommand(strSql, conn1) '建立Command对象
conn1.Open() '打开数据库连接
Dim dr As OleDbDataReader = cmd.ExecuteReader() '建立DataReader对象
MyRepeater.DataSource = dr '指定数据源
MyRepeater.DataBind() '执行绑定
conn1.Close()
End Sub
</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货