ASP 실무 활용 Function 모음

소개글

ASP 실무 활용 Function 모음입니다.
현재 실무에서 적용가능한 함수모음입니다.

목차

없음

본문내용

Sub set_RequestPrint()
Dim strItem, objItem
For Each strItem In Request.QueryString
Response.write strItem&"="&Request.QueryString(strItem)&"<br>"
Next
For Each objItem In Request.Form
Response.write objItem&"="&Request.Form(objItem)&"<br>"
Next
end Sub
````````````````````````````````````````````````````````````````````````````````````````````````````
` Description : javascript 모달창 메시지
` argument : pi_strMsg- 출력할 메세지, pi_state - 구분
` Date : 2007-09-06
````````````````````````````````````````````````````````````````````````````````````````````````````
Sub set_JsModelMsg(pi_state, pi_strMsg)
response.write "<script language=javascript>" & vbcrlf

if pi_state = "msg" then
response.write "alert(`"&pi_strMsg&"`);" & vbcrlf
else
response.write "window.returnValue = `"&pi_strMsg&"`;"& vbcrlf
end if
response.write "self.close();"& vbcrlf
response.write "</script>"
response.end

End Sub
````````````````````````````````````````````````````````````````````````````````````````````````````
` Description : 중간페이지 차단
` Date : 2007-10-17
````````````````````````````````````````````````````````````````````````````````````````````````````
Sub set_inPageCut(pagename, pi_strUrl)
Dim cpath
cpath = Request.ServerVariables("PATH_INFO")
if InStr(cpath, pagename) > 0 then
Call set_JsMsgGo("잘못된 경로입니다.", pi_strUrl)
end if
end Sub
````````````````````````````````````````````````````````````````````````````````````````````````````
` Description : 해당포맷으로 현재 시간을 가져온다.
` argument : dateFormat - 날짜포맷
` Date : 2005-11-21
````````````````````````````````````````````````````````````````````````````````````````````````````
Function get_DateTime(dateFormat)
Dim reValue
if dateFormat = "" then
dateFormat = "yyyy-mm-dd h:n:s"
end if

참고 자료

없음