菜鸟求助：如何弹出自定义错误对话框

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>login</title>
</head>
  <script language="VB" runat="server">
    if not Ds.Tables("会员信息").rows(0).Item("管理员") Then
  MyName.Text+=Ds.Tables("会员信息").Rows(0).Item("帐号")
  MyPwd.Text=DS.Tables("会员信息").rows(0).Item("密码")
    if Ds.Tables("会员信息").Rows(0).Item("性别")="男" then
   MySex.SelectedIndex=0
else
   MySex.SelectedIndex=1
end if
  MyBirthday.Text=Ds.Tables("会员信息").Rows(0).Item("生日")
  MyMail.Text=Ds.TAbles("会员信息").Rows(0).Item("电子邮件地址")
  Sys.Op.Visible="false"
  ConnUser.visible="true"
  CurrentName=Ds.Tables("会员信息").Rows(0).Item("帐号")
else
  Ds.Clear()
  Da.SelectCommand.CommandText="Select * from 会员信息"
  Da.fill(Ds,"会员信息")
  Grid1.DataSource=Ds.Tables("会员信息")
  Grid1.DataBind()
  SysOp.visible="false"
end if
LoginMenu.visible="false"

    sub Login_Click(Sender as object,e as eventargs)
  Dim SqlStr,ConStr as string
  SqlStr="Select * form 会员信息 where 帐号='"
  SqlStr+=Name.Text & "'"
  ConStr=ProStr+DbStr1+DbStr2
  Dim Da As New OleDbTatAdapter(SqlStr,ConStr)
  Dim DS As New DataSet()
  if Da.Fill(Ds,"会员信息").Rows.count=0 then
     Message.Text="请仔细核对后再输入!"
exit sub
  elseif Ds.Tables("会员信息").Rows(0).Item("密码")<>Pwd.Text Then
    Message.Text="密码错误!"
  end if
end sub

Sub Op_Del(sender as object,e as DataGridCommandEventArgs)
    dim RecNO,RowCount,Pagse as integer
dim SplStr,ConStr,DelName as string
Dim Ds as New DataSet()
Ds=GetDs()
RecNo=(Grid1.CurrentPageIndex * Grid1.PageSize)
RecNo+=e.Item.ItemIndex
DelName=Ds.Tables("会员信息").rows(RecNO).Item("帐号")
SqlStr="Delete from 会员信息 where 帐号=-'"
SqlStr+=DelName & "'"
ConStr=ProStr+DbStr1+DbStr2
dim Da as New OleDbDataAdapter(SqlStr,ConStr)
Da.fill(Ds,"会员信息")
Da.Clear()
Ds=GetDs()
RowCount=Ds.Tables("会员信息").Rows.Count
PageSize=Grid1.PageSize
Grid1.DataSource=Ds.Tables("会员信息")
if((RowCount mod Pagesize)=0) then
    Grid1.CurrentPageIndex=1
     end if
Grid1=DataBind()
end sub
  </script>
<body>
<img id="img1" runat="server" src="2.jpg" width="50%" height="90%">
<form runat="server">
   <asp:Panel id="LoginMenu" runat="server" HorizontalAlign="Center">
     <asp:label runat="server" Text="会员登陆<p>"
    Font-size="16"  forecolor="blue"
Font-name="黑体"/>
<asp:Table runat="server" BorderColor="lightblue"
    borderwidth="2" CellPadding="4"
HorizontalAlign="center">
   <asp:tablerow runat="server">
      <asp:tablecell runat="server" ColumnSpan="2">


  <asp:table runat="server" backColor="lightyellow">
    <asp:tablerow runat="server">
   <asp:tablecell runat="server" Text="帐号: "/>
   <asp:tablecell runat="server">
     <asp:textbox id="name" runat="server"/><br>
    </asp:tablecell>
</asp:tablerow>

<asp:tablerow runat="server">
   <asp:tablecell runat="server" Text="密码: "/>
   <asp:tablecell runat="server">
      <asp:textbox id="Pwd" runat="server" TextMode="Password"/>
   </asp:tablecell>
</asp:tablerow>

     <asp:tablerow runat="server">
        <asp:tablecell  runat="server"/>
        <asp:tablecell runat="server">
          <asp:Button id="Login" runat="server"
         Text="登录" OnClick="Login_Click"/>
        </asp:tablecell>
    </asp:tablerow>
</asp:table>

</asp:tablecell>
</asp:tablerow>  <asp:tablerow runat="server" HorizontalAlign="Center">
    <asp:tablecell runat="server">
  <asp:HyperLink id="LostPwd" runat="server"
     NavigateUrl="lost.aspx" Text="(忘记密码)"
font-size=10 forecolor="red"/><br>
   </asp:tablecell>
   <asp:tablecell runat="server">
      <asp:HyperLink id="NewUser" runat="server"
      NavigateUrl="newuser.aspx" Text="(新用户注册)"
  font-size=10 forecolor="red"/><br>
    </asp:tablecell>
  </asp:tablerow>


  <asp:tablerow runat="server">
     <asp:tablecell runat="server" ColumnSpan="2">
    <asp:label id="Message" runat="server"
   forecolor="red"/>
</asp:tablecell>
   </asp:tablerow>
</asp:table>
</asp:panel><asp:panel id="ConnUser" runat="server" Visible="false">
   <asp:table runat="server" bordercolor="lightblue"
      BorderWidth="2" HorizontalAlign="Center">
<asp:tablerow runat="server">
   <asp:tablecell runat="server"
      ColumnSpan="2" HorizontalAlign="Center">
<asp:Label runat="server" Text="修改个人注册信息"
   ForeColor="red" Font-Size="16"
   font-name="黑体"/>
   </asp:tablecell>
</asp:tablerow>

<asp:tablerow runat="server" HorizontalAlign="Center">
    <asp:tablecell runat="server"
   ColumnSpan="2" BackColor="yellow">
  <asp:label id="MyName" runat="server" Text="会员名称: "/>
   </asp:tablecell>
</asp:tablerow>

<asp:tablerow runat="server" >
    <asp:tablecell runat="server" Text="密码: "/>
<asp:tablecell runat="server">
   <asp:Textbox id="MyPwd" runat="server"/>
</asp:tablecell>
</asp:tablerow>

<asp:tablerow ruant="server">
   <asp:tablecell ruant="server" Text="性别: "/>
   <asp:tablecell runat="server">
     <asp:radiobutton id="MySex" runat="server"
    RepeatDirection="Horizontal">
   <asp:ListItem Text="男" selected="true"/>
   <asp:ListItem Text="女"/>
         </asp:radioButton>
  </asp:tablecell>
</asp:tablerow>            <asp:tablerow runat="server">
      <asp:tablecell ruant="server" Text="生日: "/>
  <asp:tablecell ruant="server">
     <asp:textbox id="MyBirthday" runat="server"/>
  </asp:tablecell>
   </asp:tablerow>


  <asp:tablerow raunt="server">
     <asp:tablecell ruant="server" Text="电子邮件: ">
<asp:tablecell ruant="server">
    <asp:textbox id="MyMail" ruant="server"/>
</asp:tablecell>
  </asp:tablerow>
</asp:table>
</asp:panel>

<asp:panel id="SysOp" runat="server" visible="false"
   HorizontalAlign="Center">
  <asp:label runat="server" forecolor="blue"
     font-size="18" Text="站长管理菜单<p>"
font-name="黑体"/>

  <asp:DataGrid id="Grid1" runat="server" AllowPaging="true"
    PageSize="5" OnPageIndexChanged="Page_Changed"
PagerStyle-Mode="NumericPages"
HorizontalAlign="Center"
OnDelteCommand="Op_Del"
CellPadding="4">
   <headerstyle BackColor="yellow" HorizontalAlign="center"/>
   <Columns>
      <asp:buttoncolumn
       HeaderText="删除"
   text="删除"
   ButtonType="PushButton"
   CommandName="Delete"/>
   </Columns>
   </asp:DataGrid>
   </asp:panel>
</form>
</body>
</html>
仅供参考，自己写的还没调试
对，用javascript实现就可以了。
见者有份，谢谢啊。但还是不太明白。cnroky(残月)：你没必要写这么多代码吧

调试易

菜鸟求助：如何弹出自定义错误对话框

解决方案 »