1.aspx文件怎么打开 aspx文件打开方法介绍
2.aspä¸aspxçåºå«
3.100分求一个用VB.net做的控件控件简单网页的代码,谢谢!源码!中属置!性设
aspx文件怎么打开 aspx文件打开方法介绍
aspx怎么运行?后缀为.asp或.aspx的控件控件文件是用什么软件编写的?axpx文件是什么?如何打开后缀为RPX文件?如何查找自己的建筑资格证?未能加载类型的问题怎么解决?mc怎么安装驱动?aspx怎么运行?
1、打开IIS,源码chromedp获取源码(没有安装则要到添加删除程序里安装)
2、中属置找到默认网站,性设右键点击
3、控件控件在弹出的源码菜单中选择新建--虚拟目录
4、按照向导提示完成向导,中属置具体方法如下:1)、性设跳过欢迎界面,控件控件随便启一个别名。源码(如\abcd\不含引号)2)、中属置提示寻找目录,找到你那个ASPX文件所在的目录。3)、权限按默认(前两个选择,后三不选)即可5)、向导完毕,打开默认网站前的+号6)、找到\abcd\(不含引号,刚才创建的目录别名),点击它7)、在右边的vip解析计费源码窗口找到那个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提供了完整的运行时访问报表对象和成员功能。最终用户报表设计器终端用户设计器为您提供了向您应用程序中加入设计器的功能,同时提供了终端用户报表编辑功能。控件的方法和属性能方便的存储和加载报表布局,监测和控制设计环境,小型购物商城源码并可根据终端用户的需要定制外观。与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、ssh框架编程源码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
当然了,这里面还有好多不足的地方,恳求高手批评指正。
校友录还有一些其它的功能就很简单了,这里就不再探讨了。