수다닷컴

공부도 할겸 수다 사이트 글쓰기 소스를 짜보았는데요 ,,

urlencode 소스는

public function urlencode(byval urltext as string) as string
dim i as long
dim ansi() as byte
dim ascii as integer
dim enctext as string
ansi = strconv(urltext, vbfromunicode)
enctext =
for i = 0 to ubound(ansi)
ascii = ansi(i)
select case ascii
case 48 to 57, 65 to 90, 97 to 122
enctext = enctext & chr(ascii)
case 32
enctext = enctext & +
case else
if ascii 16 then
enctext = enctext & %0 & hex(ascii)
else
enctext = enctext & % & hex(ascii)
end if
end select
next i
urlencode = enctext
end function이소스 사용하였구요 .

문제는 ,,

숫자나 영어를 작성하면 문제없이 작성이되는데 특수문자나 한글을 넣으면 작성이 안되네요 ..

혹시 지금 게시글 작성소스 작동되는 소스 가지고계신분 계시다면 어떤부분이 문제인지 알려주실수 있으신가요 ?

도움주실분 계시다면 소스 보여드리겠습니다 .. ㅠㅠ 도와주세용 답답하네요.. ㅠㅠ

원하신다면 사례금 조금 ,, 드릴수있습니다.. 1만원정도 .. ㅈㅅ. .

신청하기