程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> ASP+中取代ASP的RS(Remote Scripting)技術的Framework

ASP+中取代ASP的RS(Remote Scripting)技術的Framework

編輯:ASP技巧

asp+中取代ASP的RS(Remote Scripting)技術的Framework
Batman
在上面的文章裡面我提到了Page.IsPostBack屬性的一個應用,可以用來保存用戶輸入的
信息,下面我將介紹它的另外一個用處,那就是取代ASP中的RS(Remote Scripting)技術。
至於RS的基本概念和用法我已經在ASP版裡面有很多介紹了,它主要的優勢就是在不刷新
當前頁面的情況下和服務器端進行通信。但是由於它的底層是使用了Java技術,所以它用
起來還是顯得較為煩瑣,下面我就將介紹在ASP+中如何利用Page.IsPostBack來取代RS技術。
    按照我的習慣是喜歡用具體的例子來解釋問題,所以這次還是使用一個簡單的實例來說明
問題。下面這個例子中,將使用一個PRoducts.ASPx程序,它主要有兩個服務器端控件(Server-side
control),這是ASP+裡面引入的新的控件編程方式,一個是一個下拉框控件--'mudCategorIEs',
另外一個是列表框控件--'mudProducts'。這個例子將演示,列表框中的內容將跟隨下拉框中內容
的改變而改變,為了大家重現的方便,我將使用SQL Server中自帶的數據庫例子來實現。

Products.ASPx代碼如下:

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.ADO"%>
<script language="VB" runat="server">
Sub Page_Load (SourceObj as Object, EveArg as EventArgs)

If Not Page.IsPostBack Then   
    Dim mudCommand As ADODataSetCommand
    Dim mudConnection As ADOConnection
    Dim dSet As New DataSet
    Dim strSQL as String
    Dim connStr as String
           
    strSQL = "SELECT CategoryID, CategoryName From CategorIEs"
    connStr = "Provider = SQLOLEDB; Data Source=test; Initial Catalog=Northwind; User         ID=sa; passWord=;"

    mudConnection = New ADOConnection(connStr)       
    mudCommand = New ADODataSetCommand(strSQL,  mudConnection)       
    mudCommand.FillDataSet(dSet, "CategorIEs")           
    mudCategories.DataSource = dSet.Tables("Categories").DefaultVIEw
    mudCategorIEs.DataBind()
End If
End Sub

Sub displayProducts (Source as Object, EveArg as EventArgs)

    Dim mudCommand As ADODataSetCommand
    Dim mudConnection As ADOConnection
    Dim dSet As New DataSet
    Dim strSQL as String
    Dim connStr as String
   
    connStr = "Provider = SQLOLEDB; Data Source=test; Initial Catalog=Northwind; User     ID=sa; passWord=;"
       
    strSQL = "Select ProductID, ProductName From Products"
    strSQL = strSQL & " WHERE CategoryID = " & mudCategorIEs.SelectedItem.Value
       
    mudConnection = New ADOConnection(connStr)   
    mudCommand = New ADODataSetCommand(strSQL,  mudConnection)       
    mudCommand.FillDataSet(dSet, "Products")           
    mudProducts.DataSource = dSet.Tables("Products").DefaultVIEw
    mudProducts.DataBind()
End Sub
   
</script>
<Html>
<form name="mudForm" runat="server">
   
產品目錄:
<ASP:DropDownList id="mudCategories" runat="server" DataTextField="CategoryName" DataValueFIEld="CategoryID" AutoPostBack="true" OnSelectedIndExchanged="displayProducts"/>
產品: <ASP:ListBox id="mudProducts" SelectionMode="Multiple" DataValueField="ProductID" DataTextFIEld="ProductName"  runat="server" />
</Html>

    從例子程序可以看到,其中顯然是使用了服務器端控件的下拉框OnChange事件配合AutoPostBack和
Page.IsPostBack屬性就可以很簡單和清晰的實現了以前在ASP中煩瑣的RS實現方法。
呵呵,希望大家從上面的這個例子中有所收獲。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved