Active Server Page

	ASP > 사용자 제작 함수 > 4. ASP 에서 javascript 처리 (sub ~ end sub 이용)
	
	ASP 프로그래밍을 하다 보면 자바스크립트 alert 처리하는 부분때문에 시간을 낭비하는 경우가 많습니다.
	
	이럴 경우 메세지만 전달해서 alert 을 사용하면 프로그래밍 시간을 단축할수 있습니다.
	
	아래 소스 처럼요.
	
	
	'-----------------ALERT 표시 ---------------------------
	sub Alert(txtmsg)
		txtmsg = replace(txtmsg, "'", "`")
		response.write "<script language='javascript'>"
		response.write "alert('" & txtmsg & "');"
		response.write "</script>"
	end sub

	'-----------------ALERT 표시 후 뒤로 이동---------------
	sub Alert_back(txtmsg)
		txtmsg = replace(txtmsg, "'", "`")
		response.write "<script language='javascript'>"
		response.write "alert('" & txtmsg & "');"
		response.write "history.back ();"
		response.write "</script>"
		response.end
	end sub

	'-----------------ALERT 표시 후 특정 URL 로 이동-----------------
	sub Alert_url(txtmsg, txturl)
		txtmsg = replace(txtmsg, "'", "`")
		response.write "<script language='javascript'>"
		response.write "alert('" & txtmsg & "');"
		response.write "window.location.replace ('" & txturl & "');"
		response.write "</script>"
		response.end
	end sub

	'-----------------ALERT 표시없이 전체윈도우에 대한 특정 URL 로 이동(프레임으로 나누어져 있을때)
	sub Win_link(txturl)
		response.write "<script language='javascript'>"
		response.write "parent.location.replace ('" & txturl & "');"
		response.write "</script>"
		response.end
	end sub

	'----------------- 창 닫기 ----------------------------------
	sub win_close()
		response.write "<script language='javascript'>"
		response.write "window.close();"
		response.write "</script>"
		response.end
	end sub
	
	
	파일을 include 하신후 
	
	
	Alert "하하하"
	Alert_back "하하하"
	Alert_url "하하하"
	Win_link "하하하","호호호"
	win_close()
	
	와 같은 형식으로 사용하시면 됩니다.
	
	즐거운 프로그래밍 되세요.