一个BBS的源代码(二)

March 25,2004

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

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META HTTP-EQUIV="Content-Type" Content="text/html;
charset=gb2312">
<TITLE>经验交流</TITLE>
<STYLE TYPE="TEXT/CSS">
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;
}
</STYLE>
</HEAD>
<BODY bgcolor=#c0c0c0>

<P>
<TABLE align=center valign=top bgColor=#d0d0d0 border=1 borderColorDark=#f0f0f0
borderColorLight=#505050 cellPadding=5 cellSpacing=0 width=600 height=400>
<TR>
<TD valign=top>
<%

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

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

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

<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650>
<TR>
<TD>
<TABLE WIDTH="100%" ALIGN=center BORDER=0 CELLSPACING=0 CELLPADDING=2
BGCOLOR=#f0f0d0>
<TR>
<TD class=menu valign=top>
<A href="/">飞林庄</A>-><A href="<%=
ASP_FILE_NAME %>">经验交流</A>
</TD>
<TD class=menu></TD>
<TD align=right class=menu>
<FORM action="<%= ASP_FILE_NAME %>" method=get>
<INPUT type=hidden name=Job value=List>
[<A href="<%= ASP_FILE_NAME %>?Job=Write">发表文章</A>][<A
href="<%= ASP_FILE_NAME %>?Job=Apply">申请账号</A>]
<INPUT id=Keyword maxLength=20 name=Keyword size=18>
<INPUT type=Submit value=主题搜索>
</FORM>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE align=center bgColor=#000000 border=0 cellPadding=1 cellSpacing=1 width=650>
<%

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
%>
<TR>
<TD>作者</TD>
<TD>题目</TD>
<TD>回复</TD>
<TD>点击</TD>
<TD>时间</TD></TR>
<%
RecBBS.AbsolutePage = Page
For iRec = 1 To ListSize
If Not RecBBS.EOF Then
%>
<TR>
<TD><%= Server.HTMLEncode( RecBBS.Fields("作者") ) %></TD>
<TD>
<A href="<%= ASP_FILE_NAME %>?Job=Content&Which=<%=
RecBBS.Fields("序号") %><% If KeyWord <> "" Then
Response.Write "&Keyword=" & KeyWord %>">
<%= Server.HTMLEncode( RecBBS.Fields("题目") ) %>
</A>
</TD>
<TD><%= Server.HTMLEncode( RecBBS.Fields("回复") ) %></TD>
<TD><%= Server.HTMLEncode( RecBBS.Fields("点击") ) %></TD>
<TD><%= Server.HTMLEncode( RecBBS.Fields("时间") )
%></TD></TR>
</TR>
<%
RecBBS.MoveNext
Else
Response.Write "
<TR><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR>"
& Chr(13)
End If
Next
Else
%>
No Record
<%
End If

RecBBS.Close

%>
</TABLE>
<TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650>
<TR>
<TD class="menu">
共有 <%= PageCount %> 页 <%= RecordCount %> 篇文章
<%
If Page > 1 Then
Response.Write "<A href=""" & ASP_FILE_NAME &
"?Job=List&Page=" & Page-1
If KeyWord <> "" Then Response.Write "&Keyword=" &
KeyWord
Response.Write """>"
End If
%>
上一页
<% If Page > 1 Then Response.Write "</A>" %>
<%
If Page < PageCount Then
Response.Write "<A href=""" & ASP_FILE_NAME &
"?Job=List&Page=" & Page+1
If KeyWord <> "" Then Response.Write "&Keyword=" &
KeyWord
Response.Write """>"
End If
%>
下一页
<% If Page < PageCount Then Response.Write "</A>" %>
<A href="javascript:window.open('<%= ASP_FILE_NAME %>?Job=List&Page=' +
Page.value , '_self')">
转到</A>第<INPUT id=Page name=Page size=4 maxlength=4 >页
<% Response.Write Page & "/" & PageCount %>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>

<%