''// html 호출
strBodyhtml = ftnHtmlLoad(MODUEL_SKIN_URL & "TPLNewsView.html")
btnList = "
목록"
ViewCountAdd = ftnUpdateNewsVcnt(SRNO)
Set objRs = ftnGetNewsAdminView(SRNO, HOSPI_CD)
If objRs.EOF Then
ftnjsAlertMsgUrl "WARRING : 경로가 잘못 되었습니다.", ftnUrlItemAdd("Mode,Srno", "L,", PATH_INFO, "")
Response.End
Else
txtHospicd = Trim(objRs("hospi_Cd"))
txtRegCls = Trim(objRs("reg_cls"))
txtTitle = Trim(objRs("Title"))
txtHtmlYN = Trim(objRs("HtmlYN"))
Response.Write ""
If txtHtmlYN = "Y" Then
txtConts = Trim(objRs("Conts"))
Else
txtConts = ftnReplaceContent(Trim(objRs("Conts")))
End If
'==========================================================================================
' 접근성 태그 적용
'==========================================================================================
Dim objRegExp
Set objRegExp = new RegExp
objRegExp.Pattern = "
![]()
]*>"
objRegExp.Global = True
objRegExp.IgnoreCase = True
Dim match, Matches, idx
Dim arrList()
idx = -1
Set Matches = objRegExp.Execute(txtConts)
If Matches.Count = 0 Then
RegExpArray = Null
Else
For Each match In Matches
idx = idx + 1
ReDim Preserve arrList(idx)
arrList(idx) = match
if InStr(lcase(arrList(idx)), "alt=") <= 0 then
changeimg = replace(arrList(idx),">"," alt='image' />")
else
changeimg = replace(arrList(idx),">"," />")
end if
txtConts = replace(Lcase(txtConts), Lcase(arrList(idx)), changeimg)
txtConts = replace(Lcase(txtConts), "
", "
")
Next
End If
Set Matches = nothing
txtConts = replace(txtConts, "
", "
")
'==========================================================================================
' 접근성 태그 적용
'==========================================================================================
End If
Set objRs = Nothing
If txtRegCls = "P" Or txtHospicd <> HOSPI_CD Then
btnUpdate = ""
btnDelete = ""
btnCancel = ""
End If
Set objRs = ftnGetNewsPN(HOSPI_CD, SRNO, KEY, KEYWORD)
If objRs.EOF Then
txtPrevLnk = ""
txtNextLnk = ""
Else
Do While (Not objRs.EOF)
If Trim(objRs("gubun")) = "prev" Then
txtPrevSrno = Trim(objRs("Srno"))
txtPrevTitle = Trim(objRs("Title"))
txtPrevLnk = "
" & txtPrevTitle & ""
ElseIf Trim(objRs("gubun")) = "next" Then
txtNextSrno = Trim(objRs("Srno"))
txtNextTitle = Trim(objRs("Title"))
txtNextLnk = "
" & txtNextTitle & ""
End If
objRs.MoveNext
Loop
End If
Set objRs = Nothing
dicParams.RemoveAll
dicParams.Add "txtTitle" , ftnCleanSpecialChars(txtTitle)
dicPArams.Add "txtConts" , ftnCleanSpecialChars(txtConts)
dicParams.Add "txtPrevLnk" , txtPrevLnk
dicParams.Add "txtNextLnk" , txtNextLnk
dicParams.Add "btnList" , btnList
dicParams.Add "btnUpdate" , ""
dicParams.Add "btnDelete" , ""
dicParams.Add "btnCancel" , ""
Response.write ftnHtmlAreaLoad(strBodyhtml,"Body01")
'===========================================================
' 함 수 명 : ftnCleanSpecialChars
' 설 명 : 복사 붙여넣기로 인한 특수문자 및 눈에 보이지 않는 문자 정리
' 입 력 값 : strText - 정리할 텍스트
' 출 력 값 : 정리된 텍스트
'===========================================================
Function ftnCleanSpecialChars(strText)
Dim cleanedText, i, charCode
If IsNull(strText) Or Trim(strText) = "" Then
ftnCleanSpecialChars = ""
Exit Function
End If
cleanedText = strText
' 눈에 보이지 않는 특수문자 제거 (ASCII 0-31, 127-159)
For i = 0 To 31
If i <> 9 And i <> 10 And i <> 13 Then ' 탭(9), 줄바꿈(10,13)은 유지
cleanedText = Replace(cleanedText, Chr(i), " ")
End If
Next
For i = 127 To 159
cleanedText = Replace(cleanedText, Chr(i), " ")
Next
' 특정 유니코드 특수문자 제거 (물음표로 변환되는 문자들)
cleanedText = Replace(cleanedText, Chr(8203), " ") ' Zero Width Space
cleanedText = Replace(cleanedText, Chr(8204), " ") ' Zero Width Non-Joiner
cleanedText = Replace(cleanedText, Chr(8205), " ") ' Zero Width Joiner
cleanedText = Replace(cleanedText, Chr(8206), " ") ' Left-to-Right Mark
cleanedText = Replace(cleanedText, Chr(8207), " ") ' Right-to-Left Mark
cleanedText = Replace(cleanedText, Chr(8234), " ") ' Left-to-Right Embedding
cleanedText = Replace(cleanedText, Chr(8235), " ") ' Right-to-Left Embedding
cleanedText = Replace(cleanedText, Chr(8236), " ") ' Pop Directional Formatting
cleanedText = Replace(cleanedText, Chr(8237), " ") ' Left-to-Right Override
cleanedText = Replace(cleanedText, Chr(8238), " ") ' Right-to-Left Override
' Microsoft Word에서 복사된 특수문자들 제거
cleanedText = Replace(cleanedText, Chr(145), "'") ' Left Single Quotation Mark
cleanedText = Replace(cleanedText, Chr(146), "'") ' Right Single Quotation Mark
cleanedText = Replace(cleanedText, Chr(147), """") ' Left Double Quotation Mark
cleanedText = Replace(cleanedText, Chr(148), """") ' Right Double Quotation Mark
cleanedText = Replace(cleanedText, Chr(150), "-") ' En Dash
cleanedText = Replace(cleanedText, Chr(151), "-") ' Em Dash
cleanedText = Replace(cleanedText, Chr(133), "...") ' Horizontal Ellipsis
' 연속된 공백 정리 (2개 이상의 공백을 1개로)
cleanedText = Replace(cleanedText, " ", " ")
' 앞뒤 공백 제거
cleanedText = Trim(cleanedText)
ftnCleanSpecialChars = cleanedText
End Function
%>
2026.01.03
