一个BBS的源代码(二)

heaven鞋子

heaven鞋子

2016-01-29 17:11

一个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-&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

PageCount = RecBBS.PageCount
RecordCount = RecBBS.RecordCount

If Page PageCount Then Page = PageCount

Session("BBS_Page") = Page

If Not RecBBS.E
展开更多 50%)
分享

猜你喜欢

一个BBS的源代码(二)

ASP
一个BBS的源代码(二)

一个BBS的源代码(一)

ASP
一个BBS的源代码(一)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

一个BBS的源代码(三)

ASP
一个BBS的源代码(三)

一个BBS的源代码(四)

ASP
一个BBS的源代码(四)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

一个BBS的源代码(五)

ASP
一个BBS的源代码(五)

一个BBS的源代码(六)

ASP
一个BBS的源代码(六)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

一个提供用户输入时期的绝好程序之(二)

一个提供用户输入时期的绝好程序之(二)

人尽可用的Windows小贴士(下)

人尽可用的Windows小贴士(下)
下拉加载更多内容 ↓