<% Option Explicit %> <% Response.Expires=-1 %> <%response.buffer = true%> <% call bad_ipcheck(objConn) Dim file_code, file_name file_name = "index.htm" country_code = "cha" file_code = file_code_val(file_name, objConn, country_code) If file_code <> "false" Then call Plus_count(objConn, file_code) End If %>

<% Dim Query_result, Query_list Dim List_scale List_scale = 5 Query_list = "SELECT TOP " & List_scale Query_list = Query_list & " * FROM " Query_list = Query_list & notice Query_list = Query_list & " WHERE country_code='"&country_code &"'" Query_list = Query_list & " order by uid desc " Set Query_result = objConn.Execute(Query_list) %> <% If Query_result.BOF = True OR Query_result.EOF = True Then Dim intj intj = 5 %> <% Else Dim uid, subject intj = 0 Do until Query_result.EOF uid = Query_result("uid") subject = Query_result("subject") subject = subject_check(subject,20) %> <% intj = intj + 1 Query_result.Movenext Loop objConn.close Set Query_result = Nothing Set objConn = Nothing End If If intj < 4 Then dim intk for intk = intj to 4 %> <% intj = intj + 1 next End If %>           <%=subject%>   Copyright(c) 1986-2001 Shinwon Felt All rights reserved. Webmaster@shinwon-felt.com 121-819  汉城特別市 麻浦区 東橋洞 203-2 / Tel : 82-2-333-6623 / Fax : 82-2-333-8359