最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
一个BBS的源代码(三)
时间：2008-01-18 编辑：简简单单 来源：一聚教程网
'==================================================================================================
Case "Content"
'==================================================================================================
' 显示内容
If Request("Keyword") <> "" Then KeyWord = Request("Keyword") Else KeyWord = ""
%>
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 %>
<% 相关文章
热门栏目
|