一个BBS的源代码(三)

'==================================================================================================
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 作者：Encode( RecBBS.Fields("作者") ) %> 题目： 时间：