📄 bbs.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="new.css" rel=stylesheet type=text/css>
<title>闽东二手交易中心</title>
</head>
<body>
<div align="center">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17%" bgcolor="#f0f0f0" valign="top">
<!--#include file="bar_left.asp"-->
</td>
<td width="83%" bgcolor="#ffffff" valign="top">
<!--text begin-->
<!-- 论坛-->
<%
if isempty(request("currentpage")) then c_page=1 else c_page=cint(request("currentpage"))
connstr = "DBQ="+server.mappath("bbs.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open "select * from BBS_TABLE where msgtype=0 order by sortnum1 desc", Conn,1
RS.PageSize=20
t_pages=RS.PageCount
if not(RS.eof or RS.bof) then RS.AbsolutePage=c_page
%>
<br>
<form method="POST" action="bbssearch.asp" name="tlsearch">
<p align="center">
<input type="button" onclick="location.href='bbswrite.asp'" value="发表文章" name="B2" style="font-size: 9pt">
文章搜索:<input name="ltsearch" size="20" class="ltsearch" style="font-size: 9pt"><input type=hidden name="search" value="ltsearch" style="font-size: 9pt">
<input type="submit" value="搜索" name="Search" style="font-size: 9pt"><input type="reset" value="重置" name="B1" style="font-size: 9pt"></p>
</form>
<FORM METHOD=POST ACTION="bbs.asp">
<p align="center">
<%if c_page>1 then %>
<A HREF="bbs.asp?currentpage=<%=c_page-1%>">[前一页]</A>
<%end if%>
<%if c_page<t_pages then %>
<A HREF="bbs.asp?currentpage=<%=c_page+1%>">
[后一页]</A>
<%end if%>第 <%=c_page%> 页(共 <%=t_pages%> 页)
第 <SELECT style="font-size:9pt" NAME="currentpage"><%for i=1 to t_pages%> <option value=<%=i%>><%=i%><%next%></SELECT><INPUT TYPE="submit" style="font-size:9pt" value="GO"></p>
</FORM>
<%
If RS.EOF then
MaxNum=0
Else
MaxNum=RS("sortnum1")
End if
rec_num=0
do while not RS.EOF
if RS("msglevel")<=0 then exit do
RS.MoveNext
loop
lv=0
response.write("<UL>")
do while (not RS.EOF)
if (rec_num>=20 and RS("msglevel")>=0) then exit do
rem t1=RS("msglevel")
rem for i=1 to t1
rem response.write(" ")
rem next
if RS("msglevel")>lv then
response.write("<UL>")
lv=RS("msglevel")
else
if RS("msglevel")<lv then
response.write("</UL>")
lv=RS("msglevel")
end if
end if
%>
<IMG SRC="mood<%=RS("face")%>.gif" >
<A HREF="bbsanswer.asp?mid=<%=RS("msgID")%>"><%=RS("title")%></A>
<FONT color=#666666>
<%
str1=trim(RS("information"))
if str1="" then
response.write "[无内容]"
else
response.write "(长度:" & len(str1) & ")"
end if
%>
</FONT>
<FONT color="#336600"><%=RS("poster")%></FONT>
20<%=RS("posttime")%></FONT>
<FONT color=#666666>(人气:<%=RS("clicktime")%>)</FONT>
<%if datediff("d",RS("posttime"),date()+time())<=0 then %>
<IMG SRC="new.gif" ALT="new message">
<%end if %>
<BR>
<%
RS.MoveNext
rec_num=rec_num+1
loop
%>
<%
RS.close
set RS=nothing
Conn.close
set Conn=nothing
%>
</UL></UL></UL>
<FORM METHOD=POST ACTION="bbs.asp">
<p align="center">
<%if c_page>1 then %>
<A HREF="bbs.asp?currentpage=<%=c_page-1%>">[前一页]</A>
<%end if%>
<%if c_page<t_pages then %>
<A HREF="bbs.asp?currentpage=<%=c_page+1%>">
[后一页]</A>
<%end if%>第 <%=c_page%> 页(共 <%=t_pages%> 页)
第 <SELECT style="font-size:9pt" NAME="currentpage"><%for i=1 to t_pages%> <option value=<%=i%>><%=i%><%next%></SELECT><INPUT TYPE="submit" style="font-size:9pt" value="GO"></p>
</FORM>
<form method="POST" action="bbssearch.asp" name="tlsearch">
<p align="center">
<input type="button" onclick="location.href='bbswrite.asp'" value="发表文章" name="B2" style="font-size: 9pt">
文章搜索:<input name="ltsearch" size="20" class="ltsearch" style="font-size: 9pt"><input type=hidden name="search" value="ltsearch" style="font-size: 9pt">
<input type="submit" value="搜索" name="Search" style="font-size: 9pt"><input type="reset" value="重置" name="B1" style="font-size: 9pt"></p>
</form>
<!--text end-->
<!--#include file="adv.htm"-->
</td>
</tr>
</td>
</tr>
</table>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -