Sub loginNow()
	if trim(window.document.all("acText").value)="" then
		msgbox "請輸入帳號！",64,"TUAA"
		window.document.all("acText").focus
		exit sub
	end if
	if trim(window.document.all("apText").value)="" then
		msgbox "請輸入密碼！",64,"TUAA"
		window.document.all("apText").focus
		exit sub
	end if
	window.frames("iFrameTemp").location.assign "login.php?ac=" & trim(lcase(window.document.all("acText").value)) & "&ap=" & trim(lcase(window.document.all("apText").value))
	
	window.event.returnValue=false
End Sub

Sub window_onload()
	if window.document.all("mac") is nothing then
	else
		if window.document.all("mac").value<>"" and window.document.all("map").value<>"" then
			window.document.all("acText").value=window.document.all("mac").value
			window.document.all("apText").value=window.document.all("map").value
			loginNow
		end if
	end if
End Sub

Sub forgetPwd()
	window.open "forgetPwd.php","FP","toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no,width=600,height=310,top="&clng((window.screen.height-300)/2)&",left="&clng((window.screen.width-600)/2)&""
End Sub