Copyright(c)2001BAEKKWANGSTAINLESSCO.,LTD.

<% Option Explicit %> <% Dim Gotopage Gotopage = Request("Gotopage") Dim UpdateSQL, db, SQL, Rs Set db = Server.CreateObject("ADODB.Connection") db.Open strconnect UpdateSQL="Update board Set readnum=readnum+1 " UpdateSQL=UpdateSQL&"where board_idx=" & Request.QueryString("board_idx") db.Execute UpdateSQL SQL = "select * from board where board_idx=" & Request.QueryString("board_idx") Set Rs = db.Execute(SQL) function ReplaceTag(str) Dim text text = replace(str, "&", "&") text = replace(text, "<", "<") text = replace(text, ">", ">") ReplaceTag = text End Function Dim board_idx, num, ref, re_level, re_step Dim name, mail, title, url, content, readnum Dim yy, mm, dd, h, mi, yymmdd yymmdd = Rs("writeday") yy = year(yymmdd) mm = right("0" & month(yymmdd),2) dd = right("0" & day(yymmdd),2) h = right("0" & hour(yymmdd),2) mi = right("0" & minute(yymmdd),2) yymmdd = yy & "." & mm & "." & dd & " " & h & ":" & mi name = Rs("name") mail = Rs("mail") title = Rs("title") url = Rs("url") content = Rs("content") readnum = Rs("readnum") board_idx=Rs("board_idx") num=Rs("num") ref=Rs("ref") re_step=Rs("re_step") re_level=Rs("re_level") title=ReplaceTag(title) name=ReplaceTag(name) rs.close set rs=nothing %> Copyright(c)2001BAEKKWANGSTAINLESSCO.,LTD.

[Name]

<%=name%>

[Date]

<%=yymmdd%>

[Hit]

<%=readnum%>

[Homepage]

<%=url%>

[Title]

<%=title%>

<%=content%>

<% SQL="select board_idx, title,re_level from board where ref=" & ref & " order by ref desc,re_step asc" set Rs=server.CreateObject("ADODB.Recordset") Rs.Open SQL,db %>

◎관련글

<% do until rs.EOF Dim title1, board_idx1,wid title1 = Rs("title") board_idx1=Rs("board_idx") If Len(title1) > 30 Then title1 = Mid(title1,1,30) & "..." If Trim(title1) = "" then title1 = "[제목없음]" title1 = ReplaceTag(title1) %> <% Rs.movenext loop %>

<% if rs("re_level") > 0 then wid=5 * rs("re_level") %>

<%end if%> <%=title1%>