<% dim page_no, searchKey, searchType, sno ,ListArg tgb = "B" sno = trim(request("sno")) page_no = trim(request("page_no")) searchKey = trim(request("searchKey")) searchType = trim(request("searchType")) if len(page_no) = 0 then page_no = 1 end if ListArg = "page_no="&page_no&"&searchKey="&searchKey&"&searchType="&searchType %> ::: 바비젼 :::
 
 
 
<% OpenDatabase if len(sNo) > 0 then SQL = "UPDATE TB_BOARD SET readcnt = readcnt + 1 Where sNo ='"& sNo &"' " DBCon.Execute(SQL) sql = "select * from TB_BOARD Where sNo='"&sNo&"'" set rs = CreateObject("adodb.recordSet") rs.open sql,dbcon,1 if not rs.EOF then name = Trim(rs("name")) title = Trim(rs("title")) contents = Trim(rs("contents")) contents = Replace(contents,vbLf,vbLf&"
") readcnt = Trim(rs("readcnt")) reg_dt = Left(Trim(rs("reg_dt")),10) end if rs.close set rs = nothing else call alert("잘못된경로에 접근하셨습니다.",0,"") end if %>
Home > 게시판
 
<%=name%> (<%=reg_dt%>)
<%=title%>
 


<%=contents%>

 
<% CloseDataBase %>