▣ ASP 자동으로 가로막대그래프 가져오는함수
' 해당변수의 값이 없을때 val의 값을 넘긴다.
' aaa = fn_IIF__(aaa, "1")
Function fn_IIF__(resval,val)
If resval = "" Then
fn_IIF__ = val
Else
fn_IIF__ = resval
End If
End Function
' 임의의 수를 매개변수로 받아 해당수보다 높은 10의 n승의 값을 리턴한다.
' ex) fn_Cal_BaseNo(37) => 100
Function fn_Cal_BaseNo(p_cnt)
Dim iloop___, rtn_val___
rtn_val___ = "1"
For iloop___=1 To Len(p_cnt)
rtn_val___ = rtn_val___ & "0"
Next
fn_Cal_BaseNo = rtn_val___
End Function
' 어레이를 받아 해당컬럼의 최대값을 리턴한다.
Function fn_Cal_MaxNO(p_ary,p_columns_no)
Dim iloop___, chk_len___
chk_len___ = 0
If IsArray(p_ary) Then
For iloop___=0 To UBound(p_ary,2)
If p_ary(p_columns_no,iloop___) > chk_len___ Then
chk_len___ = p_ary(p_columns_no,iloop___)
End If
Next
End If
fn_Cal_MaxNO = chk_len___
End Function
' 가로막대그래프만들기
' p_widthval : 그래프가 위치할 의 width값
' p_maxval : 최대수치값
' p_val : 현재수치값
' p_color : 그래프색상코드값
' ex) fn_StickGraph(500,fn_Cal_BaseNo(fn_Cal_MaxNO(aryRs,1),aryRs(1,iloop),"#65CC33")
Function fn_StickGraph(p_widthval,p_maxval,p_val,p_color)
response.write "
End Function
'Language > ASP' 카테고리의 다른 글
| WindowServer에서 ASP로 메일 보내기 함수 (0) | 2012.04.24 |
|---|---|
| ASP 덱스트업로드 이용한 파일저장 함수 (0) | 2012.04.24 |
| ASP 한글깨짐현상 처리하기 (0) | 2012.04.24 |
| XML File Load (0) | 2012.04.24 |
| recordset 객체 (0) | 2012.04.24 |
