|
|||||
¾È³çÇϼ¼¿ä. À̹ø¿¡ Ŭ¸®ÇÎ »çÀÌÆ®(ÀϹÝÀûÀÎ »çÀÌÆ®¿¡¼ ÇÊ¿ä¾ø´ÂºÎºÐÀº Ãß·Á pda¿¡¼ º¸±â ÁÁ°Ô ¸¸µç »çÀÌÆ®)¸¦ ¸¸µé·Á°í Çϴµ¥¿ä. ´ë°ÀÇ ¹æ¹ýÀ» ¸»¾¸µå¸®¸é xmlhttp·Î »çÀÌÆ® ³»¿ëÀ» ºÒ·¯¼ Á¤±Ô½ÄÀ¸·Î ó¸®ÈÄ À̸¦ ´Ù½Ã html·Î ¸¸µé¾î ·ÎµùÀ» ºü¸£°Ô Çϴ°ÅÁÒ. À§¿Í °°Àº ¹æ¹ýÀ¸·Î ¿µ¹® ¹× ÇѱÛÀº ¹®Á¦ ¾øÀÌ ¿Ï¼ºÇß½À´Ï´Ù. ±×·±µ¥ ÀϺ»¾î°¡ ¹ß¸ñÀ» Àâ³×¿ä. ÀϺ»¾î °°Àº °æ¿ì´Â Áß°£¿¡ ƯÈ÷ īŸī³ª°¡ ¹°À½Ç¥(?)·Î ±úÁ®¹ö¸³´Ï´Ù. ¿¹¸¦ µé¸é ¾Æ·¡¿Í °°ÀÌ¿ä ¡¸ª³ªÎß¾ªÊª¯ª¤ª¤ìÑ¡¹ø¡?ªÎïÌô¹ÌÔ÷á⢪Ȫϡ£(17:49) auú¾ª±ß²åÇð²?ØÇ¡¸A5405SA¡¹¡¢ñéãóªÎÝúÚË¡£(17:11) «³«««³?«éªÎãæð²ù¡¡£«¢«á«ê««ªèªêªâ2ñÎÊàðĪ¯ìí?ªÇà»ú¼÷ü?¡£(12:05) 5êÅ9ìí¡¸«¢«¤«¹«¯«ê??ªÎìí¡¹ªËÒý?ªÎ«¤«Ù«ó«ÈËÒõÊ¡£(10:08) ÐÑìíªÎªÊªê«¹«±?4êÅ21ìí¡£(08:27) ¡¸ÔÔÌÈ«¦«©?««?¡¹ªÎÌ°ñÎ??ª¬«¹??«È¡£(07:18) ¡¼Ôçݯ«°«ë«á¡½«¢«¤«¹«¯«ê??¡¢«æ?«¹«¯«ê??¢Ü???ßÀ«¢«ê?¡£(03:29) ÖÂÙÊ?Ú¸ª¬ÜÖüÀ¡¢4êÅ22ìíªË«·«ó«°«ë??ªØ¡£(17:47) À§ÀÇ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ µ¥ºêÇǾÆ, ±¸±Û´º½º±×·ì, ÀϺ»asp»çÀÌÆ® µîµîÀ» µ¹¾Æ´Ù³àºÃ´Âµ¥ ¸¶¶¥ÇÑ ÇØ°á¹æ¹ýÀÌ ¾ø´õ¶ó±¸¿ä. ÇϳªÀÇ ÇØ°á¹æ¹ýÀÌ xmlhttp¸¦ ÀÌ¿ë ¹ÙÀ̳ʸ®·Î ³»¿ëÀ» ºÒ·¯ ½ºÆ®¸²°´Ã¼·Î ¹Ù·Î ¹ÙÀÌ·¯´Ï·Î html·Î ´Â ÀÛ¼º°¡´ÉÇѵ¥ ¹®Á¦´Â html³»¿ëÀ» ¼öÁ¤ÇØ Áà¾ßÇϰŵç¿ä. Çؼ ¾Æ½ºÅ° ·Î º¯°æÇϸé ÀϺ»¾î´Â ¿©Áö ¾øÀÌ À§¿Í °°Àº ºÎºÐÀÌ ±úÁý´Ï´Ù. ±úÁöÁö ¾ÊÀº htmlÆÄÀÏÀ» fso·Î ºÒ·¯¿À¸é ÀÌ ¿ª½Ã À§¿Í°°ÀÌ µÇ°í¿ä. Çؼ ºÎŹµå¸®°Ú½À´Ï´Ù. À§¿Í °°Àº ¹®Á¦Á¡À» ÇØ°áÇÏ´Â ¹æ¹ýÀÌ ¾øÀ»±î¿ä? µ¥ºêÇÇ¾Æ ¿©·¯ºÐµé Á¦¹ß ºÎŹµå¸³´Ï´Ù~ ÇöÀç ¼¹ö»óÅ Windows2000 Server, ÀϺ»¾î IME ¼³Ä¡ ¿Ï·á. Âü°í ¾Æ·¡´Â ¹ÙÀ̳ʸ®¸¦ ¾Æ½ºÅ°·Î º¯°æÇÏ´Â »ç¿ëÀÚÇÔ¼öÀÔ´Ï´Ù. ±×·±µ¥ À̸¦ ÀÌ¿ëÇصµ ¿ª½Ã ÀϺ»¾î ¹®Á¦´Â ÇØ°áºÒ°¡´ÉÇؼ Á¦°¡ Áß°£¿¡ ¾Æ¿¹ Äڵ忡 µû¶ó¼ ´Ù¸¥ ÀϺ»¾î ÄÚµå(±úÁöÁö¾Ê°í ¶æÀº°°Àº)·Î º¯°æÇÏ´Â ºÎºÐÀ» ³Ö¾ú½À´Ï´Ù. ÀÌ ¿ª½Ã Å©³ªÅ« ¼º´ÉÀÇ ÀúÇÏ ¶§¹®¿¡ »ç¿ëÀÌ ºÒ°¡´ÉÇÏ°í ¿Ïº®ÇÏÁöµµ ¾Ê¾Æ¼ Á¢¾îµÎ¾ú½À´Ï´Ù. Public Function BinDecode(byVal binData) Dim i, byteChr, strV For i = 1 to LenB(binData) byteChr = AscB(MidB(binData,i,2)) If byteChr > 127 Then i = i + 1 Select Case '&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))) Case '&HA5AD' strV = strV & Chr('&H834C') Case '&HA5AF' strV = strV & Chr('&H834E') Case '&HA5D9' strV = strV & Chr('&H8378') Case '&HA5DA' strV = strV & Chr('&H8379') Case '&HA5DD' strV = strV & Chr('&H837A')&Chr('&HA1EB') Case '&HA5E0' strV = strV & Chr('&HA4E0') Case '&HA5BF' strV = strV & Chr('&HA4BF') Case '&HA5DC' strV = strV & Chr('&HA4BC') Case '&HA5DB' strV = strV & Chr('&HA4DB') Case '&HA5BB' strV = strV & Chr('&HA4BB') Case '&HA5DF' strV = strV & Chr('&HA4DF') Case '&HA5AB' strV = strV & Chr('&HA4AB') Case '&HA5BD' strV = strV & Chr('&HA4BD') Case '&HA5C0' strV = strV & Chr('&HA4C0') Case '&HA5DE' strV = strV & Chr('&HA4DE') Case '&HA5BA' strV = strV & Chr('&HA4BA') Case '&HA5AE' strV = strV & Chr('&HA4AE') Case Else strV = strV & Chr('&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))))'&'/&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))) End Select ' Response.Write '&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))) &Chr('&HB5FE') ' Response.End Else strV = strV & Chr(byteChr) End if Next BinDecode = strV End Function ÀÌ°ÍÀº Á¦°¡ ÇÑ±Û ¹× ¿µ¹® »çÀÌÆ®¸¦ Ŭ¸³ÇϱâÀ§ÇØ ÆíÁýÇÑ ÇÔ¼ö ÀÔ´Ï´Ù. ÀϺ»¾î¸¦ Á¦¿ÜÇÏ°ï ¹®Á¦¾ø½À´Ï´Ù. Dim clippingtitle, source Dim subTitle Dim siteFont ' =========================== ' Function to GetHTMLBin ' =========================== Function GetHTMLBin(URLaddress) Dim Http Set Http = Server.CreateObject('MSXML2.ServerXMLHTTP') Http.Open 'GET', URLaddress, False Http.Send GetHTMLBin = Http.responseBody Set Http = Nothing End Function ' =========================== ' Function to BinToText ' =========================== 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 FunctionDim clippingtitle, source Dim subTitle Dim siteFont Select Case siteName Case 'narinari' clippingtitle='NariNari.com' source='http://narinari.com/' If sort='List' Then GetURL = 'http://narinari.com/' HTMLBin = GetHTMLBin(GetURL) html = BinToText(HTMLBin,32000) html = RegExpReplace('<html>[sS]*<td width=''10'' valign=''top'' td> </td>', html, '') html = RegExpReplace('<p> </p>[sS]*</html>', html, '') html = RegExpReplace('<img.[^>]*>|<p.[^>]*>|</p>]*>|</p>|<table.[^>]*>|<td.[^>]*>|<a class='MIME' href=''http.*>', html, '') html = RegExpReplace('/logs/?', html, 'clipView.htm?siteName=narinari&html=') Else GetURL = 'http://narinari.com/logs/?'&Request('html') HTMLBin = GetHTMLBin(GetURL) html = BinToText(HTMLBin,32000) html = RegExpReplace('<html>[sS]*<TR><TD><P>', html, '') html = RegExpReplace('<!-- amazon -->[sS]*</html>', html, '') html = RegExpReplace('</P><Hr size=1></TD></TR></TABLE>', html, '<br>') html = RegExpReplace('<font size=5>', html, '<font style=''font-weight:bold;''>') End If Selec End |
|
| ||
|
|