將ASP的Debug變得簡單的兩個函數(shù)

1、打印request.form輸入的所有值

<% '--------------------------------------------------------------------------- ' 程序作用:打印request.form輸入的所有值 '--------------------------------------------------------------------------- Response.Write FormData() function FormData() Dim llngMaxFieldIndex Dim llngFieldIndex Dim llngMaxValueIndex Dim llngValueIndex Dim lstrDebug ' Count Form llngMaxFieldIndex = Request.Form.Count ' Let user know if Form Do Not exist if llngMaxFieldIndex = 0 Then FormData = "Form data is empty." Exit function End if ' Begin building a list of all Form lstrDebug = "<OL>" ' Loop through Each Form For llngFieldIndex = 1 To llngMaxFieldIndex lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.Form.Key(llngFieldIndex)) ' Count the values llngMaxValueIndex = Request.Form(llngFieldIndex).Count ' if the Field doesn't have multiple values ... if llngMaxValueIndex = 1 Then lstrDebug = lstrDebug & " = " lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form.Item(llngFieldIndex)) ' Else Loop through Each value Else lstrDebug = lstrDebug & "<OL>" For llngValueIndex = 1 To llngMaxValueIndex lstrDebug = lstrDebug & "<LI>" lstrDebug = lstrDebug & Server.HTMLEncode(Request.Form(llngFieldIndex)(llngValueIndex)) lstrDebug = lstrDebug & "</LI>" Next lstrDebug = lstrDebug & "</OL>" End if lstrDebug = lstrDebug & "</LI>" Next lstrDebug = lstrDebug & "</OL>" ' Return the data FormData = lstrDebug End function %>

2、輸出所有輸入request.querystring值，用于調(diào)試

<% '------------------------------------------------------------------------- ' 函數(shù)功能：輸出所有輸入request.querystring值，用于調(diào)試！ '------------------------------------------------------------------------- Response.Write QueryStringData() function QueryStringData() Dim llngMaxFieldIndex Dim llngFieldIndex Dim llngMaxValueIndex Dim llngValueIndex Dim lstrDebug ' Count QueryString llngMaxFieldIndex = Request.QueryString.Count ' Let user know if QueryString Do Not exist if llngMaxFieldIndex = 0 Then QueryStringData = "QueryString data is empty." Exit function End if ' Begin building a list of all QueryString lstrDebug = "<OL>" ' Loop through Each QueryString For llngFieldIndex = 1 To llngMaxFieldIndex lstrDebug = lstrDebug & "<LI>" & Server.HTMLEncode(Request.QueryString.Key(llngFieldIndex)) ' Count the values llngMaxValueIndex = Request.QueryString(llngFieldIndex).Count ' if the Field doesn't have multiple values ... if llngMaxValueIndex = 1 Then lstrDebug = lstrDebug & " = " lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString.Item(llngFieldIndex)) ' Else Loop through Each value Else lstrDebug = lstrDebug & "<OL>" For llngValueIndex = 1 To llngMaxValueIndex lstrDebug = lstrDebug & "<LI>" lstrDebug = lstrDebug & Server.HTMLEncode(Request.QueryString(llngFieldIndex)(llngValueIndex)) lstrDebug = lstrDebug & "</LI>" Next lstrDebug = lstrDebug & "</OL>" End if lstrDebug = lstrDebug & "</LI>" Next lstrDebug = lstrDebug & "</OL>" ' Return the data QueryStringData = lstrDebug End function %>