asp編程中的測試列印、有效性檢查及錯誤處理

來源:互聯網
上載者:User
編程|錯誤|錯誤處理|列印 經常看到一些初學asp的朋友為了測試一個值到處用response.write來列印,

而要看頁面效果時再刪除這些語句或加上注釋,在正式版本出來以前要如此反覆

多次。而有些人為了減少麻煩,乾脆全當它是正確的,不做測試輸出,像這樣極

易出現各種各樣的問題,最常見的是如果要產生一條sql語句,需要使用變數,如

果不做測試列印,很難做到一次正確,在chinaasp論壇裡經常見到這種問題,老

是有人問這條語句為什麼會出錯等問題,實際上他只要列印出這條語句看一下語

法是否正確就行了,而不必到處追著人問。事實上好的編程習慣應該是在自己沒

有很大把握的情況下把產生的語句或變數值列印出來,但這樣做又費時費力,有

沒有比較好的解決方案呢?
在C裡可以使用 _DEBUG這樣的測試開關來控制debug版本和release版本,但

asp中並沒有類似#define這種語句,那麼是不是我們就沒有辦法了呢?其實我們

可以仿照c的這種做法,那就是在global.asa檔案裡定義一個application變數來

控制,象下面這個例子:

在global.asp裡加上:
application("DEBUG") = 1

然後做這麼一個過程:
'--------------------------------------------------------
'Name: PRINT
'Argument: a_strPrint: 列印字串
'Return:
'Description: 列印(僅在DEBUG狀態下運行)
'Hitory: Create by bigeagle
'--------------------------------------------------------
Sub PRINT(a_strPrint)
if Application("DEBUG") = 1 then
Response.Write("<P aling=center>"+a_strPrint+"</P>")
end if
End Sub

這個過程的功能就是當測試開關開啟時(application("DEBUG") = 1)列印

,而當測試開關關閉(application("DEBUG") = 0)就不會有列印輸出了。這樣

在程式調試期間,你可以開啟測試開關,以觀察變數的值,而當要看頁面效果或

發布release版本時就可以關閉測試開關,這樣所有的測試輸出就不會出現在頁面

上。

以上談到的是變數的測試輸出,下面要談談正確性檢測問題。經常見到很多

人把頁面提交過來或資料庫取出的值想都不想就用,根本不做正確性檢測,那你

怎麼能保證這些值的正確性呢?比如有一個input,提交後它的值應該是一個值包

含數位字串,但如果使用者的輸入包含其他字元,若不做正確性檢測,那當你

用cint或clng轉換時就會發生錯誤,整個程式崩潰。另外一種情況是這樣,當你

從資料庫中取值或諸如此類的操作,應該是不會發生問題,但如果出現資料庫出

錯等問題,那麼使用者也只能見到一個諸如'odbc錯誤'等等的提示資訊,對於一個

成熟的商品程式來說,這點是很不好的,其實現在包括國內很多知名網站也出現

這種問題。所以應該養成這樣一個習慣,那就是任何可能出問題的變數、參數在

使用之前都應該做正確性檢測,並且對資料庫操作後應當判斷否成功。這是就又出現一個版本問題,如果是DEBUG版則應顯示出錯資訊以備修改,而release版則應該引導到一個統一頁面,如“本站暫時出現未知故障,請稍候再來"等等,原則上永遠不要給使用者一個系統出錯資訊頁面。要實現上述功能,請看以下幾個函數和過程。

'--------------------------------------------------------
'Name: ASSERT
'Argument: a_blnConditon: 斷言條件
' a_FunctionName: 調用函數
' a_ErrorString: 錯誤描敘
'Return:
'Description: 斷言
'Hitory: Create by Bigeagle
'--------------------------------------------------------
Sub ASSERT(a_blnConditon,a_FunctionName,a_ErrorString)
if Application("DEBUG") = 0 then
if a_blnConditon <> TRUE then
response.redirect("../include/bigerror.asp")
end if
else
if a_blnConditon <> TRUE then
call print("斷言錯誤:在<font color=red>" + a_FunctionName + "</font>出現:" + a_ErrorString)
response.end

end if

end if

End Sub

這個過程的作用是檢測變數或參數有效性,如果條件a_blnCondition<>true,那麼如果測試開關開啟,則顯示錯誤資訊,如果測試開關關閉,則重新導向到錯誤處理頁面bigerror.asp。


'--------------------------------------------------------
'Name: CheckError
'Argument:
'Return:
'Description: 檢查錯誤
'Hitory: Create by Yaozhigang
'--------------------------------------------------------
Function CheckError()
Dim intErrNumber
intErrNumber = Err.Number '儲存錯誤碼,因為在ERROR中將執行Err.Clear

if intErrNumber <> 0 then Call ERROR(-1, "") 'Err錯誤的錯誤碼為-1

CheckError = intErrNumber
End Function


'--------------------------------------------------------
'Name: ERROR
'Argument: a_intErrCode:錯誤碼(-1時表示是系統錯誤,即Err.Number<>0)
' a_strErrText:錯誤描述
'Return:
'Description: 錯誤處理
'Hitory: Create by Yaozhigang
'--------------------------------------------------------
Sub ERROR(a_intErrCode, a_strErrText)

Dim strMsg
Dim strLogMsg

'如果是Err錯誤,則一定執行錯誤頁
if a_intErrCode = -1 then

strMsg = strMsg + "*********************************************************************************************" + "<BR>"
strMsg = strMsg + "錯誤時間:" + CStr(Now()) + "<BR>"
strMsg = strMsg + "錯誤類型:Err錯誤" + "<BR>"
strMsg = strMsg + "錯誤號碼 :" + CStr(Err.Number) + "<BR>"



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。