IDC资讯中心
打开数据库
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>-><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> </td><td> </td><td> </td><td> </td><td> </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>
<%
