ASP - 자바스크립트 Function 모음

ASP 페이지에서 결과창이나, DB인서트, 업데이트등 각종 _ok.asp 페이지에서 사용할 수 있는 자바스크립트 모음.
아래의 함수를 function.asp 에 넣어놓고, include시켜놓으면 편하게 사용가능함.

예제)
<script>
 alert("에러입니다.")
 history.back(-1);
</script>

--> 이런걸

asp 페이지에서는
<%
 call loop_back("에러입니다.")
%>

로 한줄로 구현 가능.

아래의 것들을 응용한 무궁한 javascript 활용 하시길~



'뒤로 한페이지 넘기기 =============================================
Sub loop_back(msg)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "history.go(-1);" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub

'그냥 경고창만 =============================================
Sub alert_pop(msg)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub

'경고후 페이지 닫힘 =============================================
Sub alert_close_pop(msg)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "self.close();" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub

'경고후 페이지 닫고, parent reload =============================================
Sub alert_close_reload(msg)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "opener.location.reload();" & vbcrlf
 Response.Write "self.close();" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub

'페이지 이동 ======================================================
Sub go_msg_url(msg,url)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "location.href='" & url & "';" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub

'그냥페이지 이동 ======================================================
Sub go_to_url(url)
 Response.write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "location.href='" & url & "';" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.end
End Sub