[ASP] 기타함수

- 케쉬설정

?

1 2 3 4 5 6

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Transaction_(Error_Count,Trans_script)     If Error_Count = 0 Then         DB.CommitTrans           Response.Write "<script language="javascript">"         Response.Write "    alert('작업이 완료되었습니다.');"         Response.Write Trans_script         Response.Write "</script>"       Else         DB.RollBackTrans           Response.Write "<script language="javascript">"         Response.Write "    alert('작업처리중 오류가 발생하였습니다.');"         Response.Write Trans_script         Response.Write "</script>"           Call DBClose()         Response.End     End If End Sub

- 필수 입력값 인지 체크

?

1 2 3 4 5 6 7 8 9 10 11 12

Function CheckEssentiality(CheckValue)     If Len(trim(CheckValue)) > 0 Then         CheckEssentiality = CheckValue     Else         Response.write "<script language="JavaScript">"         Response.write "alert('필수 입력값이 빠졌습니다.\n\n확인후 작업해 주세요!');"         Response.write "history.back();"         Response.write "</script>"         Response.End         CheckEssentiality = ""     End If End Function

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

?

1 2 3 4 5 6 7 8 9 10 11 12

Function CheckNumeric(CheckValue)     If Len(CheckValue) > 0 and isnumeric(CheckValue) = true Then         CheckNumeric = CheckValue     Else         Response.write "<script language="JavaScript">"         Response.write "alert('입력한 숫자 등록 값중 문자를 입력하셨습니다.\n\n확인후 작업해 주세요!');"         Response.write "history.back();"         Response.write "</script>"         Response.End         CheckNumeric = 0     End If End Function

- IMAGE SIZE 구하는 부분

?

1 2 3 4 5 6

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

- 페이징

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

' 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 = "<a href=""& f_backward &""><img src="/img/com/ico_prev.gif" border="0" align="absmiddle"></a> "     f_forward = "<a href=""& f_forward &""><img src="/img/com/ico_next.gif" border="0" align="absmiddle"></a> "     f_ret = "<span style="font:8pt tahoma">"     For f_i = sPage To sPage+limit-1         If f_i = cint (page1) Then             f_ret = f_ret & "<b>[" & f_i & "]</b> "         Else             If instr(list_page ,"?") > 0 Then                 f_ret = f_ret & "<a href=""& list_page &"&page1=" & f_i & m_send & "">" & f_i & "</a> "             Else                 f_ret = f_ret & "<a href=""& list_page &"?page1=" & f_i & m_send & "">" & f_i & "</a> "             End If         End If         If f_i >= totalpage Then Exit For     Next     f_ret = f_ret &"</span>"       f_ret = f_backward & f_ret & f_forward     fun_list_page1 = f_ret End Function