<% '設定變數 BID = ReqNum(Request("BID")) Set rsb = Server.CreateObject("ADODB.RecordSet") Set rs3 = Server.CreateObject("ADODB.RecordSet") Set rs4 = Server.CreateObject("ADODB.RecordSet") '點閱率+1 'SQLStr = "UPDATE TOP_Bulletin SET ClickCount = ClickCount + 1 WHERE AutoID = '" & BID & "'" 'conn.Execute(SQLStr) '呼叫DB資料表之資料 SQLStr = "SELECT * FROM TOP_Bulletin WHERE AutoID = '" & BID & "'" rsb.Open SQLStr, conn, 1, 1 'Set rsb = conn.Execute(SQLStr) If rsb.EOF Then Response.Write("") Else CType = rsb("CType") If rsb("IsShow") = "Y" Then If Request("Count") <> "done" Then '點閱率+1 SQLStr = "UPDATE TOP_Bulletin SET ClickCount = ClickCount + 1 WHERE AutoID = '" & BID & "'" conn.Execute(SQLStr) End If Else Dim BPass BPass = Trim(Request("ps")) If rsb("BulletinPass") = "" Then Response.Redirect("Bulletin_All.asp") Else If BPass <> Trim(rsb("BulletinPass")) Then Response.Redirect("Bulletin_All.asp") End If End If End If NOBPM = "Detail" sql3 = "SELECT * FROM TOP_Bulletin WHERE CType = '" & CType & "' AND AutoID < " & BID & " ORDER BY AutoID DESC LIMIT 1" Set rs3 = conn.Execute( sql3 ) If not(rs3.eof and rs3.bof) Then UID = rs3("AutoID") sql4 = "SELECT * FROM TOP_Bulletin WHERE CType = '" & CType &"' AND AutoID > " & BID & " ORDER BY AutoID LIMIT 1" Set rs4 = conn.Execute( sql4 ) If not(rs4.eof and rs4.bof) Then DID = rs4("AutoID") %> 信長之野望官方網站
 
 
<% = rsb("Title") %>。
<% = FormatDateTime(rsb("AddTime"), vbShortDate) %>
     
 
<% = Chg_ASC(rsb("Content")) %>
 
 
<%if not(rs3.eof and rs3.bof) Then%><%End IF%> <%if not(rs4.eof and rs4.bof) Then%><%End IF%>