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