<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