|
|
|
|
 |
|
율리 / 2001-01-29 / 오전 8:56:19 / 211.195.39.84
조회수 : 156
|
| [질문] 런타임 오류a |
CheckValue = replace(CheckValue, ""","'")
요문장에서 따옴표 쓰임이 잘못되었군요.
VB 문법에서의 문자열들은 "..." 처럼 큰따옴표(")로
문자열의 앞뒤를 감싸줍니다.
그런데, 만약 문자열안에 큰따옴표(")가 들어간다면
문자열의 끝이 어디인지 모호해지기 때문에 VB 에서
는 문자열내에서의 큰따옴표는 두번연속으로 써서
혼란을 막고 있답니다.
그래서 올바른 표현은
CheckValue = replace(CheckValue, """","'")
이렇게 쓰셔야 합니다. ^_^
그럼, 즐프~
> 오류 형식:
> Microsoft VBScript 런타임 오류 (0x800A000D)
> 형식이 일치하지 않습니다
> /neboard/include/convert.asp, line 15
> ------------------
> 흐흐 죄송 채영님 또 질문이네요
> 애구 잘나가나 싶더니 이렇게 자주 막히내요
> 잘나갈때 이상하게 바써야 하는데 히히^^
> 위 에러에 대한 답변을 부탁해요 그리고 소스는 아래입니다.
>
> <%
> ' 문자열 변환 함수 모음
>
> ' DB에서 페이지에 출력할 때
> Function ReverseWord(CheckValue)
> CheckValue = replace(CheckValue, ""","'")
> CheckValue = Replace(CheckValue, Chr(13)&Chr(10),"
")
> CheckValue = Replace(CheckValue, " "," ")
> ReverseWord = CheckValue
> End Function
>
> ' DB에 저장할 때 (HTML 효과 x)
> Function CheckWord(CheckValue)
> CheckValue = replace(CheckValue, "&" , "&")
> CheckValue = replace(CheckValue, "<", "<")
> CheckValue = replace(CheckValue, ">", ">")
> CheckValue = replace(CheckValue, "'", "''")
> CheckWord = CheckValue
> End Function
>
> ' DB에 저장할 때 (HTML 효과주기)
> Function CheckHTML(CheckValue)
> CheckValue = replace(CheckValue, "&" , "&")
> CheckValue = replace(CheckValue, "'", "''")
> CheckHTML = CheckValue
> End Function
>
> %>
>
>
----------------------------------------------------------- |
|
|
|