<% set Host = Server.CreateObject("AXHostLib.Host") %> <% '=============================================================================== ' [¼¼Æà »çÇ× ¼³¸í] ' ¼¼¼ÇÅ°: ¾Æ¸¶µµ ÀüÈ­¹øÈ£ ' À̹ÌÁöŸÀÔ: 0-GIF 1-JPG ÀüÈ­±â¿¡ µû¶ó¼­ ´Þ¶óÁü ' ImageName: °á°ú ±×¸²ÀÇ ÆÄÀϸí (È®ÀåÀÚ .gif ³ª .jpgµµ Æ÷ÇÔÇؾßÇÔ / ¼¼¼Ç ¸¶´Ù À̸§ÀÌ ´Þ¶ó¾ßÇÔ) ' ex) SessionKey & ".gif" ' ImageUrl: À̹ÌÁö¿¡ Á¢±ÙÇϱâ À§ÇÑ URL (ÆÄÀϸí Æ÷ÇÔ) ' ex) "/IMG/" & ImageName ' ImagePath: À̹ÌÁö°¡ ÀúÀåµÉ ·ÎÄà °æ·Î (ÆÄÀϸí Æ÷ÇÔ) ' ex) "D:\Projects\wwwroot\IMG\" & ImageName ' SessionPath: ¼¼¼Ç Á¤º¸°¡ ÀúÀåµÉ ·ÎÄà Æú´õ (¸¶Áö¸·ÀÇ \ ¿¡ ÁÖÀÇ) ' ex) "D:\gostop\session\" ' ResourcePath: °í½ºÅé ÇÁ·Î±×·¥ÀÌ »ç¿ëÇÏ´Â À̹ÌÁö ¸®¼Ò½ºÀÇ ·ÎÄà Æú´õ (¸¶Áö¸·ÀÇ \ ¿¡ ÁÖÀÇ) ' ex) "D:\gostop\img\" '=============================================================================== SessionKey = "016-249-2689" ImageType = 0 If Request("i") = "" Then UserInput = -1 Else UserInput = Request("i") End If ImageName = SessionKey & ".gif" ImageUrl = "/IMG/" & ImageName ImagePath = "D:\Projects\wwwroot\IMG\" & ImageName SessionPath = "D:\gostop\session\" ResourcePath = "D:\gostop\img\" CrLf = Chr(13) & Chr(10) '=============================================================================== ' Godori Object '=============================================================================== ' Set obj = Server.CreateObject( "GodoriCOM.Godori" ) '=============================================================================== ' Property Settings '=============================================================================== obj.UserInput = UserInput obj.SessionKey = SessionKey obj.ImageType = ImageType obj.ImagePath = ImagePath obj.SessionPath = SessionPath obj.ResourcePath= ResourcePath ' ==== RUN ==== obj.ProcessTurn '=============================================================================== ' Decode Return Values '=============================================================================== Messages = split( obj.Messages, "<>" ) Links = split( obj.Links, "<>" ) MessageCount = UBound(Messages) LinkCount = UBound(Links) %><% '=============================================================================== ' Formatting Output '=============================================================================== Response.Write( "
" & CrLf ) For i=0 to MessageCount-1 Response.Write( Messages(i) & "
" & CrLf ) Next For i=0 to LinkCount-1 Response.Write( ConvertLink(Links(i)) & CrLf ) Next %> <% Function ConvertLink( link ) Dim idx idx = -1 If InStr(link,"¨ç") Then idx=1 If InStr(link,"¨è") Then idx=2 If InStr(link,"¨é") Then idx=3 If InStr(link,"¨ê") Then idx=4 If InStr(link,"¨ë") Then idx=5 If InStr(link,"¨ì") Then idx=6 If InStr(link,"¨í") Then idx=7 If InStr(link,"¨î") Then idx=8 If InStr(link,"¨ï") Then idx=9 If InStr(link,"¨ð") Then idx=0 If InStr(link,"[»ó¼¼º¸±â]") Then idx=11 If InStr(link,"[»õ·Î½ÃÀÛ]") Then idx=15 If InStr(link,"[´ÙÀ½]") Then idx=-1 ConvertLink = "" & link & "
" End Function %>