看板 Visual_Basic 關於我們 聯絡資訊
<customErrors mode="RemoteOnly"> 建議改成這樣,如此一來iis server那台的ie點進去會看到詳細錯誤訊息 其他台電腦都看不到 還可以利用 try ... catch 攔截錯誤,把錯誤記錄到資料庫中 以後就從資料庫中查錯誤訊息及錯誤點 Sub xxxxx() Try ... Catch ex As Execption Dim sql As String = "", cmd As New SqlCommand sql &= "Insert into [log] ([date],[message]) values(" sql &= SqlStr(Now, ex.ToString) & ")" cmd.Connection = cn 'cn是你的資料庫連線 cmd.CommandText = sql cmd.ExecuteNonQuery() End Try End Sub Function SqlStr(ByVal ParamArray Values As String()) As String Dim Value As String = "" For i = 0 To Values.Length - 1 If Values(i).GetType.Equals(GetType(DateTime)) Then Value = Format(Values(i), "yyyy/mm/dd hh:MM:ss") Else Value = Values(i) End If ret &= "'" & Value.Replace("'", "''") & "'" Next Return ret End Function -- ▃▅▇▆▄ ▆▂▃ ` 逝去感如何能留住,半點遺留殊不易,██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多悽悽慘慘的遭遇………██▆▃ █▅▆▃ˍ▄* ▂█▄▇▅▂. 我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.194.100.4