|
<%
Dim Page, PID, LinkID, Passwd
Page = Request("Page")
PID = Request("PID")
LinkID = Request("LinkID")
Passwd = Request("Passwd")
%>
<%
Dim dbConn
SET dbConn = GetDBConn()
Dim sqlVisit, sqlContent
sqlVisit = "Update E_bbs Set BBS_Visited = BBS_Visited + 1 Where BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID
dbconn.Execute(sqlVisit)
sqlContent = "Select BBS_No, BBS_MID, BBS_TreeID, BBS_ChildID, BBS_LinkID, BBS_Subject, "
sqlContent = sqlContent & " BBS_Editor, BBS_Email, BBS_Visited, BBS_Date, BBS_Text, BBS_DocTypeCd "
sqlContent = sqlContent & " From E_bbs Where BBS_Category = '"&BBS_Category&"' AND BBS_No = " & PID
Dim rsContent
Set rsContent = rsGetDBResult(dbconn,sqlContent)
%>
<%
rsContent.close
Set rsContent = Nothing
SET dbConn = Nothing
%>
|
| |
| |
|
|
|
