<% If session("todayCount1")="" then addCount = 1 if left(request.serverVariables("Remote_Host"), 12) = "211.116.129." or left(request.serverVariables("Remote_Host"), 9) = "210.98.5." or request.serverVariables("Remote_Host") = "203.252.148.223" or request.serverVariables("Remote_Host") = "210.102.181.22" or request.serverVariables("Remote_Host") = "203.250.116.200" or request.serverVariables("Remote_Host") = "220.95.136.91" then '내부에서는 아무것도 하지 않습니다. addCount = 0 end If '전체 방문수를 업데이트합니다. dim fso, objFile, countFile set fso = server.createObject("Scripting.FileSystemObject") countFile = server.mappath("\") & "\2011\counter.txt" Set objFile = fso.OpenTextFile(countFile, 1) dim counter counter = CLng(objFile.readLine) counter = counter + addCount totalCount = counter objFile.close Set objFile = Nothing if addCount > 0 then Set objFile = fso.createTextFile(countFile, true, false) objFile.writeLine(counter) objFile.close set objFile = nothing end if '오늘의 방문수를 업데이트합니다. countFile = server.mappath("\") & "\2011\counter_log\log_" & year(now) & right("00"&month(now),2) & right("00"&day(now),2) & ".log" function getPreTodayCount(fso, countFile) dim objFile, counter if fso.FileExists(countFile) then Set objFile = fso.OpenTextFile(countFile, 1) counter = CLng(objFile.readLine) objFile.close Set objFile = Nothing else counter = 0 end if getPreTodayCount = counter end function counter = getPreTodayCount(fso, countFile) + addCount todayCount = counter if addCount > 0 then Set objFile = fso.createTextFile(countFile, true, false) objFile.writeLine(counter) objFile.writeLine(totalCount) set objFile = nothing end if set fso = Nothing session("todayCount1")=todayCount session("totalCount1")=totalCount End if %>
  Latest News Submission : May 31, 2010
    Deadline  
  Early Registration Deadline : June 8, 2010
  Standard Registration : June 9 ~ July 15, 2010
  On-site Registration : July 25 ~ 30, 2010
  Conference : July 25 ~ 30, 2010
  Deadline for nomination for : December 1, 2009
    Young Scientist Prize  
  Abstract Submission Deadline : March 1, 2010
      : March 14, 2010 (Extended)
  Notification of Acceptance : April 25, 2010
  ICPS 2008 http://www.icps2008.org
  ICPS 2006 http://www.icps2006.at
NCNT
SILTRON
 
On-line Abstract Submission
On-line Registration
Hotel Reservation
5F Daehan Bldg., #1018 Dunsan-Dong, Seo-Gu, Daejeon 302-120, Korea
Tel : +82-42-472-7460 / Fax : +82-42-472-7459
E-mail : icps2010@icps2010.org / Web : http://www.icps2010.org

Copyright (c) ICPS 2010. All Rights Reserved.
Home Contact us Sitemap