<html><body><% Dim linkSite(5) linkSite(1) = "http://www.naver.com" linkSite(2) = "http://www.daum.net" linkSite(3) = "http://www.empas.com" linkSite(4) = "http://www.yahoo.co.kr" linkSite(5) = "http://www.nate.com" randomize() r=Int((5 * Rnd) + 1) '1부터 5까지 난수값을 생성
response.write "<a href='" & linkSite(r) & "' target=blank>웹마당넷(http://www.webmadang.net)</a>" %></body></html>