锐客网

  1. 首页 > 睿知 > it技术 > >

jstovb.net的简单介绍

IT技术系统

100分求一个用VB.net做的简单网页的代码，谢谢?。。?/h2>用vb.net做的校友录……（附所有源代码）
来源：不详 作者 佚名 点击数：31 录入时间：07-12-17 15:21:39
想必大家都上过校友录吧，里面的功能虽然不是很强大，但是为我们这些毕业之后各奔西东的学子来说，到真是提供了一个好的聚集点，下面是我用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="_99re1.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="" 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: 101; LEFT: 84px; POSITION: absolute; TOP: 71px" runat="server" Text="全部选中" AutoPostBack="True" ForeColor="SaddleBrown" Font-Bold="True"/asp:checkbox
asp:button id="Button1" style="Z-INDEX: 102; LEFT: 34px; POSITION: absolute; TOP: 43px" runat="server" Text="提升为管理员" Height="20px" Width="100px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"/asp:button
asp:button id="Button2" style="Z-INDEX: 103; LEFT: 142px; POSITION: absolute; TOP: 43px" runat="server" Text="降级为一般用户" Height="20px" Width="100px" BackColor="Gainsboro" BorderColor="Lavender" BorderWidth="2px" BorderStyle="Outset"/asp:button
asp:checkboxlist id="CheckBoxList1" style="Z-INDEX: 104; LEFT: 14px; POSITION: absolute; TOP: 10px" runat="server" Visible="False"/asp:checkboxlist
asp:checkboxlist id="mycheck" style="Z-INDEX: 105; LEFT: 98px; POSITION: absolute; TOP: 99px" runat="server" ForeColor="Navy" Font-Size="X-Small"/asp:checkboxlist
asp:label id="Label1" style="Z-INDEX: 106; LEFT: 82px; POSITION: absolute; TOP: 14px" runat="server" ForeColor="Red" Font-Names="方正姚体"（已注册用户）/asp:label

推荐阅读


上一篇：ios如何修改微信运动，ios怎么改微信运动

下一篇：公众号回复粉丝留言技巧，公众号怎样回复留言