您的位置：首页 → 精文荟萃 → 软件资讯 → 一个BBS的源代码二

一个BBS的源代码二

时间：2004/10/7 19:04:00来源：本站整理作者：蓝点我要评论(0)

' 打开数据库
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")


%>

 

 

经验交流

 

td {
color: #ffffff;
font-size: 9pt;
}
td.menu {
color: #000000;
background-color: #f0f0d0;
font-size: 12pt;
}
input {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
select {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
textarea {
color: #000000;
font-size: 9pt;
border-top: 1px solid;
border-left: 1px solid;
border-right: 1px solid;
border-bottom: 1px solid;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
}
" _ue_custom_node_="true">

 

<% Job = Request("Job") If Job = "" Then Job = "List" '============================== Select Case Job '============================== '============================= Case "List" '============================== ' 显示文章 %>
飞林庄-&gt;">经验交流		[?Job=Write">发表文章][?Job=Apply">申请账号]

<%

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

%>

作者	题目	回复	点击	时间
<%=>	" then="" response.write="" _href="<%= ASP_FILE_NAME %>?Job=Content&Which=<%= RecBBS.Fields("> <%=>	<%=>	<%=>	<%=>
&nbsp;	&nbsp;	&nbsp;	&nbsp;	&nbsp;

共有 <%= pagecount=""> 页 <%= recordcount=""> 篇文章 <% If Page > 1 Then Response.Write "" End If %> 上一页 <% if="" page=""> 1 Then Response.Write " " %> <% If Page < PageCount Then Response.Write "" End If %> 下一页 <% If Page < PageCount Then Response.Write "" %> ?Job=List&Page=' + Page.value , '_self')" _href="javascript:window.open('<%= ASP_FILE_NAME %>?Job=List&Page=' + Page.value , '_self')"> 转到第页 <% response.write="" page="" pagecount="">

<%

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论