<%
Option Explicit
Dim objDBConn
Dim objRs
Dim strSQL
Dim intSeq, strName, strEmail, strSubject, strContent
Dim blnTag, intCount, strUserIP, dtmReg_Date
intSeq = Request.QueryString("seq")
Set objDBConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
objDBConn.Open "97003074", "sa","accessheaven"
strSQL = "Update board Set intCount = intCount + 1"
strSQL = strSQL & " Where intSeq = " & intSeq
objDBConn.Execute strSQL
strSQL = "Select strName" ' objRs(0) - 이름
strSQL = strSQL & ",strEmail" ' objRs(1) - 이메일
strSQL = strSQL & ",strSubject" ' objRs(2) - 제목
strSQL = strSQL & ",strContent" ' objRs(3) - 내용
strSQL = strSQL & ",blnTag" ' objRs(4) - 태그사용여부
strSQL = strSQL & ",intCount" ' objRs(5) - 조회수
strSQL = strSQL & ",strUserIP" ' objRs(6) - 작성자 IP
strSQL = strSQL & ",dtmReg_Date" ' objRs(7) - 작성일
strSQL = strSQL & " From board"
strSQL = strSQL & " Where intSeq = " & intSeq
objRs.Open strSQL, objDBConn
strName = objRs(0)
strEmail = objRs(1)
strSubject = objRs(2)
strContent = objRs(3)
blnTag = objRs(4)
intCount = objRs(5)
strUserIP = objRs(6)
dtmReg_Date = objRs(7)
objRs.Close
Set objRs = nothing
objDbConn.Close
Set objDBConn = nothing
If blnTag = "F" Then
strContent = Server.HTMLEncode(strContent)
End If
strContent = Replace(strContent, vbLf, vbLf & "
")
%>
태지의 게시판 - 내용보기