'==================================================================================================
Case "Content"
'==================================================================================================
' 显示内容
If Request("Keyword") <> "" Then Key
Word = Request("Keyword") Else KeyWord = ""
%>
<% Which = Request("Which") If IsNumeric( Which ) Then Session("BBS_Which") = Which ' 点击数加一 Con.Execute( "UPDATE bbs SET [点击]=[点击]+1 WHERE [序号]=" & Which ) SQL = "SELECT * FROM bbs WHERE [序号]=" & Which RecBBS.Open SQL , Con , 1 If Not RecBBS.EOF Then Title = RecBBS.Fields("题目") Session("BBS_WhichTitle") = Title %>
序号:E<%= Which %>
作者:<%= Server.HTMLEncode( RecBBS.Fields("作者") ) %>
题目:<%= Server.HTMLEncode( Title ) %>
时间:<%= RecBBS.Fields("时间") %>
<%= Server.HTMLEncode( RecBBS.Fields("内容") ) %>
<%
|