<% '//ÀÔÃâ·Â Á¦¾î Class objDB_Modify Private objQuery Private Sub Class_Initialize() '//Create Objects Set objQuery = GetDBConn() End Sub Private Sub Class_Terminate() Call CloseDBConn(objQuery) '//End End Sub Public Sub subExecInsert(byVal pTableName, byRef arrFieldName, byRef arrFieldValue) On Error Resume Next '//Transaction Start objQuery.BeginTrans Dim strQuery, strKeyQuery, strValQuery strQuery = " INSERT INTO " & pTableName strKeyQuery = " (" strValQuery = " (" Dim i Dim tempName, tempVal For i=0 to Ubound(arrFieldName, 1) If Left(Trim(arrFieldName(i)), 1) = "S" Then tempName = tempName & Mid(Trim(arrFieldName(i)), 3) & ", " tempVal = tempVal & " '" & arrFieldValue(i) & "', " Else tempName = tempName & Mid(Trim(arrFieldName(i)), 3) & ", " tempVal = tempVal & arrFieldValue(i) & ", " End If Next tempName = Left(tempName, Len(tempName) - 2) tempVal = Left(tempVal, Len(tempVal) - 2) strKeyQuery = strKeyQuery & tempName & ") " strValQuery = strValQuery & tempVal & ") " strQuery = strQuery & strKeyQuery & " VALUES " & strValQuery 'Response.write strQuery 'Response.end Dim sInsertQuery sInsertQuery = strQuery objQuery.Execute(sInsertQuery) If objQuery.Errors.Count <> 0 Then '¿¡·¯°¡ ¹ß»ýÇß´Ù¸é... objQuery.RollbackTrans Response.write sInsertQuery Response.end Call CloseDBConn(objQuery) Response.Write "" Else objQuery.CommitTrans End if End Sub Public Sub subExecUpdate(byVal pTableName, byRef arrFieldName, byRef arrFieldValue, byVal pStrWhereCondition) On Error Resume Next '//Transaction Start objQuery.BeginTrans Dim strQuery strQuery = " UPDATE " & pTableName strQuery = strQuery & " SET " Dim i Dim tempStr For i=0 to Ubound(arrFieldName, 1) If Left(Trim(arrFieldName(i)), 1) = "S" Then tempStr = tempStr & Mid(Trim(arrFieldName(i)), 3) & " = " & " '" & arrFieldValue(i) & "', " Else tempStr = tempStr & Mid(Trim(arrFieldName(i)), 3) & " = " & arrFieldValue(i) & ", " End If Next strQuery = strQuery & tempStr strQuery = Left(strQuery, Len(strQuery) - 2) strQuery = strQuery & " WHERE " & pStrWhereCondition Dim sUpdateQuery sUpdateQuery = strQuery 'Response.write sUpdateQuery 'Response.end objQuery.Execute sUpdateQuery If objQuery.Errors.Count <> 0 Then '¿¡·¯°¡ ¹ß»ýÇß´Ù¸é... objQuery.RollbackTrans Response.write sUpdateQuery 'Response.end Call CloseDBConn(objQuery) Response.Write "" Else objQuery.CommitTrans End if End Sub Public Sub subExecDelete(byVal pTableName, byVal pStrWhereCondition) On Error Resume Next '//Transaction Start objQuery.BeginTrans Dim strQuery strQuery = "DELETE " & pTableName & " WHERE " & pStrWhereCondition objQuery.Execute(strQuery) If objQuery.Errors.Count <> 0 Then '¿¡·¯°¡ ¹ß»ýÇß´Ù¸é... objQuery.RollbackTrans Call CloseDBConn(objQuery) Response.Write "" Else objQuery.CommitTrans End If End Sub End Class Sub subOpenComModify(byRef objModify) Set objModify = New objDB_Modify End Sub ' ----------------------------------------------------------------------------- ' GetDBRecordset ' ' Description: ' ' Parameters: ' ' Returns: ' Object(Recordset) ' Notes : ' none ' ----------------------------------------------------------------------------- Function GetDBRecordset() Set GetDBRecordset = Server.CreateObject("ADODB.Recordset") End Function ' ----------------------------------------------------------------------------- ' rsGetDBResult ' ' Description: ' ' Parameters: ' oConn - ADO Connection Object ' sQuery - DB Query String ' Returns: ' Object(Recordset) ' Notes : ' none ' ----------------------------------------------------------------------------- FUNCTION rsGetDBResult(byRef oConn, sQuery) ' -- ADO cursor types Const AD_OPEN_FORWARD_ONLY = 0 Const AD_OPEN_KEYSET = 1 Const AD_OPEN_DYNAMIC = 2 Const AD_OPEN_STATIC = 3 ' -- ADO lock types Const AD_LOCK_READ_ONLY = 1 Const AD_LOCK_PESSIMISTIC = 2 Const AD_LOCK_OPTIMISTIC = 3 Const AD_LOCK_BATCH_OPTIMISTIC = 4 Dim rsResult SET rsResult = GetDBRecordset() SET rsResult = oConn.Execute(sQuery) 'rsResult.Open oConn, sQuery, nCursorType, nLockType SET rsGetDBResult = rsResult END FUNCTION ' ----------------------------------------------------------------------------- ' arrGetDBResult ' ' Description: ' ' Parameters: ' oConn - ADO Connection Object ' sQuery - DB Query String ' Returns: ' Array ' Notes : ' none ' ----------------------------------------------------------------------------- FUNCTION arrGetDBResult(byRef oConn, sQuery) Dim rsResult SET rsResult = GetDBRecordset() 'response.write sQuery 'Response.end SET rsResult = oConn.Execute(sQuery) 'rsResult.Open oConn, sQuery, nCursorType, nLockType If rsResult.EOF Then arrGetDBResult = Empty Else arrGetDBResult = rsResult.GetRows End If END FUNCTION ' ----------------------------------------------------------------------------- ' CloseDBConn ' ' Description: ' ' Parameters: ' oConn - ADO Connection Object ' Returns: ' none ' Notes : ' none ' ----------------------------------------------------------------------------- Sub CloseDBConn(byRef oConn) Set oConn = Nothing End Sub ' ----------------------------------------------------------------------------- ' Function Name : FuncObjDictionary ' Description : Dictionary Object »ý¼º ' Parameters : None ' Returns : Object(Dictionary) ' Notes : None ' ----------------------------------------------------------------------------- Function FuncObjDictionary() Set FuncObjDictionary = CreateObject("Scripting.Dictionary") End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncObjGUID ' Description : GUID(Global Unique IDentifiers) »ý¼º ' Parameters : None ' Returns : Object(GUID) ' Notes : None ' ----------------------------------------------------------------------------- Function FuncObjGUID() Dim ObjGenGuid Set ObjGenGuid = Server.CreateObject("Scriptlet.Typelib") FuncObjGUID = ObjGenGuid.guid End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncStrCurrentPage ' Description : ÇöÀç ÆäÀÌÁö ±¸Çϱâ ' Parameters : None ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncStrCurrentPage() FuncStrCurrentPage = Request.ServerVariables("SCRIPT_NAME") End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncConvertChar ' Description : HTML Àμ­Æ® ½Ã String º¯È¯Ã³¸® ' Parameters : pstrVal - ÀÔ·Â ¹ÞÀº °ª ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncConvertChar(byVal pstrVal) pstrVal = Replace(pstrVal, "&", "&") pstrVal = Replace(pstrVal, "<", "<") pstrVal = Replace(pstrVal, ">", ">") pstrVal = Replace(pstrVal, "'", "''") pstrVal = Replace(pstrVal, "|", "|") pstrVal = Replace(pstrVal, Chr(13)&Chr(10), "
") FuncConvertChar=pstrVal End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncDelComma ' Description : ³Ñ°Ü¹ÞÀº ¹®ÀÚ¿­ÀÇ ÄÞ¸¶¸¦ Á¦°ÅÇÑ´Ù. ' Parameters : pstrVal - ÀÔ·Â ¹ÞÀº °ª ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncDelComma(pstrVal) Dim arrVal Dim i Dim TmpVal arrVal = Split(pstrVal, ",") For i = 0 to Ubound(arrVal) TmpVal = TmpVal + arrVal(i) Next FuncDelComma = Trim(TmpVal) End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncConvertInput (DB Insert ¿ë) ' Description : ³Ñ°Ü¹ÞÀº ¹®ÀÚ¿­ÀÇ /¸¦ Á¦°ÅÇÏ°í ÀÏ/¿ù/³âÀ¸·Î °¡Á®¿Â µ¥ÀÌÅ͸¦ ³â/¿ù/ÀÏ ¼øÀ¸·Î ¹Ù²Û´Ù. ' Parameters : pstrVal - ÀÔ·Â ¹ÞÀº °ª ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncConvertInput(pstrVal) Dim arrVal Dim i Dim TmpVal Dim strYYYY Dim strMM Dim strDD arrVal = Split(pstrVal, "/") For i = 0 to Ubound(arrVal) TmpVal = TmpVal + arrVal(i) Next strYYYY = Right(Trim(TmpVal), 4) strMM = Mid(Trim(TmpVal), 3, 2) strDD = Left(Trim(TmpVal), 2) TmpVal = strYYYY&strMM&strDD '//Response.write TmpVal '//Response.end FuncConvertInput = Trim(TmpVal) End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncConvertOutput (Display¿ë) ' Description : ³â/¿ù/ÀÏ·Î ÀúÀåµÈ Data¸¦ Display¿ëÀÎ ÀÏ/¿ù/³â À¸·Î ¹Ù²Û´Ù. ' Parameters : pstrVal - ÀÔ·Â ¹ÞÀº °ª ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncConvertOutput(pstrVal) Dim TmpVal Dim strYYYY Dim strMM Dim strDD strYYYY = Right(Trim(pstrVal), 4) strMM = Left(Trim(pstrVal), 2) strDD = Mid(Trim(pstrVal), 3, 2) TmpVal = strMM&"/"&strDD&"/"&strYYYY FuncConvertOutput = Trim(TmpVal) End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncCurDate ' Description : ÇöÀ糯¥¸¸ ±¸Çϱâ(- Á¦¿Ü) ' Parameters : None ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncCurDate() Dim strDate Dim arrDate Dim tempMonth Dim tempDay strDate = DATE() arrDate = Split(strDate, "/") IF Len(Trim(arrDate(0))) > 1 Then tempMonth = Trim(arrDate(0)) Else tempMonth = "0" & Trim(arrDate(0)) End IF IF Len(Trim(arrDate(1))) > 1 Then tempDay = Trim(arrDate(1)) Else tempDay = "0" & Trim(arrDate(1)) End IF FuncCurDate = tempMonth & tempDay & Trim(arrDate(2)) End Function Function FuncCurDate2() Dim strDate Dim arrDate Dim tempMonth Dim tempDay strDate = DATE() arrDate = Split(strDate, "/") IF Len(Trim(arrDate(0))) > 1 Then tempMonth = Trim(arrDate(0)) Else tempMonth = "0" & Trim(arrDate(0)) End IF IF Len(Trim(arrDate(1))) > 1 Then tempDay = Trim(arrDate(1)) Else tempDay = "0" & Trim(arrDate(1)) End IF FuncCurDate2 = Trim(arrDate(2)) & tempMonth & tempDay End Function Function FuncCurDateOrder() Dim strDate Dim arrDate Dim tempMonth Dim tempDay strDate = DATE() 'Response.write strDate & "
" 'Response.end arrDate = Split(strDate, "/") IF Len(Trim(arrDate(0))) > 1 Then tempMonth = Trim(arrDate(0)) Else tempMonth = "0" & Trim(arrDate(0)) End IF IF Len(Trim(arrDate(1))) > 1 Then tempDay = Trim(arrDate(1)) Else tempDay = "0" & Trim(arrDate(1)) End If '//Response.write Trim(arrDate(2)) & tempMonth & tempDay & "
" FuncCurDateOrder = Trim(arrDate(2)) & tempMonth & tempDay End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncCurDate2 ' Description : ÇöÀ糯¥ ±¸Çϱâ(- ¸¦ / ·Î ġȯ) MM/DD/YYYY ' Parameters : None ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncCurDate2() Dim strDate strDate = Left(NOW(), 8) strDate = Replace(strDate, "-", "/") FuncCurDate2 = strDate End Function Sub SubCalStartEnd(byVal pFormName, byVal pSequence, byVal pStart, byVal pFinish) %>

Start Date

~

End Date

<% End Sub '// Get start date Sub SubCalStartDate(byVal pFormName, byVal pName, byVal pRequest) %>

Date

<% End Sub '// Get end date Sub SubCalEndDate(byVal pFormName, byVal pName, byVal pRequest) %>

Date

<% End Sub '// Get start time Sub SubGetStartTime(byVal pFormName) %>

<% Dim i FOR i = 8 TO 17 %> <%=i%> <% Next %>

<% End Sub '// Get end time Sub SubGetEndTime(byVal pFormName) %>

<% Dim i FOR i = 8 TO 17 %> <%=i%> <% Next %>

<% End Sub ' ----------------------------------------------------------------------------- ' Function Name : FuncCalYM ' Description : Á¶È¸±â°£(³â, ¿ù) ' Parameters : yName, mName (°³Ã¼¸í) ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncCalYM(yName, mName) Dim tempStr Dim compYear, y Dim compMonth, m tempStr = "" compMonth = Request(mName) if compMonth = "" then compMonth = Month(now) tempStr = tempStr & "" & vbCRLF For m = 1 to 12 tempStr = tempStr & FuncOptionBox(Cint(m), Cint(compMonth)) & vbCRLF Next tempStr = tempStr & " / " & vbCRLF compYear = Request(yName) if compYear = "" then compYear = Year(now) tempStr = tempStr & "" & vbCRLF For y = 1995 to 2010 tempStr = tempStr & FuncOptionBox(Cint(y), Cint(compYear)) & vbCRLF Next tempStr = tempStr & "" & vbCRLF FuncCalYM = tempStr End Function Function FuncOptionBox(basicStr, compStr) IF basicStr = compStr Then FuncOptionBox = " " & basicStr Else FuncOptionBox = " " & basicStr End IF End Function ' ----------------------------------------------------------------------------- ' Function Name : FuncRenderButton ' Description : Render Button ' Parameters : pStrBtnName - ¹öÆ°¸í ' pStrAction - ¹öÆ°Action ' pStrAlign - ¹öÆ°Align ' Returns : String ' Notes : None ' ----------------------------------------------------------------------------- Function FuncRenderButton2(byVal pStrBtnName, byVal pStrAction, byVal pStrAlign) '//ÇâÈÄ À̹ÌÁö¸¦ »ó¼öÈ­Çϰųª CSS¿¡¼­ °¡Á®¿Àµµ·Ï ÇÑ´Ù. Dim ImgLeft Dim ImgCenter Dim ImgRight ImgLeft = "/images/button/button2_left.gif" ImgCenter = "/images/button/button2_center_bg.gif" ImgRight = "/images/button/button2_right.gif" %>

<%=pStrBtnName%>

<% End Function Function FuncRenderButton3(byVal pStrBtnName, byVal pStrAction, byVal pStrAlign) '//ÇâÈÄ À̹ÌÁö¸¦ »ó¼öÈ­Çϰųª CSS¿¡¼­ °¡Á®¿Àµµ·Ï ÇÑ´Ù. Dim ImgLeft Dim ImgCenter Dim ImgRight ImgLeft = "/images/button/button2_left.gif" ImgCenter = "/images/button/button2_center_bg.gif" ImgRight = "/images/button/button2_right.gif" %>

<%=pStrBtnName%>

<% End Function Sub subScriptClose() Dim strClose strClose = FuncRenderScript("window.close();", "Javascript") Response.write strClose End Sub Sub subScriptPageMove(pUrl) Dim strMove strMove = FuncRenderScript("document.location.href('"&pUrl&"');", "Javascript") Response.write strMove End Sub Sub subScriptPageMsg(pMsg) Dim strMsg strMsg = FuncRenderScript("alert('"&pMsg&"');", "Javascript") Response.write strMsg End Sub Function FuncOrderStatus(byVal status) Dim cStatus Select Case status Case "0" cStatus = "Waiting for Payment" Case "1" cStatus = "Processing" Case "2" cStatus = "Shipping" Case "3" cStatus = "Order Cancel" Case "4" cStatus = "Refund" Case "5" cStatus = "Except" End Select FuncOrderStatus = cStatus End Function Function FuncErrCheck() IF Err.Number <> 0 Then FuncErrCheck = True Else FuncErrCheck = False End IF End Function '//Page °æ·Î Sub SubPagePath(ByRef objQuery, ByVal category_cd, ByVal cat_lev) Dim arrCatName Dim arrSubCatName arrCatName = funcGetCategoryName(objQuery, category_cd) If IsArray(arrCatName) Then Select Case cat_lev Case 1 %>

HOME > <%=arrCatName(2, 0)%>

<% Case 2 arrSubCatName = funcGetCategoryName(objQuery, Trim(arrCatName(4, 0))) If IsArray(arrSubCatName) Then %>

HOME > <%=arrSubCatName(2, 0)%> > <%=arrCatName(2, 0)%>

<% End IF Case 0 If arrCatName(4, 0) <> "" Then '//Sub Category ¶ó¸é arrSubCatName = funcGetCategoryName(objQuery, Trim(arrCatName(4, 0))) If IsArray(arrSubCatName) Then %>

HOME > <%=arrSubCatName(2, 0)%> > <%=arrCatName(2, 0)%>

<% End IF Else '// 1´Ü°è¶ó¸é %>

HOME > <%=arrCatName(2, 0)%>

<% End IF End Select End IF End Sub Sub SubPagePathNormal(ByVal sPage) %>

HOME > <%=sPage%>

<% End Sub '//Product List Sub SubProductList(ByRef objQuery, ByVal category, ByVal sFlag) Dim sURL Select Case sFlag Case "TRAVEL" sURL = "/travel/reservation.asp" Case "THEME" sURL = "/theme%20travel/special%20vacations.asp" End Select Dim rsProdRow, list_cnt Dim inn Dim empty_TD, ix IF category = "C002" Then For inn = 1 To 3 Set rsProdRow = funcGetProductListByFront(objQuery, "C002_0"&inn) %> <% If rsProdRow.EOF = True and rsProdRow.BOF = True Then %> ÇöÀç µî·ÏµÈ ¿©Çà»óÇ°ÀÌ ¾ø½À´Ï´Ù. <% Else %> <% list_cnt = 0 Do Until rsProdRow.eof %> ">" width="226" height="125" border="0" alt="<%=Trim(rsProdRow("prod_name"))%>"/> <% list_cnt = list_cnt + 1 '//Ä«¿îÆ® Áõ°¡ IF (list_cnt mod 3) = 0 Then '//ÁÙ´ÜÀ§ ³¡ »óÇ°ÀÌ ¾Æ´Ï¸é %> <% End if rsProdRow.movenext Loop IF (list_cnt MOD 3) <> 0 Then '//ºóÄ­À¸·Î ÀÇ ³ª¸ÓÁö ü¿ò empty_TD = 3 - (list_cnt MOD 3) FOR ix = 0 to empty_TD -1 %>   <% Next End IF %> <% End IF rsProdRow.close Set rsProdRow = Nothing Next Else Set rsProdRow = funcGetProductListByFront(objQuery, category) If rsProdRow.EOF = True and rsProdRow.BOF = True Then %> ÇöÀç µî·ÏµÈ ¿©Çà»óÇ°ÀÌ ¾ø½À´Ï´Ù. <% Else %> <% list_cnt = 0 Do Until rsProdRow.eof %> ">" width="226" border="0" alt="<%=Trim(rsProdRow("prod_name"))%>"/> <% list_cnt = list_cnt + 1 '//Ä«¿îÆ® Áõ°¡ IF (list_cnt mod 3) = 0 Then '//ÁÙ´ÜÀ§ ³¡ »óÇ°ÀÌ ¾Æ´Ï¸é %> <% End if rsProdRow.movenext Loop IF (list_cnt MOD 3) <> 0 Then '//ºóÄ­À¸·Î ÀÇ ³ª¸ÓÁö ü¿ò empty_TD = 3 - (list_cnt MOD 3) FOR ix = 0 to empty_TD -1 %>   <% Next End IF %> <% End IF rsProdRow.close Set rsProdRow = Nothing End IF End Sub Function funcProdicon(ByVal icon) Dim icon_imgType Select Case icon Case "N" icon_imgType ="" Case "W" icon_imgType ="" Case "B" icon_imgType ="" End Select funcProdicon = icon_imgType End Function Sub subPageInfo(objQuery, objDictDataVal) Dim rsPage Set rsPage = funcGetRsMainPageInfo(objQuery) If rsPage.eof And rsPage.bof Then objDictDataVal.Add "idx", "" objDictDataVal.Add "img_path", "" objDictDataVal.Add "isActive_bgimg", "" objDictDataVal.Add "page_bg_img", "" objDictDataVal.Add "main_title_img", "" objDictDataVal.Add "page_bg_color", "" objDictDataVal.Add "isActive_notice_bgimg", "" objDictDataVal.Add "notice_bg_img", "" objDictDataVal.Add "notice_bg_color", "" objDictDataVal.Add "logo_img", "" Else objDictDataVal.Add "idx", Trim(rsPage("idx")) objDictDataVal.Add "img_path", Trim(rsPage("img_path")) objDictDataVal.Add "isActive_bgimg", Trim(rsPage("isActive_bgimg")) objDictDataVal.Add "page_bg_img", Trim(rsPage("page_bg_img")) objDictDataVal.Add "main_title_img", Trim(rsPage("main_title_img")) objDictDataVal.Add "page_bg_color", Trim(rsPage("page_bg_color")) objDictDataVal.Add "isActive_notice_bgimg", Trim(rsPage("isActive_notice_bgimg")) objDictDataVal.Add "notice_bg_img", Trim(rsPage("notice_bg_img")) objDictDataVal.Add "notice_bg_color", Trim(rsPage("notice_bg_color")) objDictDataVal.Add "logo_img", Trim(rsPage("logo_img")) End If rsPage.close Set rsPage = Nothing End Sub Sub SubGetCategoryLevle(ByRef objQuery, ByVal Category_CD) Dim arrCategory Dim arrParent Dim arrParentParent arrCategory = funcGetCategoryName(objQuery, Category_CD) If IsArray(arrCategory) Then Select Case Trim(arrCategory(3, 0)) '// Level Case 1 Response.write Trim(arrCategory(2, 0)) Case 2 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then Response.write Trim(arrParent(2, 0)) &"  ¢º  "& Trim(arrCategory(2, 0)) End IF Case 3 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then arrParentParent = funcGetCategoryName(objQuery, Trim(arrParent(4, 0))) If IsArray(arrParentParent) Then Response.write Trim(arrParentParent(2, 0)) &" | "& Trim(arrParent(2, 0)) &" | "& Trim(arrCategory(2, 0)) End IF End IF End Select End IF End Sub Sub SubGetSubCategoryLevle(ByRef objQuery, ByVal Category_CD) Dim arrCategory Dim arrParent Dim arrParentParent arrCategory = funcGetCategoryName(objQuery, Category_CD) If IsArray(arrCategory) Then Select Case Trim(arrCategory(3, 0)) '// Level Case 1 Response.write Trim(arrCategory(2, 0)) Case 2 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then Response.write Trim(arrCategory(2, 0)) End IF Case 3 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then arrParentParent = funcGetCategoryName(objQuery, Trim(arrParent(4, 0))) If IsArray(arrParentParent) Then Response.write Trim(arrCategory(2, 0)) End IF End IF End Select End IF End Sub Function FuncGetParentCategoryName(ByRef objQuery, ByVal Category_CD) Dim arrParent arrParent = funcGetCategoryName(objQuery, Category_CD) If IsArray(arrParent) Then FuncGetParentCategoryName = Trim(arrParentParent(2, 0)) Else FuncGetParentCategoryName = "" End IF End Function Function FuncGetParentCategoryCD(ByRef objQuery, ByVal Category_CD) Dim arrParent arrParent = funcGetCategoryName(objQuery, Category_CD) If IsArray(arrParent) Then FuncGetParentCategoryCD = Trim(arrParentParent(1, 0)) Else FuncGetParentCategoryCD = "" End IF End Function Sub SubGetCategoryTree(ByRef objQuery, ByVal Category_CD) Dim arrCategory Dim arrParent Dim arrParentParent arrCategory = funcGetCategoryName(objQuery, Category_CD) If IsArray(arrCategory) Then Select Case Trim(arrCategory(3, 0)) '// Level Case 1 %> <% Case 2 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then %> <% End IF Case 3 arrParent = funcGetCategoryName(objQuery, Trim(arrCategory(4, 0))) If IsArray(arrParent) Then arrParentParent = funcGetCategoryName(objQuery, Trim(arrParent(4, 0))) If IsArray(arrParentParent) Then %> <% End IF End IF End Select End IF End Sub Sub SubTitleImage(objQuery, page_cd) Dim strQuery, rsP strQuery = " SELECT img_path, page_name, main_title_img, " &_ " content, active_YN" &_ " FROM Z_DesignPage " &_ " WHERE page_cd = '"&page_cd&"' " Set rsP = rsGetDBResult(objQuery, strQuery) If rsP.eof = False And rsP.bof = False Then Dim strContent strContent = rsP("content") If Trim(rsP("main_title_img")) <> "" Then Response.write "" Else %>

<%=rsP("page_name")%>

<% End IF End If rsP.close Set rsP = Nothing End Sub %>