一个BBS的源代码(二)

王朝other·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

' 打开数据库

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>

<%

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航