<%
' ----------------------------------------------------------------------------------------------------
' ## 공통변수 및 사용자정의변수 정의
' ----------------------------------------------------------------------------------------------------
' DB 관련 변수
Dim dbConn, rs, rs2, var_SQL,var_SQL2, var_AddSQL, var_AddSQL2, i, j
Dim paramInfo, paramInfos
' 파라미터 변수
Dim var_Num
' 컬럼변수
Dim col_content
' 디버그 모드
'Call clsDB.SetDebugMode(True)
' ----------------------------------------------------------------------------------------------------
' ## 페이지 검증
' ----------------------------------------------------------------------------------------------------
If StrComp(REFERER_URL, "") = 0 Then
'Call clsFN.JsAlertLocation(NOT_ACCESS_PATH, PARAMETER_001)
end If
' ----------------------------------------------------------------------------------------------------
' ## Receive Parameters
' ----------------------------------------------------------------------------------------------------
var_Num = clsFN.GetParameter(Request("num"), "")
' ----------------------------------------------------------------------------------------------------
' ## 필수 입력 항목 체크
' ----------------------------------------------------------------------------------------------------
If Not clsFN.IsValid(var_Num) Then
Call clsFN.JsAlert(PARAMETER_002)
End If
If clsFN.toNumeric(var_Num) = 0 Then
Call clsFN.JsAlert(PARAMETER_002)
End If
' ####################################################################################################
' ## 게시판 정보
' ####################################################################################################
var_SQL = "SELECT "
var_SQL = var_SQL & " CONTENT "
var_SQL = var_SQL & " FROM "& BOARD_TABLENAME &" A "
var_SQL = var_SQL & " WHERE A.DEL_YN = 'N' AND A.VIEW_YN = 'Y' AND A.BOARD_SEQ = ? "
ReDim paramInfo(0)
paramInfo(0) = clsDB.MakeParam("@BOARD_SEQ", adInteger, adParamInput, 0, var_Num)
Set rs = clsDB.ExecSQLReturnRS(var_SQL, paramInfo, Nothing)
If Not rs.EOF Then
col_content = Trim(rs("CONTENT"))
End If
clsDB.closeRS(rs)
%>
<%=col_content%>
<%
' ----------------------------------------------------------------------------------------------------
' ## 자원 반환
' ----------------------------------------------------------------------------------------------------
%>
<%
BOARD_CATEGORY.RemoveAll
Set BOARD_CATEGORY = Nothing
%>