<% language=vbscript %>
<% dim newvisit newvisit=0 if request.cookies("jazzstory")("lastaccess")="" then response.cookies("jazzstory")("lastaccess")=date() response.cookies("jazzstory").expires="december 1, 1999" end if if (request.cookies("jazzstory")("lastaccess")
아마도 째즈스토리를 찾아가본 어떠한 형식도 거부해 버린 우리가 가졌던 그 틀의 관념을 |
<% '데이터 접속 오브젝트의 설정을 conn으로 set conn=server.createobject("adodb.connection") 'ODBC데이타 설정 ODBC원본 DATA에 접근 하기위하 파라미터 conn.open("DSN=webhost; UID=sa; PWD=") 'SQL로 값을 구하고 SQL로 갱신된 데이타를 UPDATE set sql=conn.execute("select counter from jazzstorycount") visitors =sql("counter") ' visitors=Application("visitcount") %> <% for i= len(visitors)+1 to 5 response.write " "
next
for i = 1 to len(visitors) '몇자리 카운터이냐에 따라서....
select case Mid(visitors,i,1)
case "1"
response.write " "
case "2"
response.write " "
case "3"
response.write " "
case "4"
response.write " "
case "5"
response.write " "
case "6"
response.write " "
case "7"
response.write " "
case "8"
response.write " "
case "9"
response.write " "
case "0"
response.write " "
End select
Next
%>
|
이 페이지를 무단 복제하는 것은 저작권법 위반입니다. |
이 페이지는 해상도 1024x768에서 최적화 되었습니다. |
|