一个BBS的源代码(二)
2018-09-06 12:04
打开数据库
Con.Openasp , 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;
}
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>-gt;<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