%
Sub SubMain(ByRef objQuery)
Call SubContent(objQuery)
End Sub
Sub SubContent(ByRef objQuery)
Dim sLeftTitleImg
sLeftTitleImg = "
"
Dim subMenu
subMenu = "M5"
%>
 |
|
<%
Dim News_ID
News_ID = Trim(Request("News_ID"))
Dim B_Category
B_Category = Trim(Request("B_Category"))
Dim sqlVisit
sqlVisit = "UPDATE E3_News_Announcement Set Read_Cnt = Read_Cnt + 1 WHERE B_Category = '"&B_Category&"' AND News_ID = " & News_ID
objQuery.Execute(sqlVisit)
Dim rsNews
Set rsNews = funcGetNewsDetail(objQuery, News_ID)
%>
|
|
ÀÛ¼ºÀÚ |
¿öÄ¿Èú¿©Çà»ç |
ÀÛ¼º³¯Â¥ |
<%=rsNews("Write_Date")%> |
Á¶È¸¼ö |
<%=rsNews("Read_Cnt")%> |
Á¦¸ñ |
<%=rsNews("Title")%> |
³»¿ë |
<%=replace(rsNews("Content"), chr(10), " ")%>
|
|
|
|
|
|
<%
rsNews.close
Set rsNews = Nothing
%>
|
|
|
|
|
|
<%
End Sub
%>