게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

송원석님 말씀데로 너무 너무 힘든 작업 이네요.
우선 말씀하신 퍼포먼스 문제는 일단 번역이 이루어 진 후에 생각을 해보기로 마음 먹고 송원석님께서 가르쳐 주신 xmlhttp를 이용해서 성공 했습니다.
하지만 그 성공은 곧 10%로의 성공이었다는 결론에 도달했습니다.

10%의 성공이란게....
제가 테스트 디비를 가지고 있는게 일본어를 한국어로 바꾸어 주는 디비 부분만 가지고 있습니다. 그래서 일본어로 된 사이트를 뒤져서 URL을 입력하게 한 후 번역 버튼을 누르면 DB에 있는 내용을 루핑을 돌면서 한글로 번역을 하는데...

1. 이미지는 다 깨지더군요.. ㅎㅎ 이거야 웹사이트의 소스들이 URL로 되어 있는게 아니라 ../image/xxx.gif 형태이니 깨지는 건 어찌 보면 당연하리라 봅니다.
2. 이상한건 말이죠... 어떤 사이트는 한글화가 되지만 어떤 사이트는 일본어 그대로 나오는 건데.. 사실 이부분이 좀 문제의 90%라고 보고 있습니다.
말씀하신 인코딩 문제라고 간주하기에는 틀린 판단이라 보는게 보통 인코딩이 틀려서 깨지게 되면 태그와 함께 깨지게 되므로 사이트가 아작(?) 나게 되는데 이미지만 깨진채 그냥 그대로의 원본 웹페이지를 보인다는 말입니다. 반면 어떤 사이트는 나름대로 기분 좋게 번역이 된답니다.

디비 커넥션 부분만 아니면 소스를 시원하게 (이것도 반 이상이 송원석님꼐서 알려 주신 xmlhttp를 이용한 거지만) 공개해서 보여 드리겠는데....

디비 커넥션 부분을 제외한 소스만 보여 드립니다.
<%
Get_Url=request("geturl")
Function GetHTMLBin(URLaddress)
Dim Http
Set Http = CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", URLaddress, False
Http.Send
GetHTMLBin = Http.responseBody
Set Http = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes) ' as String
Const adFldLong = &H00000080
Const adVarChar = 200

Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk varBinData
BinToText = objRS("txt").Value
objRS.Close
Set objRS = Nothing
End Function

GetURL = Get_Url
HTMLBin = GetHTMLBin(GetURL)
html = BinToText(HTMLBin,32000)
%>
<!--#include file="conn.asp"//-->
<%
idx_no = "''"
languge = "jp1kr1"
viewTxt=html
If idx_no="" Then idx_no="''"
If languge="" Then languge="jp1kr1"
langL = left(languge,3)
langR = right(languge,3)

sql = "select idx_no, word_kr1, word_jp1, word_en1, word_en2 from tbl_dictionary "
Sql = Sql &" Where division <> '05' "
Sql = Sql &" order by len(word_"&langL&") desc, division asc "
set Rs=Conn.Execute(sql)
If Rs.Eof = false Then
Do until Rs.Eof
txtL = Rs("word_"&langL)
txtR = Rs("word_"&langR)
If isNull(txtL) Then txtL=""
If isNull(txtR) Then txtR=""
viewTxt = replace(viewTxt,txtL,txtR)
Rs.moveNext
Loop
End If
%>
<%=viewTxt%>

디비 커넥션 부분에 대한 파일 conn.asp 파일은 hipster74@chollian.net과 songgun@egocube.pe.kr로 메일 보냅니다. (어떤 메일을 쓰시는지 몰라서요.)

그냥 시간 날때 천천히 봐주셔도 됩니다.

저도 계속 이것 저것 해 보면서 그 진행 상황을 말씀 드리겠습니다.