html
创新互联于2013年创立,是专业互联网技术服务公司,拥有项目网站建设、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元新巴尔虎右做网站,已为上家服务,为新巴尔虎右各地企业和个人服务,联系电话:18982081108
head
�script language="VB" runat="server"
��Sub Page_Load(sender As Object, e As EventArgs) '在页面加载时发生的事件
���If Not IsPostBack Then '如果不是IsPostBack的话
����Dim values as ArrayList= new ArrayList() '新建一个名为values的数组列表
'以下代码中,往values中添加项目
����values.Add ("北京")
����Values.Add ("上海")
����Values.Add ("天津")
����Values.Add ("哈尔滨")
'设置下拉列表框的数据源为values
����DropDown1.DataSource = values
����DropDown1.DataBind
���End If
��End Sub
�/script
/head
body
�form runat="server"
���asp:DropDownList ID="DropDown1" runat="server" /
�/form
/body
/html
html
head
��script language="VB" runat="server"
����Sub Page_Load(sender As Object, e As EventArgs) '在页面加载时发生的事件
������If Not IsPostBack Then '如果不是IsPostBack的话
��������Dim values as ArrayList= new ArrayList() '新建一个名为values的数组列表
'以下代码中,往values中添加项目
��������values.Add (0)
��������values.Add (1)
��������values.Add (2)
��������values.Add (3)
��������values.Add (4)
��������values.Add (5)
��������values.Add (6)
'设置下拉列表框的数据源为values
��������DataList1.DataSource = values
��������DataList1.DataBind
������End If
����End Sub
定义一个名为EvenOrOdd的函数,参数有number,返回一个字符串
����Function EvenOrOdd(number As Integer) As String
������If (number Mod 2 0) Then '如果number÷2的余数不等于0
�������Return "奇数" '返回“奇数”
������Else '否则
�������Return "偶数" '返回“偶数”
������End If
����End Function
��/script
/head
body
��form runat="server"
���asp:DataList id="DataList1" runat="server"
����BorderColor="#000000"
����BorderWidth="1"
����GridLines="Both"
����CellPadding="3"
����CellSpacing="0"
����
����ItemTemplate
�����数字值: %# Container.DataItem %
�����偶/奇: %# EvenOrOdd(Container.DataItem) %
����/ItemTemplate
���/asp:DataList
��/form
/body
/html
其他ASP的代码实在不懂了
在紧挨着类或成员的上一行打三个单引号,自动生成XML注释。
你可以使用para来换行。
使用see cref来标明参考项。
首先选取你要注释的文本块,然后Ctrl-K Ctrl-C 这样对你选择的文本块完成注释.
而如果你要取消已完成注释的文本块,则Ctrl-K Ctrl-U即可。
Private Sub cmdDel_Click() '"删除"命令按钮 Dim res As Integer '定义变量res res = MsgBox("确实要删除此行记录?", _ vbExclamation + vbYesNo + vbDefaultButton2) '调用MsgBox弹出是否对话框,将用户点选结果返回res变量 If res = vbYes Then '若用户点击“是”按钮 AdodcCustomer.Recordset.Delete '将ADO数据库控件AdodcCustomer记录集的当前指针指向的记录删除 AdodcCustomer.Recordset.MoveNext '将ADO数据库控件AdodcCustomer记录集的当前指针向后移动一位 If AdodcCustomer.Recordset.EOF = True Then '若ADO数据库控件AdodcCustomer记录集的当前指针指向结尾 AdodcCustomer.Recordset.MoveLast '将ADO数据库控件AdodcCustomer记录集的当前指针移至末尾 End If '结束“If AdodcCustomer.Recordset.EOF = True Then”语句 End If '结束“If res = vbYes Then”语句 End Sub '结束“Private Sub cmdDel_Click()”过程
不能,只能一行一行带引号。不过可以用注释块。在菜单栏下面的工具条上点击右键,然后选择“编辑”把编辑工具栏调出来,此时选中你要注释的代码,单击“编辑”工具栏上的小手右边的那个按钮(设置注释块)即可。