欢迎光临爱时尚女性网
 

一个BBS的源代码(二)

2012-7-18 编辑:knwz 来源:爱时尚女性网 阅读次数:1217
  导读:' 打开数据库 Set Con = Server.CreateObject("ADODB.Connection") Con.Open "asp" , application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassWord") Set RecBBS = Server.CreateObject("ADODB.RecordSet") Set RecReply = Server.CreateObject("ADODB....
' 打开数据库
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "asp" , application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassWord")


Set RecBBS = Server.CreateObject("ADODB.RecordSet")
Set RecReply = Server.CreateObject("ADODB.RecordSet")
Set RecMember = Server.CreateObject("ADODB.RecordSet")




%>




经验交流











<%




Job = Request("Job")
If Job = "" Then Job = "List"


'==============================
Select Case Job
'==============================


'=============================
Case "List"
'==============================
' 显示文章
%>
















<%


If Request("Keyword") <> "" Then KeyWord = Request("Keyword") Else KeyWord = ""


If Request("Page") = "" Then
If IsNumeric( session("BBS_Page") ) Then
Page = Int(Session("BBS_Page"))
Else
Page = 1
End If
Else
Page = Int(Request("Page"))
End If
If Page < 1 Then Page = 1


RecBBS.PageSize = ListSize


SQL = "SELECT * FROM bbs "
If KeyWord <> "" Then
SQL = SQL + "WHERE [题目] LIKE '%" & KeyWord & "%' "
End If
SQL = SQL + "ORDER BY [序号] DESC"
RecBBS.Open SQL , Con , 3


PageCount = RecBBS.PageCount
RecordCount = RecBBS.RecordCount


If Page > PageCount Then Page = PageCount


Session("BBS_Page") = Page


If Not RecBBS.EOF Then
%>






<%
RecBBS.AbsolutePage = Page
For iRec = 1 To ListSize
If Not RecBBS.EOF Then
%>







<%
RecBBS.MoveNext
Else
Response.Write " " & Chr(13)
End If
Next
Else
%>
No Record
<%
End If


RecBBS.Close


%>
作者 题目 回复 点击 时间
<%= Server.HTMLEncode( RecBBS.Fields("作者") ) %>
<% If KeyWord <> "" Then Response.Write "&Keyword=" & KeyWord %>">
<%= Server.HTMLEncode( RecBBS.Fields("题目") ) %>

<%= Server.HTMLEncode( RecBBS.Fields("回复") ) %> <%= Server.HTMLEncode( RecBBS.Fields("点击") ) %> <%= Server.HTMLEncode( RecBBS.Fields("时间") ) %>
     







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

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