asp.net代码记录

ciaos

浏览: 305984 次
性别:
来自: 深圳

最近访客更多访客>>

smoking_boy

yangyongjie

muyuan

dongguangming88

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

test.aspx 源代码如下

<%@ page language="VB" debug="true" src="vbCb.vb" inherits="myVbCodeBehind.vbCb" %>
<html>
	<head></head>
	<body>
		<form runat="server">
			Select a flower, and click the submit button please: <br>
			<asp:ListBox id="lstFlowers" runat="server" rows="3">
			</asp:ListBox><br><br>
			<asp:Button id="btnSubmit" runat="server" text="Submit" onclick="showSelection" /><br><br>
			<asp:Label id=lblMessage runat="server" />
		</form>
	</body>
</html>

后端 vbCb.vb 代码如下

Option Strict Off
Imports System
Imports System.Web.UI.WebControls
Namespace myVbCodeBehind
	Public Class vbCb : Inherits System.Web.UI.Page
		Public lstFlowers As System.Web.UI.WebControls.ListBox
		Public lblMessage As System.Web.UI.WebControls.Label
		Public btnSubmit As System.Web.UI.WebControls.Button
		Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
			If Not IsPostBack Then
				lblMessage.Text="No Selection Yet"
				lstFlowers.Items.Add(new ListItem("Tulip"))
				lstFlowers.Items.Add(new ListItem("Rose"))
				lstFlowers.Items.Add(new ListItem("Redbud"))
				lstFlowers.SelectedIndex=0
			End If
		End Sub
		Protected Sub showSelection(ByVal obj As Object, ByVal e As EventArgs)
			lblMessage.Text="You have selected " + _
				lstFlowers.SelectedItem.Text
		End Sub
	End Class
End Namespace

或者后端 cSharpCb.cs 代码如下

namespace myCsCodeBehind
{
	using System;
	using System.Web.UI.WebControls;
	public class cSharpCb : System.Web.UI.Page
	{
		public System.Web.UI.WebControls.ListBox lstFlowers;
		public System.Web.UI.WebControls.Label lblMessage;
		public System.Web.UI.WebControls.Button btnSubmit;
		protected void Page_Load(object sender, EventArgs e)
		{
			if (!IsPostBack)
			{
				lblMessage.Text="No Selection Yet";
				lstFlowers.Items.Add(new ListItem("Tulip"));
				lstFlowers.Items.Add(new ListItem("Redbud"));
				lstFlowers.Items.Add(new ListItem("Poppy"));
			}
		}
		protected void showSelection(object obj, EventArgs e)
		{
			lblMessage.Text="You have selected " +
			lstFlowers.SelectedItem.Text;
		}
	}
}

如果是cs代码，则test.asp首行需要设置为

<%@ page language="VB" debug="true" src="vbCb.vb" inherits="myVbCodeBehind.vbCb" %>

也可以编译为dll(放在网站根目录bin文件夹下)，只需要引用dll即可
vbc /out:vbCb.dll /t:library .\vbCb.vb
c#代码如下
csc /t:library /r:System.dll /r:System.Web.dll cSharpCb.cs

test.aspx首行如下
<%@ page language="VB" debug="true" codebehind=="vbCb.vb" inherits="myVbCodeBehind.vbCb" %>
<%@ page language="cs" debug="true" codebehind="cSharpCb.cs" inherits="myCsCodeBehind.cSharpCb" %>

分享到：