一个BBS的源代码(二)
一个BBS的源代码(二),一个BBS的源代码(二)
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.E