欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识！
您现在的位置是： 首页  >  IT编程

一个BBS的源代码(二)

程序员文章站 2022-04-13 15:32:30
打开set con = server.createobject("adodb.connection")con.open "" , application("conasp_runtimeusernam...
打开
set con = server.createobject("adodb.connection")
con.open "" , 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

上一篇： 关于requireJS和seaJS

下一篇： Apache Flink 分布式运行时环境

推荐阅读