<% Option Explicit %> <% Response.Expires=-1 %> <%response.buffer = true%> <% call bad_ipcheck(objConn) Dim file_code, file_name file_name = "freeboard_view.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 Start_page Start_page = Request.QueryString("Start_page") Dim Up_query, Up_result, View_query, View_result Dim uid, user_name, user_email, subject, content, view_num, write_date Dim yy, mm, dd uid = Request.QueryString("uid") Up_query = "UPDATE "&free_board&" set view_num = view_num + 1 WHERE uid="&uid Set Up_result = objConn.Execute(Up_query) View_query = "SELECT * FROM " View_query = View_query & free_board &" WHERE uid="&uid Set View_result = objConn.Execute(View_query) user_name = View_result("user_name") user_name = ReplaceTag2Text(user_name) subject = View_result("subject") subject = ReplaceTag2Text(subject) content = View_result("content") content = Replace(content, vbLf, vbLf &"
") view_num = View_result("view_num") write_date = View_result("write_date") yy= year(write_date) mm = right("0" & month(write_date),2) dd = right("0" & day(write_date),2) write_date = yy & ":" & mm & ":" & dd %> >>Shinwon-felt........
  




<%=subject%>
writer : <%=user_name%> <%=write_date%>    Hit : <%=view_num%>   
<%=content%>

"> "> "> ','admin','width=400,scrollbars=no,height=200,status=no');"> ','admin','width=400,scrollbars=no,height=200,status=no');">

Copyright(c) 1986-2001 Shinwon Felt All rights reserved. Webmaster@shinwon-felt.com

<% objConn.Close Set View_result = Nothing Set objConn = Nothing %>