一个BBS的源代码(三)
作者：袖梨
2022-07-02
'==================================================================================================
Case "Content"
'==================================================================================================
' 显示内容
If Request("Keyword") "" Then Key = Request("Keyword") Else KeyWord = ""
%>
Case "Content"
'==================================================================================================
' 显示内容
If Request("Keyword") "" Then Key = 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 |
