<% 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\" %> 나무위로 폴짝 " 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 %>


<% 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&"
<%=strList%>
   
  작은 호기심으로 오르기 시작한 나무. 2003년 엄청난 인기를 끌었던 나무를 다시 만난다.
  폴짝 뛰기와 씨앗 던지기 등의 새로운 움직임과 함께 더욱 더 귀여워진 깻잎 소녀 가루의 모험담!! 나무위로 폴짝!!
 
  우리가 살고 있는 지구와는 다른 지구...나무리안 이곳에는 옛날부터 하늘로 치솟은 높은 나무가 있었다. 나무는 하얀 구름을 넘어
  사람의 육안으로 볼 수 없는 곳까지 뻗어 있었고 이미 이 곳 사람들에게는 아무런 감흥을 주지 못하는 일상의 경치일 뿐이었다. 나무리안의 변두리에서 살고 있는
  소녀 가루. 그녀는 자신이 태어나기 전부터 존재하는 나무의 정상에 무엇이 있을까 매우 궁금했다.
  나무에 꼭대기에 대한 여러 가지 추측과 소문이 난무 했지만 진실을 눈으로 확인해야 겠다고 생각하던 어느날 그녀는 큰 결심을 하게된다.
  "나무의 정상을 볼 거야. 이 세상의 진실을 알아야겠어!"
나이:14세
사는곳: 나무리안 나무구 솔잎동 5번지
성격: 쾌활하다 못해 시끄럽고 호기심이 많음.
좋아하는 거: 달고 맛있는 것은 무엇이든지 좋아함.
현재 근황: 나무 위를 폴짝 폴짝 뛰어 오르고 있음.