一个BBS的源代码(三)

作者:袖梨 2022-07-02
'==================================================================================================
Case "Content"
'==================================================================================================
' 显示内容
If Request("Keyword") <> "" Then KeyWord = 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("内容") ) %>


<%

相关文章

精彩推荐

一聚教程网

Copyright © 2010-2022

111cn.net All Rights Reserved