<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardview.asp
' Program Description : 세부 글보기 페이지
' QueryString : 반드시 list.asp에서 Num=1 식으로 전송
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] 변수 선언
Option Explicit
Dim Num: Num = Request("Num")
Dim objCon: Dim objRs: Dim strSql
'[2] 커넥션 인스턴스
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 열기
objCon.Open(Application("CONNECTION_STRING"))
'[!] 조회수 증가
strSql = "Update Basic Set ReadCount = ReadCount + 1 Where Num = " & Num
objCon.Execute(strSql)
'[4] 레코드셋 인스턴스
Set objRs = Server.CreateObject("ADODB.RecordSet")
'[5] 레코드셋 열기 : 명령 실행(select)
strSql = "Select * From Basic Where Num = " & Num
objRs.Open strSql, objCon
'[6] 출력
If objRs.BOF Or objRs.EOF Then
Response.Write("해당 레코드가 존재하지 않습니다.")
Else 'HTML+ASP코드(스파게티코드)로 모양 만들어 출력
Call ShowRecordSet(objRs)
End If
'[7] 닫기
objRs.Close(): objCon.Close()
'[8] 해제
Set objRs = Nothing: Set objCon = Nothing
%>
<%
Sub ShowRecordSet(objRs)
%>
기본 게시판 세부 항목 보기
| 글쓴이 | <%=objRs("Name")%> |
날짜 | <%=objRs("PostDate")%> |
| Email | <%=objRs("Email")%> |
조회수 | <%=objRs("ReadCount")%> |
| 제목 | <%=objRs("Title")%> |
| <%=objRs("Content")%> |
[게시판리스트]
">[수정]
">[삭제]
<%
End Sub
%>