欢迎光临爱时尚女性网
 

一个BBS的源代码(三)

2012-7-18 编辑:knwz 来源:爱时尚女性网 阅读次数:1694
  导读:'============================= 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 %>

作者:<%= Server.HTMLEncode( RecBBS.Fields("作者") ) %>

题目:<%= Server.HTMLEncode( Title ) %>

时间:<%= RecBBS.Fields("时间") %>




<%= Server.HTMLEncode( RecBBS.Fields("内容") ) %>


<%
End If
RecBBS.Close


SQL = "SELECT * FROM bbsreply WHERE [原文]=" & Which
RecReply.Open SQL , Con , 3


AllID = "E" & Which


Do While Not RecReply.EOF


ID = RecReply.Fields("序号")
AllID = AllID & ":" & ID
%>

序号<%= ID %>

作者:<%= Server.HTMLEncode( RecReply.Fields("作者") ) %>

题目:<%= Server.HTMLEncode( RecReply.Fields("题目") ) %>

时间:<%= RecReply.Fields("时间") %>




<%= Server.HTMLEncode( RecReply.Fields("内容") ) %>


<%
RecReply.MoveNext
If RecReply.EOF Then Exit Do
Loop
RecReply.Close


End If
%>






文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。