VB.NET sample of dynamic web scroller created from database

Download file>>

Here shows you VB.NET sample of dynamic web scroller created from database.

Part 1: Sample Instruction

To create a dynamic web scroller from database, you can input some condition clauses using either ASP, JSP, PHP, ASP.NET, ColdFusion or JavaScript language, that is, to input the Prefix or Suffix for a scroller item in the Condition Panel.

The illustration of the web scroller on the web server that supports VB.Net will be like below:

The final result that you are seeing is just got from database.

Part 2: Steps

The following are the steps of this example:

(Before creating the web scroller, you should make a database "SothinkProdut.mdb" containing the information of the product categories and the specific products.)

1. Create a scroller included one item. Enter Global > General panel and set the item's image area width and height. You'd better maintain aspect ratio of the original image. For example, here we set the item's image area width as 70 and image area height as 138.
   
   
2. Enter Item panel, select "HTML" and input <%=sName%> in the context box. Input <%=sImage%> in image field. Then input <%=sLink%> in link field.
   
   
   
3. Enter Popup Tip Panel, select "HTML" and input <%=sDesc%> in the context box.
   
   
   
4. Enter Condition Panel and input the prefix and suffix for the item.
   
   
   
   

   Note: when you add the condition, you may get a warning message in Sothink JavaScript Web Scroller. That's because the condition code is server-side code which can not be processed by the browser directly. The warning will not show when you add the scroller to an ASP page that is supported by server. You can uncheck "Preview > Enable Auto-Refresh" to avoid seeing the warnings.
   Tips: To prevent this error popping up, you can add the JavaScript comment delimiters /* and */ to the Prefix as well as Suffix. In that way the preview ignores the extra code and the code works well on the server side processing.

   For example:
   Prefix:
   /*
   <%@ Import Namespace="System.Data" %>
   <%@ Import NameSpace="System.Data.OleDb" %>
   <%
   Dim con As OleDb.OleDbConnection
   Dim strConnect As String="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\") & "\SothinkProdut.mdb;"
   con= New System.Data.OleDb.OleDbConnection(strConnect)
   dim rsCat as OleDb.OleDbDataAdapter = new OleDb.OleDbDataAdapter("select * from product",con)
   Dim dsCat As New DataSet
   Dim drCat As DataRow
   Dim dtCat As DataTable
   rsCat.Fill(dsCat)
   dtCat = dsCat.Tables(0)
   Dim i as Integer
   For i = 0 to dtCat.Rows.Count - 1
   drCat = dtCat.Rows(i)
   Dim sName = drCat("product_name")
   Dim sImage = drCat("image_path")
   Dim sLink = drCat("link")
   Dim sDesc = drCat("product_summary")
   %>
   */
   Suffix:
   /*
   <%Next i%>
   */

5. Publish the scroller as scroll_js.aspx.
   
   
   
   
   

Part 3: Code Explanation