<% 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 %>