debug.inc

物业管理和办公自动化系统

<%
'************************************************************************************************
' 文件名: debug.inc
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司

' 创建人　: 周秋舫
' 日　期　: 2002-05-08
' 修改历史:
'   ****年**月**日 ****** 修改内容:**************************************************
' 描　述　: 用于debug的一些函数,
'          Debug()显示Request.QueryString, Request.Cookies, Session.Contest集合中的值
'          DebugStr(str)显示文本信息
' 版　本　:
'************************************************************************************************

Sub Debug() 
	dim Item
	if bDebug = false then Exit Sub

	Response.Write("<font color=""red""><b>Debug information: </b></font><br>" & VBLF)

	'************************************************************
	' 显示Request.QueryString集合中的每一项的值
	'************************************************************
	Response.Write("<b>Request.QueryString:</b><br>" & VBLF)
	For Each Item in Request.QueryString 
	    Response.Write(Item & "=" & Request.QueryString(Item) & "<BR>" & VBLF)
	Next
	Response.Write("<br>")

	'************************************************************
	' 显示Request.Cookies集合中的每一项的值
	'************************************************************
	Response.Write("<b>Request.Cookies:</b><br>")
	For Each Item in Request.Cookies 
	    Response.Write(Item & "=" & Request.Cookies(Item) & "<BR>" & VBLF)
	Next
	Response.Write("<br>")

	'************************************************************
	' 显示Session.Contents集合中的每一项的值
	'************************************************************
	Response.Write("<b>Session.Contents</b><br>")
	For Each Item in Session.Contents 
	    Response.Write(Item & "=" & Session.Contents(Item) & "<BR>" & VBLF)
	Next
	Response.Write("<br>")
End Sub

Sub DebugStr(sOutput)
	if bDebug = false then exit sub

	Response.Write("<font color=""red"">Debug information: </font>" & sOutPut & "<br>" & VBLF)
End Sub
%>