精通ASP.NET（基於VB.NET)( 三）VB.NET異常處理 (轉)

精通ASP.NET（基於VB.NET)( 三）VB.NET異常處理 (轉)[@more@]    /Develop/read_article.?id=18140" target=_blank>精通（基於)( 三）VB.NET異常處理

 （1）結構化異常處理:：
  try
  ...........
  catch
  ............
  flnally
 ................
  end try
  其中Catch的結構有三種：Catch、Catch...As 和 Catch...When。其中Catch...As 和 Catch...When 子句捕捉特定的異常，並允許相關的語句塊指定應用如何處理。
 例：（登入介面部分程式碼）
  Dim conn as New sqlcliet.sqlconnection(configurationsettings.appsettings("connectionstring"))
  Dim _string as string="select * from user where user_name='" & trim(user_name.text) & "' and user_pwd='" & trim(user_pwd.text) & "' " 
 Dim select_comm as New sqlclient.sqlcommand(select_string,sqlconn)
  Dim select_reader as sqlclient.sqldatareader

  try
  sqlconn.open()
  select_reader=selec_comm.executereader(commanehaviorcloseconnection)
 if select_reader.read()=true then
  dim username as string
  session("username")=trim(user_name.text)
 response.redirect("mian.")
  select_reader.close()
  sqlconn.close()
  else
 response.write("
  end if
  catch sqlexc as execption
  response.write("錯誤發生!"&sqlexc.tostring())
  finally
  if not select_reader is nothing then
  select_reader.close()
  end if
  (2)非結構化異常處理：透過Error及On Error、Resume和Error三種語句實現。
  例：
   On Error Resume Next
  Err.Clear
 Err.Raise（33333）
  Err.Description = "您沒有輸入數字！"
  MsgBox（Err.Number）
  MsgBox（Err.Description）