📄 selection.aspx

📁 聊天聊天聊天聊天聊天聊天

💻 ASPX

字号:

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Register TagPrefix="Hersh" TagName="nav" Src="nav.ascx" %>
<html>
    <script language="VB" runat="server">
	Dim myConnection As OleDbConnection
	Dim myCommand    As OleDbDataAdapter
	Dim ds           As New DataSet
	Dim ConnStr      As String
	Dim SQL          As String
	Sub Page_Load(Source As Object, E As EventArgs) 
	   ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
	   myConnection = New OleDbConnection(ConnStr)      
	    if NOT (isPostBack)
	    	rebind
	    end if	
  	End Sub
	Sub SubmitBtn_Click(sender As Object, e As EventArgs) 
	    Session("TheSelectionText")= Selection.SelectedItem.Text
	    Session("TheSelectionValue")= Selection.SelectedItem.Value
	    Response.Redirect("Transactions.aspx")

	End Sub
    	Sub ReBind()
	    'DataSetCommand
	   SQL = "Select * from masters where code_category   in (604,605) order by code_display"
	    myCommand = New OleDbDataAdapter(SQL, myConnection)
	    'use Fill method of DataSetCommand to populate dataset
	    myCommand.Fill(ds, "Masters")
	    Selection.DataSource=ds.Tables("Masters").DefaultView
	    Selection.DataBind()
    	End Sub
    </script>
    <body style="font: 10pt verdana; background-color:beige">
       <!---- Navigation Start-------------->
                   <Hersh:nav id="menu" runat = server 
                   vGridlines = Both
                   vBorderColor = "Black"
                   vCellPadding = 7 />
       <!---- Navigation Ends-------------->
     <h3><font face="Verdana">Financial Account Selection</font></h3>
       <form  runat="server"  >  
	Select Cash or Bank Account :</B><asp:DropDownList DataTextField = "code_display"
	DataValueField = "code_value"  id="selection" runat="server"  />  
	<asp:Button  text="Go"  runat="server" OnClick="SubmitBtn_Click" />
       </form>
    </body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -