怎样在一个模块里实现数据滚动,在线等,马上给分

[niweien]

一个网站页面的模块
实现新增会员的数据滚动和链接
链接进去以后是会员的详细信息
会员的信息从数据库的一个表里读取
具体用什么方式实现

[Intel8088]

<marquee onmouseover="this.stop()" style="Z-INDEX: 101; LEFT: 0px; WIDTH: 234px; POSITION: absolute; TOP: 5px; HEIGHT: 132px" onmouseout="this.start()" scrollAmount="1" scrollDelay="100" direction="up" width="234" height="132"><asp:datalist id="dl1" runat="server" BackColor="InactiveCaptionText">
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#339966"></SelectedItemStyle>
<ItemStyle Font-Size="9.5pt" Font-Names="新宋体" ForeColor="#333333" BackColor="InactiveCaptionText"></ItemStyle>
<ItemTemplate>
<FONT face="宋体"></FONT><font color="blue">>></font> <A style="FONT-SIZE: 9.5pt; CURSOR: hand; COLOR: blue; TEXT-DECORATION: none" href='hr04.aspx?id=<%# DataBinder.Eval(container,"DataItem.id") %>'>
<%# DataBinder.Eval(Container, "DataItem.zw_name") %>
   
<%# DataBinder.Eval(Container, "DataItem.zw_date","{0:d}") %>
</A>
</ItemTemplate>
<FooterStyle ForeColor="#333333" BackColor="InactiveCaptionText"></FooterStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="InactiveCaptionText"></HeaderStyle>
</asp:datalist></marquee>


这是后码代码：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim sqlConn As New SqlClient.SqlConnection()
Dim sqlSelectStr As String = "select top 5 id,zw_name,zw_date from human"
sqlConn.ConnectionString = "Server=你的服务器;Database=数据库;uid=用户;pwd=密码"
sqlConn.Open() ''打开数据库连接
'--------------------------------------------
Dim sqlDA As New SqlClient.SqlDataAdapter(sqlSelectStr, sqlConn)
''-----------------------------------------------
Dim produceDS As New DataSet()
sqlDA.Fill(produceDS, "human")
dl1.DataSource = produceDS.Tables("human").DefaultView
dl1.DataBind()
sqlConn.Close()
'---------------------------------------------------
End Sub

[waynenee]

用DataList可以实现
楼上的方式可以的

[极客行天下]

楼主的意思是要想要页面信息总是最新是吗？