<% Response.expires=0 %> <% Set DbCon = Server.CreateObject("ADODB.Connection") DbCon.open "Provider=SQLOLEDB.1;Data Source=localhost;Initial catalog=CVL;User Id=sa;Password=park6831;" '게시물 정보 읽어오기 SQL = "Select * From board " SQL = SQL & "Where board_num = " & Request("id") Set Rs = DbCon.Execute( SQL ) '다음 줄로 이동 문자 치환 Contents = Rs("board_contents") Contents = Replace(Contents, chr(10), "
") '웹주소와 메일 하이퍼링크 처리 Function ereg_replace(ptrn, replStr, strng) Dim regEx Set regEx = New RegExp regEx.Pattern = ptrn regEx.IgnoreCase = True regEx.Global = True ereg_replace = regEx.Replace(strng, replStr) End Function Contents = ereg_replace("((http|https|ftp|telnet|news):\/\/[a-z0-9-]+\.[][a-zA-Z0-9:&#@=_~%;\?\/\.\+-]+)", "$1", Contents) Contents = ereg_replace("([_0-9a-zA-Z-]+(\.[_0-9a-zA-Z-]+)*)@([0-9a-zA-Z-]+(\.[0-9a-zA-Z-]+)*)", "$1@$3", Contents) %> Computer Vision Lab.
 
           
   
 
 
제  목 <%=Rs("board_title")%>
작성자 <%=Rs("board_writer")%> 작성일 <%=Rs("board_date")%>
자 료 "><%=Rs("board_dataname")%>
내 용
<%=Contents%>

    <%if Session("ad") = "yes" then%> &id=<%=Rs("board_num")%>">  &id=<%=Rs("board_num")%>">  <%end if%> ">
 
 
 
<% Rs.Close Set Rs = Nothing Dbcon.Close Set DbCon = nothing %>