´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net) ÀÔ±¹Çϱâ | ¿µÁÖ±Ç ½Åû
  • ¸öºÎ¸² °ñ¶ó°ñ¶ó
  • ¼Ò±Ù¼Ò±Ù
  • µµ¶õµµ¶õ
  • ³«¼­¸¶´ç
  • Âø°¢ÇѾÆÀÌ
  • ¼ýÀÚ¸ÂÃß±â
  • ¼Ò¿øºô±â
  • ÈçÀû³²±â±â
  • ²Þ¼Ó¿©Çà
  • Ä£±¸Áý ³î·¯°¡±â
  • ¸ðµÎµå¸²´ÔÀÇ È¨
  • î¤éÞ´ÔÀÇ È¨
  • Çö¿ì´ÔÀÇ È¨
  • º°¾ÆÇØ´ÔÀÇ È¨
  • ÇÞ»ì´ÔÀÇ È¨
  • À̳ª´Ï´ÔÀÇ È¨
  • À¯¸®¾Ë´ÔÀÇ È¨
  • ³È³ÈÀÌ´ÔÀÇ È¨
  • ²ÀÁö´ÔÀÇ È¨
  • ´ë¼º´ÔÀÇ È¨
  • ±¤³¢ / 2001-06-20 / ¿ÀÀü 11:56:43 / 203.227.135.231
    Á¶È¸¼ö : 125
    [Áú¹®] FSOÀÇ »ç¿ë¿¡¼­....¹®Á¦...
    ¿©·¯°¡Áö ÆÄÀÏÀ» Á¶ÇÕÇÏ¿© ÇϳªÀÇ ÆÄÀÏÀ» ¸¸µé°íÀÚ ÇÕ´Ï´Ù..

    ¼±Åÿ¡ µû¶ó...´Ù¸¥ ÆÄÀÏÀ» Àо ÇϳªÀÇ htmÆÄÀÏÀ» ¸¸µé¾î¾ß Çϱ⿡....¿ì¼±Àº include´Â Èûµé°Í °°½À´Ï´Ù.....ÇϳªÀÇ strº¯¼ö¿¡ ÀÌ ÆÄÀÏ(¿Ï¼º.asp¶ó°í ÇÒ¶§)ÀÇ htmlÄÚµùÀ» ´ã¾Æ ´Ù¸¥ ÆÄÀÏ·Î º¸³»Áà¾ß Çϱ⶧¹®¿¡...if(...)then str = <!--#inclue file="ºÎºÐ1.htm"--> end if ¶ó°í ÇÒ¼ö ¾ø±â ¶§¹®ÀÔ´Ï´Ù.(ÀÌ°Ô °¡´ÉÇÑ°¡??)

    ±×·¡¼­ »ý°¢ÇÑ °ÍÀÌ...FSOÀä...À̸¦ ¼±Åð¡Áö¼ö·Î ·çÇÁ¹®À» µµ´Â ¾È¿¡¼­...¼±ÅÃÁ¶°Ç¿¡ µû¶ó ÆÄÀÏÀ» ÀÐ¾î ¿À°Ô²û ÇÏ·Á±¸ Çϴµ¥...ÀÌ·²°æ¿ì CreateObject´Â Çѹø¸¸ ÇØÁÖ¾î¾ß ÇÏ´ÂÁö(·çÇÁ¹® ¹Û¿¡¼­)....±×¸®°í FSO¿¡¼­ ÆÄÀÏÀ» ¿­¾î À̸¦ ´ãÀº º¯¼ö´Â ¾²°í ³ª¼­ nullÀ» ½ÃÄÑÁÖ´Â ¿¹Á¦°¡ ¾ø´Âµ¥...À̸¦ null·Î ÇÏ°í ´Ù½Ã ´Ù¸¥ ÆÄÀÏÀ» Àоî¾ß ÇÏ´ÂÁö¿ä...

    Set fs = Server.CreateObject("Scripting.FileSystem.Object")

    for i=0 to ¼±Åð¡Áö¼ö
    select case selec
    case 1
    Set objFile = fs.OpenTextFile("C:\MyTest\test1.txt",1)
    content = objFile.readall
    str += replace(content,chr(13)&chr(10),"<br>")
    case 2
    Set objFile = fs.OpenTextFile("C:\MyTest\test2.txt",1)
    content = objFile.readall
    str += replace(content,chr(13)&chr(10),"<br>")
    case 3
    Set objFile = fs.OpenTextFile("C:\MyTest\test2.txt",1)
    content = objFile.readall
    str += replace(content,chr(13)&chr(10),"<br>")
    end select
    Next

    ÀÌ·¸°Ô ¾²¸é ¾ÈµÉ°Å °°Àºµ¥....¼öÁ¤À̳ª...´Ù¸¥ ÁÁÀº ¹æ¹ýÀ» ¾Æ½Ã´Â ºÐ Á¶¾ð ºÎŹµå¸³´Ï´Ù.
    Byte * 200 Byte À̳»·Î ÀÔ·ÂÇϼ¼¿ä À̸§ : Æнº¿öµå :