" 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 10 if (not RankRS.EOF) then strList=strList&GetNationString2(RankRS,i) RankRS.MoveNext end if next RankRS.Close DBConn.Close set RankRS = Nothing set DBConn = Nothing %>
<% 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\" %> <% Response.Buffer=true Response.Expires=0 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" if Session("manastone") = "" or IsNull(Session("manastone")) then else sessionvalue = Split(Session("manastone"),"#") manaid = sessionvalue(0) memtype = sessionvalue(1) end if mananame = Request.Cookies("name") mananickname = Request.Cookies("nickname") manamail = Request.Cookies("email") %> <% soption = Trim(request("soption")) page = Trim(request("page")) spg = Trim(request("spg")) key = Trim(request("key")) key = Replace(key,"'","''") pagesize =4 setsize = 10 If page <> "" Then page = page If page < 1 Then page = 1 End if Else page = 1 End if %> <% soption = Trim(request("soption")) page = Trim(request("page")) spg = Trim(request("spg")) key = Trim(request("key")) key = Replace(key,"'","''") pagesize = 10 setsize = 10 If page <> "" Then page = page If page < 1 Then page = 1 End if Else page = 1 End if %>
  [SKT]삼국지 타이쿤 출시
  [GAMESPOT]삼국지 타이쿤 보도
  [게임조선]삼국지 타이쿤 KTF,LGT..
  [게임동아]마나스톤 삼국지 타이쿤..
<% 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\" strSql = "select count(sid) from samta_gongi" 'if memtype = "M" then if soption <> "" then strSql = strSql & " where "&soption&" like '%" &key& "%'" end if 'else 'strSql = strSql & " where years = '"&gangyear&"' and ban = '"&gangban&"'" 'if soption <> "" then ' strSql = strSql & " and "&soption&" like '%" &key& "%'" 'end if 'end if rs.open strSql,db, 1 nCount = Cint(rs(0)) rs.Close if nCount > 0 then strSql = "select Top "&page*pagesize&" sid,signdate,re_level,name,email,subject,hitno from samta_gongi" 'if memtype = "M" then if soption <> "" then strSql = strSql & " where "&soption&" like '%" &key& "%'" end if 'else 'strSql = strSql & " where years = '"&gangyear&"' and ban = '"&gangban&"'" 'if soption <> "" then ' strSql = strSql & " and "&soption&" like '%" &key& "%'" 'end if 'end if strSql = strSql & " ORDER BY ref desc, re_step asc" rs.open strSql,db, 1 pgcount = int(nCount/pagesize) if pgcount*pagesize <> nCount then pgcount = pgcount + 1 end if nStartPage = ((page-1) \ setsize)*setsize + 1 nEndPage =(((page-1) + setsize) \ setsize ) * setsize If pgcount <= nEndPage THEN nEndPage = pgcount End if num = nCount - (page-1) * pagesize rs.Move pagesize*(page-1) For iloop = 1 to pagesize if rs.EOF then exit for end if signdate = rs("signdate") re_level = CDbl(rs("re_level")) name = Trim(rs("name")) email = Trim(rs("email")) hit = rs("hitno") if email <> "" then name = ""&name&"" end if subject = cutkr(Trim(mid(rs("subject"),1,12)),"new",0,27,"yes")'&"..." subject = ""&subject&"" 'A|¸nC¥½A-----¿ⓒ±a ¸O¸´¸≫ °ª ³N°U¼­ readÆaAIAo¿¡ C¥½A nWidth = 0 nWidth = 4 * re_level %> <% num = num - 1 rs.MoveNext Next rs.Close end if Set rs = Nothing db.Close Set db = Nothing %>
 
  삼타 다운로드 경로
  SKT 이용제외 모델 안내
  KTF 이용제외 모델 안내
  LGT 이용가능/제외 모델 안내
<% 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%>