Dim OrgStr, sTimer, m_SearchList, ListState

Sub slisttop_onmouseover
	Dim TmpStr, TmpCnt

	window.clearTimeout(sTimer)
	if CLng(ListState) = 1 then
		sTimer = window.setInterval("mouseposcheck('a')" ,1000)
		Exit Sub
	end if
	
	if OrgStr = "" then
		OrgStr = slisttop.outerHTML
	end if
	
	if m_SearchList = "" then
		TmpStr = LCase(Trim(slist.outerHTML))
	
		if Left(TmpStr,6) <> "<table" then
			TmpCnt = inStr(1,TmpStr,"<table")
			TmpStr = Right(TmpStr,Len(TmpStr) - (TmpCnt - 1))
		end if
	
		if Right(TmpStr,5) = "</td>" then
			TmpStr = Left(TmpStr,Len(TmpStr)-5)
		end if
	
		m_SearchList = TmpStr
	end if
	
	tslist.style.border="1px solid #808080"
	slisttop.innerHTML = m_SearchList
	ListState = 1
	sTimer = window.setInterval("mouseposcheck('a')" ,1000)
End Sub


Sub mouseposcheck(ustr)
	tslist.style.border="0px"
	slisttop.innerHTML = OrgStr
	window.clearTimeout(sTimer)
	ListState = 0
End Sub


Sub FindSearch(ustr)
	if Trim(ustr) = "" then
		alert "°Ë»ö¾î¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä."
		exit sub
	elseif Len(Trim(ustr)) < 2 then
		alert "°Ë»ö¾î´Â ÃÖ¼Ò 2ÀÚ ÀÌ»ó ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù."
		exit sub
	end if

	window.location.href="/Dbg_Board/MainInclude/powersearch/allSearch.asp?findstrsub=" & ustr
End Sub


Sub FindSearchProduct(ustr)	'ÀåÅÍ¿¡¼­ ÅëÇÕ°Ë»öÀ» Çϴ°æ¿ì
	if Trim(ustr) = "" then
		alert "°Ë»ö¾î¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä."
		exit sub
	elseif Len(Trim(ustr)) < 2 then
		alert "°Ë»ö¾î´Â ÃÖ¼Ò 2ÀÚ ÀÌ»ó ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù."
		exit sub
	end if

	window.location.href="/Dbg_Board/MainInclude/powersearch/allSearch.asp?findstrsub=" & ustr & "&marketTop=yes"
End Sub