<%
Sub ShowRecordSet(objRs)'// 모양 출력 전담 함수
If objRs.BOF Or objRs.EOF Then
Else
Do Until objRs.EOF
%>
<TABLE border="1" width="600" align="center">
<TR>
<TD>번호 : </TD><TD><%=objRs.Fields("Num")%></TD>
</TR>
<TR>
<TD>제목 : </TD><TD><%=objRs.Fields("Title")%></TD>
</TR>
<TR>
<TD>작성자 : </TD><TD><%=objRs.Fields("Name")%></TD>
</TR>
<TR>
<TD>작성일 : </TD><TD><%=objRs.Fields("PostDate")%></TD>
</TR>
<TR>
<TD>조회수 : </TD><TD><%=objRs.Fields("ReadCount")%></TD>
</TR>
<TR>
<TD colspan="2" height="200" valign="top">
<%
Dim strContent
'[!] HTML 태그 처리
strContent = objRs.Fields("Content")
If objRs.Fields("Encoding") = "Text" Then ' Text
strContent = Replace(strContent, "&", "&")
strContent = Replace(strContent, "<", "<")
strContent = Replace(strContent, ">", ">")
'[!] 엔터 처리
strContent = Replace(strContent,Chr(13) & Chr(10),"<br>")
ElseIf objRs("Encoding") = "Mixed" Then ' Mixed
'[!] 엔터 처리
strContent = Replace(strContent,Chr(13) & Chr(10),"<br>")
End If
Response.Write(strContent)
%>
</TD>
</TR>
<TR>
<TD colspan="2" align="right">
<a href="./BoardModify.asp?Num=<%=objRs("Num")%>">[수정]</a>
<a href="./BoardDelete.asp?Num=<%=objRs("Num")%>">[삭제]</a>
<!---------------------------수정할 부분----------------------------------------->
<a href="./BoardList.asp?Page=<%=Request.Cookies("Basic")("Page")%>">[리스트]</a>
<!---------------------------수정할 부분----------------------------------------->
</TD>
</TR>
</TABLE>
<%
objRs.MoveNext()
Loop
End If
End Sub
%>