<%
set db = server.createobject("adodb.connection")
db.open ("Provider=SQLOLEDB;User ID=dbman;Password=rmeofmftkfkdgkqslek;Initial Catalog=dbmana;;Data Source=211.174.179.8")
Set rs = server.createobject("adodb.recordset")
bigFolder = Server.MapPath("/") & "\files\"
%>
나무위로 폴짝
<%
DIM strAdvertisement,strAboutGame
' AD
strAdvertisement=""
' NOTICE
strAboutGame=""
'---- DB Connection String ---
const SQLHEADER="SK_Ranking.dbo."
'SQLHEADER=""
DIM bLocal, strProvider, strBBSProvider, strDICProvider, strChatProvider, strTEXTProvider
bLocal = FALSE
if(bLocal) then
strProvider = "server=ADAL; uid=sa; pwd=dkfzhdekfzhd;driver={SQL Server};DB=SK_Ranking;"
else
strProvider = "server=211.174.179.26; uid=sa; pwd=tmxhsakskex;driver={SQL Server};DB=SK_Ranking;"
end if
const constCursorLocation=2
const constCursorType=3
const constLockType=3
'Response.Expires=0'Always reload
public Function FormatNumberEx(nVar)
if (nVar<>0) then
FormatNumberEx=FormatNumber(nVar,0)
else
FormatNumberEx=0
end if
end function
public Function IsValid(str)
if (IsEmpty(str) or IsNull(str) or Len(str)<1) then
IsValid=false
else
IsValid=true
end if
end function
%>
<%
'For WAP
DIM nGameKey
nGameKey=91
Public Function GetRank(nScore,DBConn)
'Calc Ranking
Set Rank = DBConn.Execute("Select r = count(gamekey) from SK_Ranking.dbo.score where gamekey=91 and gd_1>"&nScore )
GetRank = Rank("r")+1
Rank.Close
Set Rank=Nothing
End Function
function GetNationString2(scoreRS,nRank)
DIM strNameTag,strMID,strRank,strPhone,nl,nRl,nSl,i,strScore,score
if (not scoreRS.EOF) then '값이 있다면
strNameTag=trim(scoreRS("phonesubno"))'폰넘버 뒷자리
nl=Len(strNameTag)
nRl=Len(Cstr(nRank))
nSl=Len(Cstr(scoreRS("gd_1")))
score=Cstr(scoreRS("gd_1"))
strRank=Cstr(nRank)
strScore=Cstr(score)
if nl=7 then
strPhone="019-"&Mid(strNameTag,1,1)&"XX-"&Mid(strNameTag,4,4)
end if
if nl=8 then
strPhone="019-"&Mid(strNameTag,1,2)&"XX-"&Mid(strNameTag,5,4)
end if
if nl=10 then
strPhone=Mid(strNameTag,1,3)&"-"&Mid(strNameTag,4,1)&"XX-"&Mid(strNameTag,7,4)
end if
if nl=11 then
strPhone=Mid(strNameTag,1,3)&"-"&Mid(strNameTag,4,2)&"XX-"&Mid(strNameTag,8,4)
end if
GetNationString2="
"&strRank&".
"&strPhone&"
"
else
GetNationString2=""
end if
end function
DIM DBConn,RankRS,i
DIM nRank,nTotal,User,nID
'--------------------
DIM strList,nMyScore
DIM strMyNation
Set DBConn = Server.CreateObject("ADODB.Connection")
Set RankRS = Server.CreateObject("ADODB.recordset")
strMyNation=""
DBConn.open( strProvider)
RankRS.CursorType = 3'static
RankRS.CursorLocation = 2
RankRS.LockType = 3'pess
set RankRS= DBConn.Execute( "Select * from SK_Ranking.dbo.score where gamekey=91 order by gd_1 desc")
for i=1 to 5
if (not RankRS.EOF) then
response.write " "
strList=strList&GetNationString2(RankRS,i)
RankRS.MoveNext
end if
next
RankRS.Close
DBConn.Close
set RankRS = Nothing
set DBConn = Nothing
%>
<%=strList%>
작은 호기심으로 오르기 시작한 나무. 2003년 엄청난 인기를 끌었던 나무를 다시 만난다.
폴짝 뛰기와 씨앗 던지기 등의 새로운 움직임과 함께 더욱 더 귀여워진 깻잎 소녀 가루의 모험담!! 나무위로 폴짝!!
우리가 살고 있는 지구와는 다른 지구...나무리안 이곳에는 옛날부터 하늘로 치솟은 높은 나무가 있었다. 나무는 하얀 구름을 넘어
사람의 육안으로 볼 수 없는 곳까지 뻗어 있었고 이미 이 곳 사람들에게는 아무런 감흥을 주지 못하는 일상의 경치일 뿐이었다. 나무리안의 변두리에서 살고 있는
소녀 가루. 그녀는 자신이 태어나기 전부터 존재하는 나무의 정상에 무엇이 있을까 매우 궁금했다.
나무에 꼭대기에 대한 여러 가지 추측과 소문이 난무 했지만 진실을 눈으로 확인해야 겠다고 생각하던 어느날 그녀는 큰 결심을 하게된다.
