皮皮网
皮皮网

【城赚宝源码】【小优传奇源码】【生死狙击透视源码】aspx控件源码_aspx控件中属性怎么设置

来源:110源码 发表时间:2024-11-30 00:46:35

1.aspx文件怎么打开 aspx文件打开方法介绍
2.asp与aspx的区别
3.100分求一个用VB.net做的控件控件简单网页的代码,谢谢!源码!中属置!性设

aspx控件源码_aspx控件中属性怎么设置

aspx文件怎么打开 aspx文件打开方法介绍

       aspx怎么运行?后缀为.asp或.aspx的控件控件文件是用什么软件编写的?axpx文件是什么?如何打开后缀为RPX文件?如何查找自己的建筑资格证?未能加载类型的问题怎么解决?mc怎么安装驱动?aspx怎么运行?

       1、打开IIS,源码城赚宝源码(没有安装则要到添加删除程序里安装)

       2、中属置找到默认网站,性设右键点击

       3、控件控件在弹出的源码菜单中选择新建--虚拟目录

       4、按照向导提示完成向导,中属置具体方法如下:1)、性设跳过欢迎界面,控件控件随便启一个别名。源码(如\abcd\不含引号)2)、中属置提示寻找目录,找到你那个ASPX文件所在的目录。3)、权限按默认(前两个选择,后三不选)即可5)、向导完毕,打开默认网站前的+号6)、找到\abcd\(不含引号,刚才创建的目录别名),点击它7)、在右边的小优传奇源码窗口找到那个ASPX文件,右键点击,选择浏览。

       后缀为.asp或.aspx的文件是用什么软件编写的?

       楼主的问题分为两种情况:

       一、是直接下载或批量下载的.asp文件。这样只需要把扩展名改为.htm就可以用 IE打开。

       二、下载的是压缩包,解压后发现是.asp文件。此时需要在本地安装一个IIS才能查看到里面的内容。这种情况下,.asp即使用DW或记事本打开了,也只能看到一堆源代码。

       安装方法:在添加/删除程序中,选择添加/删除WINDOWS组件,再钩选Internet信息服务(IIS),点下一步,(可能需要插入系统盘)安装完成后把.asp文件拷到C:\\\\inetpub\\\\wwwroot,再打开IE,输入/s?wd=iis+%B0%B2%D7%B0cl=3

       axpx文件是什么?

       axpx文件是动态网页文件,属于ASP.NET技术。

       aspx文件是微软的在服务器端运行的动态网页文件,而不像静态的html文件。它通过IIS解析执行后可以得到动态页面,是微软推出的一种新的网络编程方法,而不是asp的简单升级,因为它的生死狙击透视源码编程方法和asp有很大的不同,他是在服务器端靠服务器编译执行的程序代码。

       ASP.NET是在服务器上运行的编译好的公共语言运行库代码。与被解释的前辈不同,ASP.NET可利用早期绑定、实时编译、本机优化和盒外缓存服务。这相当于在编写代码行之前便显著提高了性能。

       如何打开后缀为RPX文件?

       编辑词条ActiveReport  ActiveReport 是.net下的一个出色的报表开发程序,虽然和水晶报表相比,名气不那么大,甚至有很多人不知道它的存在,但是并不妨碍它在.net报表开发中的出色表现.  一. ActiveReports for .net的主要功能介绍  支持ASP.NET-ActiveReports在WebForms应用程序中通过使用ASP.NET 服务器控件来使用。这个控件支持分布式web报表,可使用HTML,ActiveX,.NET 和PDF浏览器。完全代码集成-使用Microsoft Visual Studio.NET编辑器用C#或VB.NET编写报表的代码,非常灵活。报表向导-报表向导帮助您开始创建使用集成设计器来定制的简单报表。设计器-对象模版完全显现的对象模版。允许您动态的建立和修改报表Report Creation API提供了完整的运行时访问报表对象和成员功能。最终用户报表设计器终端用户设计器为您提供了向您应用程序中加入设计器的功能,同时提供了终端用户报表编辑功能。控件的方法和属性能方便的存储和加载报表布局,监测和控制设计环境,dnf体验服源码并可根据终端用户的需要定制外观。与ASP.NET集成Web浏览器控件为您提供了web上的快速浏览ActiveReports 以及打印功能,并具有ActiveX浏览器和acrobat Reader 浏览器类型的属性。RPX 文件HTTP处理器为您提供了在web服务器上轻松的放置报表的功能,并可使您的Internet用户采用HTML 或PDF进行浏览,而不需要编写任何代码。编译的报表HTTP处理器提供了直接访问服务器的程序集中编译的ActiveReports,而不需要编写任何ASPX页面。发布-容易部署报表引擎是一个简单处理强名称程序集。程序集可以使用XCopy发布或放置于程序集全局存储器中(GAC)。专业版包括HTTP 处理器和服务器并行web控件,用于ASP.NET 报表。设计器-容易学习与.NET 环境完全集成熟悉的用户界面支持C#和Visual Basic.NET报表将作为您应用程序中的一部分进行编译,以加快处理速度,增强安全性,并且用户可以有选择的分别发布。初学者报表向导和Microsoft Access 报表导入向导设计器拥有第三方控件(图表控件,图像控件等)。数据访问-容易连接包括OLEDB和SqlClient报表数据源包括灵活的xml数据源绑定到Dataset,DataView,DataTable和任何IListSource 控件数据源属性能在运行时修改,生成ad hoc(动态)报表灵活的非绑定数据预览和输出-容易显示支持C#代码小型部署程序集,适用于Internet 上使用TOC/Bookmarks超链接输出过滤文件格式为RTF、pdf、EXCEL、HTML、话费充值分销源码TIFF 和文本文件。官方网站:   二.注册  下面代码放置在***.exe.config或者Web.config里面:    addkey=\DataDynamicsARLic\ value=\DD-APN--C,DD-APN--C,DD-APN--C,XY6Y7KQbtYKJCKJ\ /    每个方案旋转文件licenses.licx后,重新生成:  DataDynamics.ActiveReports.ActiveReport, ActiveReports, Version=1.2.., Culture=neutral, PublicKeyToken=dbef9fd8a 右边红线出现,是因为报表超出长度限定,如果那样打印的话,会多带出一张空白纸。  1 Left margin + right margin + printwidth must be less than the paper width  2 While right.margin 1.0 then it will appear  三.使用指南此控件目前的文档很少,参见参考资料,只能自己看SAMPLES或者下载E文文档  汉化ActiveReports 2.0界面  Public Sub Creport(AReport As ActiveReport)  汉化ActiveReport  以下适用2.0  With AReport  .ToolBar.Tools.Item(0).Tooltip = \各页目录\  .ToolBar.Tools.Item(2).Caption = \打印...\  .ToolBar.Tools.Item(2).Tooltip = \打印报表\  .ToolBar.Tools.Item(4).Tooltip = \拷贝\  .ToolBar.Tools.Item(6).Tooltip = \查找\  .ToolBar.Tools.Item(8).Tooltip = \单页显示\  .ToolBar.Tools.Item(9).Tooltip = \多页显示\  .ToolBar.Tools.Item().Tooltip = \缩小\  .ToolBar.Tools.Item().Tooltip = \放大\  .ToolBar.Tools.Item().Tooltip = \\  .ToolBar.Tools.Item().Tooltip = \\  .ToolBar.Tools.Item().Tooltip = \后退\  .ToolBar.Tools.Item().Caption = \后退\  .ToolBar.Tools.Item().Tooltip = \前进\  .ToolBar.Tools.Item().Caption = \前进\  End With  End Sub  四.如何发布 ActiveReports for .NET 程序集  有两种部署 ActiveReports 程序集的方法。每种方法根据您的安装方法而定。  如果您正将工程从开发计算机拷贝到您的服务器上,您需要将工程引用中的 ActiveReports 引用设置为 CopyLocal = True。这样 ActiveReports DLL 将在编译工程中的 bin 文件夹中。  如果您正为您的软件制作安装程序,您需要包含 ActiiveReportsDistrib.MSM 文件,该文件将包含在 ActiveReports for .NET 的安装中。例如,该文件可能被安装在C:\\Program Files\\Data Dynamics\\ActiveReports for .NET\\Deployment 文件夹中。  还有第三种方法来实现,但并不推荐。因为该方法比较复杂。您可以使用命令行工具来安装 GAC 中的每一个DLL。格式为:C:\\Program Files\\Microsoft Visual Studio .NET\\FrameworkSDK\\Bingacutil -i。

       如何查找自己的建筑资格证?

       建筑施工作业操作资格证有以下两种查询途径:

       1、登入中国建筑网建设通进行查询。

       2、登录出证地的安监局官方网站进行查询。

       特种作业操作证,由国家安全生产监督管理总局统一式样、标准及编号(但特种设备操作资格证格式与此不同)。

       特种作业证件至少有安监总局、质检总局、建设部考核并发证。

       未能加载类型的问题怎么解决?

       未能加载类型

       1、解决方法: 1.看看你上次修改程序后,是不是没有编译通过?如果没有编译通过,修改错误的代码。 2.删除原来的bin下面的dll文件(删除该程序生成的dll文件,引用的dll文件不要删除),在VS.NET中,选择生成-重新生成解决方案。然后,重新运行,看看是否成功。

       2、解决方法:如果更改了项目的根命名空间,比如叫xiaoniuge.MicroCMS,而当前项目又是在版本管理状态下,那应该用记事本打开Global.asax文件,把MicroCMS修改为xiaoniuge.MicroCMS即可。

       3、解决方法:今天又发现还有一种情况也会产生这种错误信息: 当项目中的某个.aspx或者.ascx文件被排除在项目外,而有些页面又需要调用这个文件的时候,也会产生这样的错误,此时,你可以将该文件包括到项目中,然后重新编译一下就可以了。

       4、解决方法:设置程序目录为虚拟目录 我也是网上找的,希望能够帮到你。

       mc怎么安装驱动?

       

       现在完成,解压软件,打开mastercam 文件夹

       

       打开mastercam 文件夹,双击打开launcher

       

       点击 Mastercam Installation。

       

       选择安装插件,mastercam必须安装,勾选过后点击next。

       

       点击Configure选择安装目录。点击next选择yes点击next。安装完成后点击exit退出。

       

       返回安装包文件夹,然后双击打开MCCRACK文件夹。

       

       双击合并注册表。点击是

       

       右键选择以管理员身份运行。

       

       等待驱动安装完成。点击开始菜单NHaspX。点击OK。

       

       返回安装包文件夹,打开mc汉化文件夹。右键以管理员身份运行。

       

       点击下一步,输入序列号:-点击下一步。

       

       点击下一步,选择典型,然后安装就行了

asp与aspx的区别

       asp的是用asp脚本写的

       aspx是用asp.net脚本写的,语法和功能差别很大的

       ASP是Active Server Page的缩写,意为“活动服务器网页”,ASP的网页文件的格式是.asp,现在常用于各种动态网站中。与HTML相比,ASP网页具有6大特点。

       ASP是Active Server Page的缩写,意为“活动服务器网页”。ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单、方便的编程工具。ASP的网页文件的格式是.asp,现在常用于各种动态网站中。 ASP是一种服务器端脚本编写环境,可以用来创建和运行动态网页或web应用程序。ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。利用ASP可以向网页中添加交互式内容(如在线表单),也可以创建使用HTML网页作为用户界面的web应用程序。

       ä¸ŽHTML相比,ASP网页具有以下特点:

       ï¼ˆ1)利用ASP可以实现突破静态网页的一些功能限制,实现动态网页技术;

       ï¼ˆ2)ASP文件是包含在HTML代码所组成的文件中的,易于修改和测试;

       ï¼ˆ3)服务器上的ASP解释程序会在服务器端制定ASP程序,并将结果以HTML格式传送到客户端浏览器上,因此使用各种浏览器都可以正常浏览ASP所产生的网页;

       ï¼ˆ4)ASP提供了一些内置对象,使用这些对象可以使服务器端脚本功能更强。例如可以从web浏览器中获取用户通过HTML表单提交的信息,并在脚本中对这些信息进行处理,然后向web浏览器发送信息;

       ï¼ˆ5)ASP可以使用服务器端ActiveX组建来执行各种各样的任务,例如存取数据库、发现哦那个Email或访问文件系统等。

       ï¼ˆ6)由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器,因此使用者不会看到ASP所编写的原始程序代码,可放置ASP程序代码被窃取。

       asp文件是微软的在服务器端运行的动态网页文件,通过IIS解析执行后可以得到动态页面,

       ã€€ã€€aspx文件跟asp差不多,是微软推出的一种新的网络编程方法,他不是asp的简单升级,因为他的编程方法和asp有很大的不同,他是在服务器端靠服务器编译执行的程序代码,

       ã€€ã€€ASP 使用脚本语言,每次请求的时候,服务器调用脚本解析引擎来解析执行其中的程序代码,而ASP.NET 则可以使用多种语言编写,而且是全编译执行的,比ASP 快,而且,不仅仅是快的问题,有很多优点。

       ã€€ã€€aspx文件都是文本形式的,可以用任何的文本编辑器打开,如notepad ,editplus,dreamwaver,frontpage

       ã€€ã€€ä½†ç¼–辑aspx文件最好用visual stdio.net来编辑。

       ã€€ã€€aspx是微软的一种asp.net网络语言。

       ã€€ã€€aspx就是.net技术,它的安全性比较高,它与java是两个不同的分类,各有所长.

       ã€€ã€€asp与aspx的区别

       ã€€ã€€.asp是asp的文件后缀名

       ã€€ã€€.aspx是asp.net的文件后缀名

       ã€€ã€€è¯´ç›´ç™½äº›ï¼Œè¿™ç§æ–‡ä»¶å°±æ˜¯åŠ¨æ€çš„网页~

       ã€€ã€€asp.net 又叫 asp+ 是动态网络编程的一种设计语言。

       ã€€ã€€æ‰€è°“动态网 就如 bbs 留言板 聊天室 等等```

       ã€€ã€€å¯ä»¥ç”¨ asp,php,jsp,asp.net 来写

       ã€€ã€€é‚£ä¹ˆä½ æåˆ°åˆ°çš„asp就是asp.net的前身了~~~

       ã€€ã€€å¦‚果你初学 建议直接学asp.net 他支持很多语言的编写 比如java c# vb.net 功能很强

       ã€€ã€€æ•ˆçŽ‡æ¯”asp高,visual studio.net支持编写,程序结构清晰 ,开发简单(主要是他控件功能强大)安全性也高(他程序必须都在服务器端运行)

分求一个用VB.net做的简单网页的代码,谢谢!!!

       用vb.net做的校友录……(附所有源代码)

       来源:不详 作者 佚名 点击数: 录入时间:-- ::

       想必大家都上过校友录吧,里面的功能虽然不是很强大,但是为我们这些毕业之后各奔西东的学子来说,到真是提供了一个好的聚集点,下面是我用vb.net做的校友录,当然也不能说是校友录了,只能说是我们班的学友录了:)不过只要你掌握了这种编程思想,校友录就不在话下了。这里我将重点谈一下关于管理员权限赋予。

       以前有这个想法的时候,难就难在管理员身份的赋予上,开始想如果一般用户在被提升为管理员之后,我可以把他的信息转到另外一个表中,以后登陆的时候先检查manage表中是否有他就行了,这种办法我已经实现了,是不是有些笨……可是正在我要正式开工的时候,一个想法突然冒了出来,是什么呢?呵呵,就是在数据库中再增加一个字段了如果是第一次注册就让这个字段item(int)的值为0,要是被提升之后就update为1,班级创始人呢?当然了,在他申请时付给他一个班级id,然后先判断班级id为这个已经注册的人信息条数是否为0,如果是,那么就付给他item=2好了。下面的代码中,我没有实现这个功能,因为我做的是班友录的,当然了,我就是管理员喽:)

       在这里,我使用的是checkboxlist(两个),一个用来转换数据(visibe=fause),一个用来显示数据,还有一个checkbox用来写全部选中的事件。当然了还有两个按钮事件,一个是用来提升为管理员的,一个是用来降级为一般用户的,这两个按钮在判断为一般用户时

       enable都是为fause的,只有当判断登录为管理员时才为true。当然了,如果你是班级创始人,是不可能被降级的:)

       这里用来显示信息的我用的是一个datagrid,当判断为非管理员时,删除栏的visible将为fause,为管理员的时候,才为true,也就是说只有管理员才可以删除信息。而不是注册的用户是不能发言的所有的按钮控件的enable将都为fause。

       代码如下:board.aspx

       <%@ Page Language="vb" AutoEventWireup="false" Codebehind="boaman.aspx.vb" Inherits="_re1.boaman"%>

       <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

       <HTML>

        <HEAD>

        <title></title>

        <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">

        <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">

        <meta content="javascript" name="vs_defaultClientScript">

        <meta content="/intellisense/ie5" name="vs_targetSchema">

        </HEAD>

        <body background="image/bg.gif" MS_POSITIONING="GridLayout">

        <form id="Form1" method="post" runat="server">

        <asp:checkbox id="yourcheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="全部选中" AutoPostBack="True" ForeColor="SaddleBrown" Font-Bold="True"></asp:checkbox>

        <asp:button id="Button1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="提升为管理员" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:button id="Button2" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Text="降级为一般用户" Height="px" Width="px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"></asp:button>

        <asp:checkboxlist id="CheckBoxList1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Visible="False"></asp:checkboxlist>

        <asp:checkboxlist id="mycheck" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Navy" Font-Size="X-Small"></asp:checkboxlist>

        <asp:label id="Label1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" ForeColor="Red" Font-Names="方正姚体">(已注册用户)</asp:label>

        <asp:image id="Image1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" ImageUrl="image/re1-1.gif"></asp:image>

        <asp:datagrid id="DataGrid1" style="Z-INDEX: ; LEFT: px; POSITION: absolute; TOP: px" runat="server" Height="px" Width="px" BorderColor="#ffcc" AutoGenerateColumns="False" HeaderStyle-Font-Size="9" HeaderStyle-HorizontalAlign="Center" HeaderStyle-ForeColor="red" HeaderStyle-Font-Bold="True">

        <Columns>

        <asp:HyperLinkColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Height="" ItemStyle-Font-Size="9" DataNavigateUrlField="stu_id" DataNavigateUrlFormatString="querry.aspx?stu_id={ 0}" DataTextField="stu_id" HeaderText="学号"></asp:HyperLinkColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="tel" HeaderText="电话"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="oicq" HeaderText="OICQ"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="email" HeaderText="E-mail"></asp:BoundColumn>

        <asp:BoundColumn ItemStyle-ForeColor="navy" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="" ItemStyle-Font-Size="9" DataField="point" HeaderText="登录次数"></asp:BoundColumn>

        </Columns>

        </asp:datagrid>

        </form>

        </body>

       </HTML>

       下面是codebehind中的内容:boaman.asp.vb

       Imports System.Data

       Imports System.Data.SqlClient

       Public Class boaman

        Inherits System.Web.UI.Page

        Protected WithEvents yourcheck As System.Web.UI.WebControls.CheckBox

        Protected WithEvents Button1 As System.Web.UI.WebControls.Button

        Protected WithEvents CheckBoxList1 As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents mycheck As System.Web.UI.WebControls.CheckBoxList

        Protected WithEvents Label1 As System.Web.UI.WebControls.Label

        Protected WithEvents Image1 As System.Web.UI.WebControls.Image

        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

        Protected WithEvents Button2 As System.Web.UI.WebControls.Button

       #Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

        End Sub

       #End Region

        Dim conn As SqlConnection = New SqlConnection("server=lixinri;uid=sa;pwd=;database=re1")

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '////////////////////判断是否为过客

        If Session("stu_id") = "" Then

        Button1.Enabled = False : Button2.Enabled = False

        '////////////////////调用check()事件

        check()

        Else

        If Not IsPostBack Then

        Dim sql As String = "select * from pwd where stu_id=@stu_id"

        Dim comm As SqlCommand = New SqlCommand(sql, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = Session("stu_id")

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "0" Then

        '///////////////////判断是否为一般用户

        dr.Close()

        Button1.Enabled = False : Button2.Enabled = False

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        Else

        '////////////////////判断是否为管理员

        dr.Close()

        Button1.Enabled = True : Button2.Enabled = True

        Dim sql_1 As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim cmd As New SqlCommand(sql_1, conn)

        dr = cmd.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        End If

        End While

        dr.Close()

        '////////////////////////取出数据,填充dataset

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        comm = New SqlCommand(mysql, conn)

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End If

        End Sub

        '///////////////////////书写check()事件

        Sub check()

        If Not IsPostBack Then

        Dim mysql As String = "select a.stu_id as stu_id,a.term,b.name as name,b.tel as tel,b.call as oicq,b.point as point,b.email from pwd a,stu_base b where a.stu_id=b.stu_id"

        Dim comm As New SqlCommand(mysql, conn)

        Dim dr As SqlDataReader

        conn.Open()

        dr = comm.ExecuteReader

        While dr.Read

        If dr.Item("term") = "1" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=darkorange>(管理员)</font>")

        ElseIf dr.Item("term") = "2" Then

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>" & "<font color=red>(班级创始人)<font>")

        Else

        mycheck.Items.Add("<u>" & dr.Item("name") & "</u>")

        End If

        CheckBoxList1.Items.Add(dr.Item("stu_id"))

        End While

        dr.Close()

        Dim mycomm As SqlDataAdapter = New SqlDataAdapter(mysql, conn)

        Dim ds As DataSet = New DataSet()

        mycomm.Fill(ds, "base")

        DataGrid1.DataSource = ds.Tables("base").DefaultView

        DataGrid1.DataBind()

        End If

        End Sub

        '/////////////////////填充yourcheck

        Private Sub yourcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yourcheck.CheckedChanged

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If yourcheck.Checked Then

        mycheck.Items(i).Selected = True

        Else

        mycheck.Items(i).Selected = False

        End If

        Next

        End Sub

        '///////////////////////提升一般用户为管理员

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=1 where stu_id=@stu_id and term=0"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

        '///////////////////////降级管理员为一般用户

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        conn.Open()

        Dim i As Integer

        For i = 0 To mycheck.Items.Count - 1

        If mycheck.Items(i).Selected Then

        Dim sql_1 As String = "update pwd set term=0 where stu_id=@stu_id and term=1"

        Dim comm As SqlCommand = New SqlCommand(sql_1, conn)

        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

        comm.Parameters("@stu_id").Value = CheckBoxList1.Items(i).Text

        comm.ExecuteNonQuery()

        End If

        Next

        Response.Redirect("boaman.aspx")

        End Sub

       End Class

       当然了,这里面还有好多不足的地方,恳求高手批评指正。

       校友录还有一些其它的功能就很简单了,这里就不再探讨了。

相关栏目:休闲