论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

一个BBS的源代码(二)

文章类别:asp | 发表日期:2008-10-5 20:56:34

' 打开数据库
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.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>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</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>

<%
上一篇:{技巧}一个BBS的源代码(三) 人气:3745
下一篇:{技巧}一个BBS的源代码(一) 人气:4985
视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058