<%

' ASPMaker 7 configuration for Table zxzx
Dim zxzx

' Define table class
Class czxzx

	' Class Initialize
	Private Sub Class_Initialize()
		UseTokenInUrl = EW_USE_TOKEN_IN_URL
		ExportOriginalValue = EW_EXPORT_ORIGINAL_VALUE
		ExportAll = EW_EXPORT_ALL
	End Sub

	' Define table level constants
	' Use table token in Url

	Dim UseTokenInUrl

	' Table variable
	Public Property Get TableVar()
		TableVar = "zxzx"
	End Property

	' Table name
	Public Property Get TableName()
		TableName = "zxzx"
	End Property

	' Records per page
	Public Property Get RecordsPerPage()
		RecordsPerPage = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE)
	End Property

	Public Property Let RecordsPerPage(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE) = v
	End Property

	' Start record number
	Public Property Get StartRecordNumber()
		StartRecordNumber = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC)
	End Property

	Public Property Let StartRecordNumber(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC) = v
	End Property

	' Search Highlight Name
	Public Property Get HighlightName()
		HighlightName = "zxzx_Highlight"
	End Property

	' Advanced search
	Public Function GetAdvancedSearch(fld)
		GetAdvancedSearch = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld)
	End Function

	Public Function SetAdvancedSearch(fld, v)
		If Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) <> v Then
			Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) = v
		End If
	End Function

	' Basic search Keyword
	Public Property Get BasicSearchKeyword()
		BasicSearchKeyword = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH)
	End Property

	Public Property Let BasicSearchKeyword(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH) = v
	End Property

	' Basic Search Type
	Public Property Get BasicSearchType()
		BasicSearchType = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE)
	End Property

	Public Property Let BasicSearchType(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE) = v
	End Property

	' Search where clause
	Public Property Get SearchWhere()
		SearchWhere = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE)
	End Property

	Public Property Let SearchWhere(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE) = v
	End Property

	' Single column sort
	Public Sub UpdateSort(ofld)
		Dim sSortField, sLastSort, sThisSort
		If CurrentOrder = ofld.FldName Then
			sSortField = ofld.FldExpression
			sLastSort = ofld.Sort
			If CurrentOrderType = "ASC" Or CurrentOrderType = "DESC" Then
				sThisSort = CurrentOrderType
			Else
				If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			End If
			ofld.Sort = sThisSort
			SessionOrderBy = sSortField & " " & sThisSort ' Save to Session
		Else
			ofld.Sort = ""
		End If
	End Sub

	' Session WHERE Clause
	Public Property Get SessionWhere()
		SessionWhere = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE)
	End Property

	Public Property Let SessionWhere(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE) = v
	End Property

	' Session ORDER BY
	Public Property Get SessionOrderBy()
		SessionOrderBy = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY)
	End Property

	Public Property Let SessionOrderBy(v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY) = v
	End Property

	' Session Key
	Public Function GetKey(fld)
		GetKey = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld)
	End Function

	Public Function SetKey(fld, v)
		Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld) = v
	End Function

	' Table level SQL
	Public Property Get SqlSelect() ' Select
		SqlSelect = "SELECT * FROM [zxzx]"
	End Property

	Public Property Get SqlWhere() ' Where
		SqlWhere = ""
	End Property

	Public Property Get SqlGroupBy() ' Group By
		SqlGroupBy = ""
	End Property

	Public Property Get SqlHaving() ' Having
		SqlHaving = ""
	End Property

	Public Property Get SqlOrderBy() ' Order By
		SqlOrderBy = ""
	End Property

	' SQL variables
	Dim CurrentFilter ' Current filter
	Dim CurrentOrder ' Current order
	Dim CurrentOrderType ' Current order type

	' Get sql
	Public Function GetSQL(where, orderby)
		GetSQL = ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, where, orderby)
	End Function

	' Table sql
	Public Property Get SQL()
		Dim sFilter, sSort
		sFilter = CurrentFilter
		sSort = SessionOrderBy
		SQL = ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
	End Property

	' Return table sql with list page filter
	Public Property Get ListSQL()
		Dim sFilter, sSort
		sFilter = SessionWhere
		If CurrentFilter <> "" Then
			If sFilter <> "" Then
				sFilter = "(" & sFilter & ") AND (" & CurrentFilter & ")"
			Else
				sFilter = CurrentFilter
			End If
		End If
		sSort = SessionOrderBy
		ListSQL = ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
	End Property

	' Key filter for table
	Private Property Get SqlKeyFilter()
		SqlKeyFilter = "[id] = @id@"
	End Property

	' Return Key filter for table
	Public Property Get KeyFilter()
		Dim sKeyFilter
		sKeyFilter = SqlKeyFilter
		If Not IsNumeric(id.CurrentValue) Then
			sKeyFilter = "0=1" ' Invalid key
		End If
		sKeyFilter = Replace(sKeyFilter, "@id@", ew_AdjustSql(id.CurrentValue)) ' Replace key value
		KeyFilter = sKeyFilter
	End Property

	' Return url
	Public Property Get ReturnUrl()

		' Get referer url automatically
		If Request.ServerVariables("HTTP_REFERER") <> "" Then
			If ew_ReferPage <> ew_CurrentPage And ew_ReferPage <> "login.asp" Then ' Referer not same page or login page
				Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL) = Request.ServerVariables("HTTP_REFERER") ' Save to Session
			End If
		End If
		If Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL) <> "" Then
			ReturnUrl = Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL)
		Else
			ReturnUrl = "zxzxlist.asp"
		End If
	End Property

	' View url
	Public Function ViewUrl()
		ViewUrl = KeyUrl("zxzxview.asp", UrlParm(""))
	End Function

	' Add url
	Public Function AddUrl()
		AddUrl = "zxzxadd.asp"
		Dim sUrlParm
		sUrlParm = UrlParm("")
		If sUrlParm <> "" Then AddUrl = AddUrl & "?" & sUrlParm
	End Function

	' Edit url
	Public Function EditUrl()
		EditUrl = KeyUrl("zxzxedit.asp", UrlParm(""))
	End Function

	' Inline edit url
	Public Function InlineEditUrl()
		InlineEditUrl = KeyUrl(ew_CurrentPage, UrlParm("a=edit"))
	End Function

	' Copy url
	Public Function CopyUrl()
		CopyUrl = KeyUrl("zxzxadd.asp", UrlParm(""))
	End Function

	' Inline copy url
	Public Function InlineCopyUrl()
		InlineCopyUrl = KeyUrl(ew_CurrentPage, UrlParm("a=copy"))
	End Function

	' Delete url
	Public Function DeleteUrl()
		DeleteUrl = KeyUrl("zxzxdelete.asp", UrlParm(""))
	End Function

	' Key url
	Public Function KeyUrl(url, parm)
		Dim sUrl: sUrl = url & "?"
		If parm <> "" Then sUrl = sUrl & parm & "&"
		If Not IsNull(id.CurrentValue) Then
			sUrl = sUrl & "id=" & id.CurrentValue
		Else
			KeyUrl = "javascript:alert('¼ÇÂ¼ÎÞÐ§! Key is null');"
			Exit Function
		End If
		KeyUrl = sUrl
	End Function

	' Sort Url
	Public Property Get SortUrl(fld)
		If CurrentAction <> "" Or Export <> "" Or (fld.FldType = 201 Or fld.FldType = 203 Or fld.FldType = 205) Then
			SortUrl = ""
		Else
			SortUrl = ew_CurrentPage
			Dim sUrlParm
			sUrlParm = UrlParm("order=" & Server.URLEncode(fld.FldName) & "&amp;ordertype=" & fld.ReverseSort)
			SortUrl = SortUrl & "?" & sUrlParm
		End If
	End Property

	' Url parm
	Function UrlParm(parm)
		If UseTokenInUrl Then
			UrlParm = "t=zxzx"
		Else
			UrlParm = ""
		End If
		If parm <> "" Then
			If UrlParm <> "" Then UrlParm = UrlParm & "&"
			UrlParm = UrlParm & parm
		End If
	End Function

	' Function LoadRs
	' - Load Rows based on filter
	Public Function LoadRs(sFilter)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next
		Dim RsRows, sSql

		' Set up filter (Sql Where Clause) and get Return Sql
		CurrentFilter = sFilter
		sSql = SQL
		Err.Clear
		Set RsRows = Conn.Execute(sSql)
		If Err.Number <> 0 Then
			Err.Clear
			Set LoadRs = Nothing
			RsRows.Close
			Set RsRows = Nothing
		ElseIf RsRows.Eof Then
			Set LoadRs = Nothing
			RsRows.Close
			Set RsRows = Nothing
		Else
			Set LoadRs = RsRows
		End If
	End Function

	' Load row values from recordset
	Public Sub LoadListRowValues(RsRow)
		id.DbValue = RsRow("id")
		zt.DbValue = RsRow("zt")
		zxr.DbValue = RsRow("zxr")
		xb.DbValue = RsRow("xb")
		gsmc.DbValue = RsRow("gsmc")
		sf.DbValue = RsRow("sf")
		zemail.DbValue = RsRow("email")
		dh.DbValue = RsRow("dh")
		cz.DbValue = RsRow("cz")
		xxdz.DbValue = RsRow("xxdz")
		url.DbValue = RsRow("url")
		zxrq.DbValue = RsRow("zxrq")
		zxnr.DbValue = RsRow("zxnr")
		hf.DbValue = RsRow("hf")
		isshow.DbValue = RsRow("isshow")
	End Sub

	' Render list row values
	Sub RenderListRow()

		' Call Row Rendering event
		Call Row_Rendering()

		' id
		id.ViewValue = id.CurrentValue
		id.CssStyle = ""
		id.CssClass = ""
		id.ViewCustomAttributes = ""

		' zt
		zt.ViewValue = zt.CurrentValue
		zt.CssStyle = ""
		zt.CssClass = ""
		zt.ViewCustomAttributes = ""

		' zxr
		zxr.ViewValue = zxr.CurrentValue
		zxr.CssStyle = ""
		zxr.CssClass = ""
		zxr.ViewCustomAttributes = ""

		' xb
		xb.ViewValue = xb.CurrentValue
		xb.CssStyle = ""
		xb.CssClass = ""
		xb.ViewCustomAttributes = ""

		' gsmc
		gsmc.ViewValue = gsmc.CurrentValue
		gsmc.CssStyle = ""
		gsmc.CssClass = ""
		gsmc.ViewCustomAttributes = ""

		' sf
		sf.ViewValue = sf.CurrentValue
		sf.CssStyle = ""
		sf.CssClass = ""
		sf.ViewCustomAttributes = ""

		' email
		zemail.ViewValue = zemail.CurrentValue
		zemail.CssStyle = ""
		zemail.CssClass = ""
		zemail.ViewCustomAttributes = ""

		' dh
		dh.ViewValue = dh.CurrentValue
		dh.CssStyle = ""
		dh.CssClass = ""
		dh.ViewCustomAttributes = ""

		' cz
		cz.ViewValue = cz.CurrentValue
		cz.CssStyle = ""
		cz.CssClass = ""
		cz.ViewCustomAttributes = ""

		' xxdz
		xxdz.ViewValue = xxdz.CurrentValue
		xxdz.CssStyle = ""
		xxdz.CssClass = ""
		xxdz.ViewCustomAttributes = ""

		' url
		url.ViewValue = url.CurrentValue
		url.CssStyle = ""
		url.CssClass = ""
		url.ViewCustomAttributes = ""

		' zxrq
		zxrq.ViewValue = zxrq.CurrentValue
		zxrq.ViewValue = ew_FormatDateTime(zxrq.ViewValue, 5)
		zxrq.CssStyle = ""
		zxrq.CssClass = ""
		zxrq.ViewCustomAttributes = ""

		' isshow
		If Not IsNull(isshow.CurrentValue) Then
			Select Case isshow.CurrentValue
				Case "0"
					isshow.ViewValue = "·ñ"
				Case "1"
					isshow.ViewValue = "ÊÇ"
				Case Else
					isshow.ViewValue = isshow.CurrentValue
			End Select
		Else
			isshow.ViewValue = Null
		End If
		isshow.CssStyle = ""
		isshow.CssClass = ""
		isshow.ViewCustomAttributes = ""

		' id
		id.HrefValue = ""

		' zt
		zt.HrefValue = ""

		' zxr
		zxr.HrefValue = ""

		' xb
		xb.HrefValue = ""

		' gsmc
		gsmc.HrefValue = ""

		' sf
		sf.HrefValue = ""

		' email
		zemail.HrefValue = ""

		' dh
		dh.HrefValue = ""

		' cz
		cz.HrefValue = ""

		' xxdz
		xxdz.HrefValue = ""

		' url
		url.HrefValue = ""

		' zxrq
		zxrq.HrefValue = ""

		' isshow
		isshow.HrefValue = ""

		' Call Row Rendered event
		Call Row_Rendered()
	End Sub
	Dim CurrentAction ' Current action
	Dim EventName ' Event name
	Dim EventCancelled ' Event cancelled
	Dim CancelMessage ' Cancel message

	' Row Type
	Private m_RowType

	Public Property Get RowType()
		RowType = m_RowType
	End Property

	Public Property Let RowType(v)
		m_RowType = v
	End Property
	Dim CssClass ' Css class
	Dim CssStyle' Css style
	Dim RowClientEvents ' Row client events

	' Row Attribute
	Public Property Get RowAttributes()
		Dim sAtt
		sAtt = ""
		If Trim(CssStyle) <> "" Then
			sAtt = sAtt & " style=""" & Trim(CssStyle) & """" 
		End If
		If Trim(CssClass) <> "" Then
			sAtt = sAtt & " class=""" & Trim(CssClass) & """" 
		End If
		If m_Export = "" Then
			If Trim(RowClientEvents) <> "" Then
				sAtt = sAtt & " " & Trim(RowClientEvents)
			End If
		End If
		RowAttributes = sAtt
	End Property

	' Export
	Private m_Export

	Public Property Get Export()
		Export = m_Export
	End Property

	Public Property Let Export(v)
		m_Export = v
	End Property

	' Export Original Value
	Dim ExportOriginalValue

	' Export All
	Dim ExportAll

	' Send Email
	Dim SendEmail

	' Custom Inner Html
	Dim TableCustomInnerHtml

	' ----------------
	'  Field objects
	' ----------------
	' Field id
	Private m_id

	Public Property Get id()
		If Not IsObject(m_id) Then Set m_id = NewFldObj("zxzx", "x_id", "id", "[id]", 3, 5)
		Set id = m_id
	End Property

	' Field zt
	Private m_zt

	Public Property Get zt()
		If Not IsObject(m_zt) Then Set m_zt = NewFldObj("zxzx", "x_zt", "zt", "[zt]", 202, 5)
		Set zt = m_zt
	End Property

	' Field zxr
	Private m_zxr

	Public Property Get zxr()
		If Not IsObject(m_zxr) Then Set m_zxr = NewFldObj("zxzx", "x_zxr", "zxr", "[zxr]", 202, 5)
		Set zxr = m_zxr
	End Property

	' Field xb
	Private m_xb

	Public Property Get xb()
		If Not IsObject(m_xb) Then Set m_xb = NewFldObj("zxzx", "x_xb", "xb", "[xb]", 202, 5)
		Set xb = m_xb
	End Property

	' Field gsmc
	Private m_gsmc

	Public Property Get gsmc()
		If Not IsObject(m_gsmc) Then Set m_gsmc = NewFldObj("zxzx", "x_gsmc", "gsmc", "[gsmc]", 202, 5)
		Set gsmc = m_gsmc
	End Property

	' Field sf
	Private m_sf

	Public Property Get sf()
		If Not IsObject(m_sf) Then Set m_sf = NewFldObj("zxzx", "x_sf", "sf", "[sf]", 202, 5)
		Set sf = m_sf
	End Property

	' Field email
	Private m_zemail

	Public Property Get zemail()
		If Not IsObject(m_zemail) Then Set m_zemail = NewFldObj("zxzx", "x_zemail", "email", "[email]", 202, 5)
		Set zemail = m_zemail
	End Property

	' Field dh
	Private m_dh

	Public Property Get dh()
		If Not IsObject(m_dh) Then Set m_dh = NewFldObj("zxzx", "x_dh", "dh", "[dh]", 202, 5)
		Set dh = m_dh
	End Property

	' Field cz
	Private m_cz

	Public Property Get cz()
		If Not IsObject(m_cz) Then Set m_cz = NewFldObj("zxzx", "x_cz", "cz", "[cz]", 202, 5)
		Set cz = m_cz
	End Property

	' Field xxdz
	Private m_xxdz

	Public Property Get xxdz()
		If Not IsObject(m_xxdz) Then Set m_xxdz = NewFldObj("zxzx", "x_xxdz", "xxdz", "[xxdz]", 202, 5)
		Set xxdz = m_xxdz
	End Property

	' Field url
	Private m_url

	Public Property Get url()
		If Not IsObject(m_url) Then Set m_url = NewFldObj("zxzx", "x_url", "url", "[url]", 202, 5)
		Set url = m_url
	End Property

	' Field zxrq
	Private m_zxrq

	Public Property Get zxrq()
		If Not IsObject(m_zxrq) Then Set m_zxrq = NewFldObj("zxzx", "x_zxrq", "zxrq", "[zxrq]", 135, 5)
		Set zxrq = m_zxrq
	End Property

	' Field zxnr
	Private m_zxnr

	Public Property Get zxnr()
		If Not IsObject(m_zxnr) Then Set m_zxnr = NewFldObj("zxzx", "x_zxnr", "zxnr", "[zxnr]", 203, 5)
		Set zxnr = m_zxnr
	End Property

	' Field hf
	Private m_hf

	Public Property Get hf()
		If Not IsObject(m_hf) Then Set m_hf = NewFldObj("zxzx", "x_hf", "hf", "[hf]", 203, 5)
		Set hf = m_hf
	End Property

	' Field isshow
	Private m_isshow

	Public Property Get isshow()
		If Not IsObject(m_isshow) Then Set m_isshow = NewFldObj("zxzx", "x_isshow", "isshow", "[isshow]", 202, 5)
		Set isshow = m_isshow
	End Property

	' Create new field object
	Private Function NewFldObj(tblvar, fldvar, fldname, fldexpression, fldtype, flddtformat)
		Dim fld
		Set fld = New cField
		fld.TblVar = tblvar
		fld.FldVar = fldvar
		fld.FldName = fldname
		fld.FldExpression = fldexpression
		fld.FldType = fldtype
		fld.FldDateTimeFormat = flddtformat
		fld.ImageWidth = 0
		fld.ImageHeight = 0
		fld.Visible = True
		Set NewFldObj = fld
	End Function

	' Table level events
	' Recordset Selecting event
	Sub Recordset_Selecting(filter)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here	
	End Sub

	' Recordset Selected event
	Sub Recordset_Selected(rs)

		'Response.Write "Recordset Selected"
	End Sub

	' Recordset Searching event
	Sub Recordset_Searching(filter)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here	
	End Sub

	' Row_Selecting event
	Sub Row_Selecting(filter)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here	
	End Sub

	' Row Selected event
	Sub Row_Selected(rs)

		'Response.Write "Row Selected"
	End Sub

	' Row Rendering event
	Sub Row_Rendering()
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here	
	End Sub

	' Row Rendered event
	Sub Row_Rendered()

		' To view properties of field class, use:
		' Response.Write <FieldName>.AsString() 

	End Sub

	' Row Inserting event
	Function Row_Inserting(rs)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here
		' To cancel, set return value to False

		Row_Inserting = True
	End Function

	' Row Inserted event
	Sub Row_Inserted(rs)

		' Response.Write "Row Inserted"
	End Sub

	' Row Updating event
	Function Row_Updating(rsold, rsnew)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here
		' To cancel, set return value to False

		Row_Updating = True
	End Function

	' Row Updated event
	Sub Row_Updated(rsold, rsnew)

		' Response.Write "Row Updated"
	End Sub

	' Recordset Deleting event
	Function Recordset_Deleting(rs)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next

		' Enter your code here
		' To cancel, set return value to False

		Recordset_Deleting = True
	End Function

	' Recordset Deleted event
	Sub Recordset_Deleted(rs)

		' Response.Write "Recordset Deleted"
	End Sub

	' Email Sending event
	Function Email_Sending(Email, Args)

		'Response.Write Email.AsString
		'Response.Write "Keys of Args: " & Join(Args.Keys, ", ")
		'Response.End

		Email_Sending = True
	End Function

	' Class terminate
	Private Sub Class_Terminate
		If IsObject(m_id) Then Set m_id = Nothing
		If IsObject(m_zt) Then Set m_zt = Nothing
		If IsObject(m_zxr) Then Set m_zxr = Nothing
		If IsObject(m_xb) Then Set m_xb = Nothing
		If IsObject(m_gsmc) Then Set m_gsmc = Nothing
		If IsObject(m_sf) Then Set m_sf = Nothing
		If IsObject(m_zemail) Then Set m_zemail = Nothing
		If IsObject(m_dh) Then Set m_dh = Nothing
		If IsObject(m_cz) Then Set m_cz = Nothing
		If IsObject(m_xxdz) Then Set m_xxdz = Nothing
		If IsObject(m_url) Then Set m_url = Nothing
		If IsObject(m_zxrq) Then Set m_zxrq = Nothing
		If IsObject(m_zxnr) Then Set m_zxnr = Nothing
		If IsObject(m_hf) Then Set m_hf = Nothing
		If IsObject(m_isshow) Then Set m_isshow = Nothing
	End Sub
End Class
%>
