一个BBS的源代码(二)
程序员文章站
2022-07-06 12:10:57
打开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>-><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
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>-><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
上一篇： JS闭包原理与应用经典示例
下一篇： 基于jquery实现左右上下移动效果