0×AA995EEC)
大家好， 0×AA995EEC)相信很多的网友都不是很明白，包括99re这里只有也是一样，不过没有关系，接下来就来为大家分享关于 0×AA995EEC)和99re这里只有的一些知识点，大家可以关注收藏，免得下次来找不到哦，下面我们开始吧！
100分求一个用VB.net做的简单网页的代码,谢谢!!!
用vb.net做的校友录……（附所有源代码）
来源：不详作者佚名点击数：31录入时间：07-12-1715: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
<%@PageLanguage="vb"AutoEventWireup="false"Codebehind="boaman.aspx.vb"Inherits="_99re1.boaman"%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<title></title>
<metacontent="MicrosoftVisualStudio.NET7.0"name="GENERATOR">
<metacontent="VisualBasic7.0"name="CODE_LANGUAGE">
<metacontent="javascript"name="vs_defaultClientScript">
<metacontent="http://schemas.microsoft.com/intellisense/ie5"name="vs_targetSchema">
</HEAD>
<bodybackground="image/bg.gif"MS_POSITIONING="GridLayout">
<formid="Form1"method="post"runat="server">
<asp:checkboxid="yourcheck"style="Z-INDEX:101;LEFT:84px;POSITION:absolute;TOP:71px"runat="server"Text="全部选中"AutoPostBack="True"ForeColor="SaddleBrown"Font-Bold="True"></asp:checkbox>
<asp:buttonid="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:buttonid="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:checkboxlistid="CheckBoxList1"style="Z-INDEX:104;LEFT:14px;POSITION:absolute;TOP:10px"runat="server"Visible="False"></asp:checkboxlist>
<asp:checkboxlistid="mycheck"style="Z-INDEX:105;LEFT:98px;POSITION:absolute;TOP:99px"runat="server"ForeColor="Navy"Font-Size="X-Small"></asp:checkboxlist>
<asp:labelid="Label1"style="Z-INDEX:106;LEFT:82px;POSITION:absolute;TOP:14px"runat="server"ForeColor="Red"Font-Names="方正姚体">（已注册用户）</asp:label>
<asp:imageid="Image1"style="Z-INDEX:107;LEFT:260px;POSITION:absolute;TOP:180px"runat="server"Height="124px"Width="221px"ImageUrl="image/99re1-1.gif"></asp:image>
<asp:datagridid="DataGrid1"style="Z-INDEX:108;LEFT:250px;POSITION:absolute;TOP:83px"runat="server"Height="113px"Width="461px"BorderColor="#ffcc66"AutoGenerateColumns="False"HeaderStyle-Font-Size="9"HeaderStyle-HorizontalAlign="Center"HeaderStyle-ForeColor="red"HeaderStyle-Font-Bold="True">
<Columns>
<asp:HyperLinkColumnItemStyle-ForeColor="navy"ItemStyle-HorizontalAlign="Center"ItemStyle-Height="24"ItemStyle-Font-Size="9"DataNavigateUrlField="stu_id"DataNavigateUrlFormatString="querry.aspx?stu_id={0}"DataTextField="stu_id"HeaderText="学号"></asp:HyperLinkColumn>
<asp:BoundColumnItemStyle-ForeColor="navy"ItemStyle-HorizontalAlign="Center"ItemStyle-Width="100"ItemStyle-Font-Size="9"DataField="tel"HeaderText="电话"></asp:BoundColumn>
<asp:BoundColumnItemStyle-ForeColor="navy"ItemStyle-HorizontalAlign="Center"ItemStyle-Width="80"ItemStyle-Font-Size="9"DataField="oicq"HeaderText="OICQ"></asp:BoundColumn>
<asp:BoundColumnItemStyle-ForeColor="navy"ItemStyle-HorizontalAlign="Center"ItemStyle-Width="140"ItemStyle-Font-Size="9"DataField="email"HeaderText="E-mail"></asp:BoundColumn>
<asp:BoundColumnItemStyle-ForeColor="navy"ItemStyle-HorizontalAlign="Center"ItemStyle-Width="60"ItemStyle-Font-Size="9"DataField="point"HeaderText="登录次数"></asp:BoundColumn>
</Columns>
</asp:datagrid>
</form>
</body>
</HTML>
下面是codebehind中的内容：boaman.asp.vb
ImportsSystem.Data
ImportsSystem.Data.SqlClient
PublicClassboaman
InheritsSystem.Web.UI.Page
ProtectedWithEventsyourcheckAsSystem.Web.UI.WebControls.CheckBox
ProtectedWithEventsButton1AsSystem.Web.UI.WebControls.Button
ProtectedWithEventsCheckBoxList1AsSystem.Web.UI.WebControls.CheckBoxList
ProtectedWithEventsmycheckAsSystem.Web.UI.WebControls.CheckBoxList
ProtectedWithEventsLabel1AsSystem.Web.UI.WebControls.Label
ProtectedWithEventsImage1AsSystem.Web.UI.WebControls.Image
ProtectedWithEventsDataGrid1AsSystem.Web.UI.WebControls.DataGrid
ProtectedWithEventsButton2AsSystem.Web.UI.WebControls.Button
#Region"WebFormDesignerGeneratedCode"
'ThiscallisrequiredbytheWebFormDesigner.
<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()
EndSub
PrivateSubPage_Init(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Init
'CODEGEN:ThismethodcallisrequiredbytheWebFormDesigner
'Donotmodifyitusingthecodeeditor.
InitializeComponent()
EndSub
#EndRegion
DimconnAsSqlConnection=NewSqlConnection("server=lixinri;uid=sa;pwd=;database=99re1")
PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'////////////////////判断是否为过客
IfSession("stu_id")=""Then
Button1.Enabled=False:Button2.Enabled=False
'////////////////////调用check()事件
check()
Else
IfNotIsPostBackThen
DimsqlAsString="select*frompwdwherestu_id=@stu_id"
DimcommAsSqlCommand=NewSqlCommand(sql,conn)
comm.Parameters.Add(NewSqlParameter("@stu_id",SqlDbType.Int,4))
comm.Parameters("@stu_id").Value=Session("stu_id")
DimdrAsSqlDataReader
conn.Open()
dr=comm.ExecuteReader
Whiledr.Read
Ifdr.Item("term")="0"Then
'///////////////////判断是否为一般用户
dr.Close()
Button1.Enabled=False:Button2.Enabled=False
Dimsql_1AsString="selecta.stu_idasstu_id,a.term,b.nameasname,b.telastel,b.callasoicq,b.pointaspoint,b.emailfrompwda,stu_basebwherea.stu_id=b.stu_id"
DimcmdAsNewSqlCommand(sql_1,conn)
dr=cmd.ExecuteReader
Whiledr.Read
Ifdr.Item("term")="1"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=darkorange>(管理员)</font>")
ElseIfdr.Item("term")="2"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=red>(班级创始人)<font>")
Else
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>")
EndIf
CheckBoxList1.Items.Add(dr.Item("stu_id"))
EndWhile
Else
'////////////////////判断是否为管理员
dr.Close()
Button1.Enabled=True:Button2.Enabled=True
Dimsql_1AsString="selecta.stu_idasstu_id,a.term,b.nameasname,b.telastel,b.callasoicq,b.pointaspoint,b.emailfrompwda,stu_basebwherea.stu_id=b.stu_id"
DimcmdAsNewSqlCommand(sql_1,conn)
dr=cmd.ExecuteReader
Whiledr.Read
Ifdr.Item("term")="1"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=darkorange>(管理员)</font>")
ElseIfdr.Item("term")="2"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=red>(班级创始人)<font>")
Else
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>")
EndIf
CheckBoxList1.Items.Add(dr.Item("stu_id"))
EndWhile
EndIf
EndWhile
dr.Close()
'////////////////////////取出数据，填充dataset
DimmysqlAsString="selecta.stu_idasstu_id,a.term,b.nameasname,b.telastel,b.callasoicq,b.pointaspoint,b.emailfrompwda,stu_basebwherea.stu_id=b.stu_id"
comm=NewSqlCommand(mysql,conn)
DimmycommAsSqlDataAdapter=NewSqlDataAdapter(mysql,conn)
DimdsAsDataSet=NewDataSet()
mycomm.Fill(ds,"base")
DataGrid1.DataSource=ds.Tables("base").DefaultView
DataGrid1.DataBind()
EndIf
EndIf
EndSub
'///////////////////////书写check()事件
Subcheck()
IfNotIsPostBackThen
DimmysqlAsString="selecta.stu_idasstu_id,a.term,b.nameasname,b.telastel,b.callasoicq,b.pointaspoint,b.emailfrompwda,stu_basebwherea.stu_id=b.stu_id"
DimcommAsNewSqlCommand(mysql,conn)
DimdrAsSqlDataReader
conn.Open()
dr=comm.ExecuteReader
Whiledr.Read
Ifdr.Item("term")="1"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=darkorange>(管理员)</font>")
ElseIfdr.Item("term")="2"Then
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>"&"<fontcolor=red>(班级创始人)<font>")
Else
mycheck.Items.Add("<u>"&dr.Item("name")&"</u>")
EndIf
CheckBoxList1.Items.Add(dr.Item("stu_id"))
EndWhile
dr.Close()
DimmycommAsSqlDataAdapter=NewSqlDataAdapter(mysql,conn)
DimdsAsDataSet=NewDataSet()
mycomm.Fill(ds,"base")
DataGrid1.DataSource=ds.Tables("base").DefaultView
DataGrid1.DataBind()
EndIf
EndSub
'/////////////////////填充yourcheck
PrivateSubyourcheck_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesyourcheck.CheckedChanged
DimiAsInteger
Fori=0Tomycheck.Items.Count-1
Ifyourcheck.CheckedThen
mycheck.Items(i).Selected=True
Else
mycheck.Items(i).Selected=False
EndIf
Next
EndSub
'///////////////////////提升一般用户为管理员
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
conn.Open()
DimiAsInteger
Fori=0Tomycheck.Items.Count-1
Ifmycheck.Items(i).SelectedThen
Dimsql_1AsString="updatepwdsetterm=1wherestu_id=@stu_idandterm=0"
DimcommAsSqlCommand=NewSqlCommand(sql_1,conn)
comm.Parameters.Add(NewSqlParameter("@stu_id",SqlDbType.Int,4))
comm.Parameters("@stu_id").Value=CheckBoxList1.Items(i).Text
comm.ExecuteNonQuery()
EndIf
Next
Response.Redirect("boaman.aspx")
EndSub
'///////////////////////降级管理员为一般用户
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
conn.Open()
DimiAsInteger
Fori=0Tomycheck.Items.Count-1
Ifmycheck.Items(i).SelectedThen
Dimsql_1AsString="updatepwdsetterm=0wherestu_id=@stu_idandterm=1"
DimcommAsSqlCommand=NewSqlCommand(sql_1,conn)
comm.Parameters.Add(NewSqlParameter("@stu_id",SqlDbType.Int,4))
comm.Parameters("@stu_id").Value=CheckBoxList1.Items(i).Text
comm.ExecuteNonQuery()
EndIf
Next
Response.Redirect("boaman.aspx")
EndSub
EndClass
当然了，这里面还有好多不足的地方，恳求高手批评指正。
校友录还有一些其它的功能就很简单了，这里就不再探讨了。
...0×00000003, 0×AA995EE8, 0×AA99REE8, 0×AA995EEC)
以下内容为百度知道Ctangel个人总结，并非网络复制，全是个人日常工作中遇到并且明确确定原因的。如需复制请注明出处。
这里列举几个典型的蓝屏故障的原因和解决办法。
一、0X0000000A
这个蓝屏代码和硬件无关，是驱动和软件有冲突造成的，最早发现这个代码是因为公司的DELL机器的USB键盘和QQ2007的键盘加密程序有冲突发现的这个问题。也在IBMT系列笔记本上装驱动失误产生过。
如果您的机器蓝屏了，而且每次都是这个代码请想一想最近是不是更新了什么软件或者什么驱动了，把它卸载再看一下。一般情况下就能够解决，如果实在想不起来，又非常频繁的话，那么没办法，重新做系统吧。
二、0X0000007B
这个代码和硬盘有关系，不过不用害怕，不是有坏道了，是设置问题或者病毒造成的硬盘引导分区错误。
如果您在用原版系统盘安装系统的时候出这个问题，那说明您的机器配置还是比较新的，作为老的系统盘，不认这么新的硬盘接口，所以得进BIOS把硬盘模式改成IDE兼容模式。当然了，现在人们都用ghost版的操作系统，比较新的ghost盘是不存在这个问题的。关于人们找不到IDE这项的问题，因为很多主板标明这项的措辞不太一样有些写着AHCI和Compatibility，这个AHCI就等于是SATA模式，Compatibility相当于IDE模式。
如果您的操作系统使用了一段时间了，突然有一天出现这个问题了，那么对不起，病毒造成的，开机按F8，选择最后一次正确的配置，恢复不到正常模式的话那么请重新做系统吧。
三、0X000000ED
这个故障和硬盘有关系，系统概率比较大，硬盘真坏的概率比较小。我弄过不下二十个这个代码的蓝屏机器了，其中只有一个是硬盘真的有坏道了。剩下的都是卷出了问题，修复即可，这也是为数不多的可以修复的蓝屏代码之一。
修复方法是找原版的系统安装盘（或者金手指V6那个pe启动界面里就带控制台修复）。这里说用系统盘的方法，把系统盘放入光驱，启动到安装界面，选择按R进入控制台修复，进入控制台后会出现提示符C:\大家在这里输入chkdsk-r然后它就会自动检测并修复问题了，修复完成之后重新启动计算机就可以进入系统了，进入系统之后最好先杀毒，然后再重新启动一下试一下，如果正常了那就没问题了，如果还出这个代码，那就说明硬盘有问题了，需要更换，或者把有问题的地方单独分区，做成隐藏分区，用后面的空间来装系统。
四、0X0000007E、0X0000008E
这俩代码多是病毒造成的，杀毒即可。正常模式进不去可以开机按F8进安全模式。当然也有可能是内存造成的，可以尝试重新插拔内存，一般这代码内存损坏概率不大。
五、0X00000050
硬件故障，硬盘的可能性很大。如果出现50重启之后还伴随着出现0A、7E、8E这样的代码，那十有八九就是内存坏了。如果每次都出这一个代码，首先换一块硬盘试一下机器能不能正常启动，如果测试硬盘没问题，再试内存，内存也试过的话，换CPU，总之这必是硬件故障。
六、0X000000D1
这个代码一般和显卡有关，有可能是显卡损坏，也可能是只是因为安装了不太兼容的显卡驱动造成的，建议有花屏现象的先找朋友借个显卡插上试一下，或者主机有集成显卡的，用集成显卡试一下。如果平时没有花屏现象，那就更换买机器的时候自带的显卡驱动试一下。
七、coooo21a
C开头的故障，它报的错很邪乎，报未知硬件故障，不过出这类C开头的代码多半与硬件无关。基本是与系统同时启动的一些驱动！或者服务的问题，举一个例子，一次我给一个笔记本的F盘改成了E盘，结果再启动就出这类C开头的代码，最后发现插上一个U盘就能正常启动，因为插上U盘系统里就有F盘了，然后我发现了隐藏的文件，是开机的时候系统写入的。我拔掉这个U盘这问题就又出现，后来把E盘改回F问题就没有了，想来是什么和系统一起启动的软件留在F盘一些文件，没有了它就会自己建，但是连F盘都没有了，也就只能报错了，所以看到这类蓝屏可以照比。
八、每次蓝屏的代码都不一样
这样的问题，基本上是硬件造成的，尤其以内存为第一个需要怀疑的对象，更换内存尝试，第二可能性是CPU虽然这东西不爱坏，可是从2006到现在我也遇到俩了，其他硬件基本上不会造成蓝屏代码随便变的情况。
九、偶尔蓝屏，而且代码一闪而过重新启动的问题
这个是有有两种可能
1、以XP为例，在我的电脑上点击鼠标右键选择属性，找到高级选项卡，找到下面的启动和故障修复项，点击设置。再弹出的窗口里找到中间‘系统失败’处有三个选项，第三项自动重新启动，把这项的勾选取消掉，以后再出问题蓝屏就会停住了。
2、已经做过上面的设置，但是还是会一闪而过重新启动的，那就是显卡或者CPU过热造成的，打开机箱查看散热风扇和散热器的状态吧。
另外开机就蓝屏看不见代码一闪而过然后自己重新启动的情况。这个时候已经不可能在系统里进行第一步的设置了，那么就要在机器启动的时候按F8，选择启动失败后禁用重新启动这项，选择之后启动失败了，系统就会停在蓝屏代码那里了，这样大家就可以照着蓝屏代码来查看问题了。
十、其他蓝屏代码
参考第七项，一般首先做系统确认是不是系统的问题，然后以以下顺序测试硬件，首先是内存可能性最大，然后是CPU，之后是硬盘，最后是显卡，主板基本不会蓝屏。
好了，关于 0×AA995EEC)和99re这里只有的问题到这里结束啦，希望可以解决您的问题哈！
