[ASP] 기타함수

- 케쉬설정

Sub Expires()
	Response.Buffer = True
	Response.Expires = 0
	Response.AddHeader "Pragma", "no-cache"
	Response.AddHeader "cache-control", "no-store"
End Sub

- 트랜잭션 처리에 따른 스크립트처리

Sub Transaction_(Error_Count,Trans_script)
	If Error_Count = 0 Then
		DB.CommitTrans

		Response.Write ""

	Else
		DB.RollBackTrans

		Response.Write ""

		Call DBClose()
		Response.End
	End If
End Sub

- 필수 입력값 인지 체크

Function CheckEssentiality(CheckValue)
	If Len(trim(CheckValue)) > 0 Then
		CheckEssentiality = CheckValue
	Else
		Response.write ""
		Response.End
		CheckEssentiality = ""
	End If
End Function

- 받은 값이 숫자 인지 문자 인지 체크

Function CheckNumeric(CheckValue)
	If Len(CheckValue) > 0 and isnumeric(CheckValue) = true Then
		CheckNumeric = CheckValue
	Else
		Response.write ""
		Response.End
		CheckNumeric = 0
	End If
End Function

- IMAGE SIZE 구하는 부분

Sub GetImageSize(ByVal f, ByRef x, ByRef y)
	Dim p
	Set p = LoadPicture(f)
	x = CLng(CDbl(p.Width) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
	y = CLng(CDbl(p.Height) * 24 / 635) ' CLng 의 라운드 오프의 기능을 이용하고 있다.
End Sub

- 페이징

' totalpage:총페이지수,list_page:연결페이지,m_send:기타 Argu,f_limit :게시물 수
Function fun_list_page1 (byval totalpage,byval list_page,byval m_send,byval f_limit)
	Dim f_ret, limit, pos, sPage, f_backward, f_forward,f_i
	f_ret = ""
	limit = f_limit

	pos = (page1-1) Mod limit
	sPage = page1 - pos				' 시작페이지

	If sPage - limit > 0 Then
		If instr(list_page ,"?") > 0 Then
			f_backward = list_page &"&page1=" & sPage - 1 & m_send
		Else
			f_backward = list_page &"?page1=" & sPage - 1 & m_send
		End If
	Else
		f_backward = "javascript:void(0);"
	End If

	If sPage + limit <= totalpage Then
		if instr(list_page ,"?") > 0 Then
			f_forward = list_page &"&page1=" & sPage + limit & m_send
		Else
			f_forward = list_page &"?page1=" & sPage + limit & m_send
		End If
	Else
		f_forward = "javascript:void(0);"
	End If

	f_backward = " "
	f_forward = " "
    f_ret = ""
    For f_i = sPage To sPage+limit-1
        If f_i = cint (page1) Then
            f_ret = f_ret & "[" & f_i & "] "
        Else
			If instr(list_page ,"?") > 0 Then
				f_ret = f_ret & "" & f_i & " "
			Else
				f_ret = f_ret & "" & f_i & " "
			End If
        End If
        If f_i >= totalpage Then Exit For
    Next
    f_ret = f_ret &""

    f_ret = f_backward & f_ret & f_forward
	fun_list_page1 = f_ret
End Function