📄 boardgg.asp
字号:
<%@ language="vbscript" %>
<%
dim page,boardid
if isempty(request("boardid")) then
response.write "boardid error!"
response.end
else
boardid=request("boardid")
end if
page=request("page")
if isempty(page) then
page=1
end if
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
sql="select boardname,boardgg,boardmm,aboutboard from board_info where (boardgg='"&session("username")&"' or boardmm='"&session("username")&"') and boardid="&boardid
rs.open sql,conn,1
if rs.bof and rs.eof then
response.write "no board!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
boardname=rs("boardname")
set rs1=server.createobject("ADODB.RecordSet")
sqltext="select id,guestname,title,whattime,[textsize],clicknum,renum,feeling from mainboard where fatherid=0 and boardid="&boardid&" order by whattime desc"
rs1.open sqltext,conn,1,1
if rs1.recordcount>0 then
If page<1 or (page-1)*rs.pagesize>=rs1.recordcount then
page=1
End If
rs1.pagesize=20
rs1.absolutepage=cint(page)
end if
%>
<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 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!--
.botton { font-size: 12px; line-height: 14px; color: #000000; background-color: #FFFFF0}
-->
</style>
<title>main board</title>
<link rel="stylesheet" href="club.css">
</head>
<body bgcolor="#FFFFF0">
<table border="0" width="400" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="100%" align="center">〖<%=boardname%>〗 </td>
</tr>
<tr>
<td align="center"> 斑竹 〖<%=rs("boardgg")%>〗 副斑竹 〖<%=rs("boardmm")%>〗 </td>
</tr>
<tr><td>
<font color="#000000"><%=rs("aboutboard")%></font></td>
</tr>
</table>
<form method="POST" action="boardgg.asp" id="form1" name="form1">
<input type="hidden" name="boardid" value="<% =boardid %>">
<table border="1" borderColorDark="#FFFFFF" borderColorLight="#000000" cellspacing="0" height="22" width="100%">
<tr bgcolor="#FFDFAD">
<td height="1" width="691"><a href="boardgg.asp?page=<%=page%>&boardid=<%=boardid%>">刷新浏览</a>
<%
if rs.pagecount>0 then
if cint(page)=1 then
response.write "<a href='boardgg.asp?page="&page+1&"&boardid="&boardid&"'>下一页</a> <a href='boardgg.asp?page="&rs1.pagecount&"&boardid="&boardid&"'>末页</a>"
end if
if cint(page)>1 and cint(page)<rs.pagecount then
response.write "<a href='boardgg.asp?page=1&boardid="&boardid&"'>首页</a> <a href='boardgg.asp?page="&page-1&"&boardid="&boardid&"'>前一页</a> <a href='boardgg.asp?page="&page+1&"&boardid="&boardid&"'>下一页</a> <a href='boardgg.asp?page"&rs1.pagecount&"&boardid="&boardid&"'>页末</a>"
end if
if cint(page)=rs1.pagecount then
response.write "<a href='boardgg.asp?page=1&boardid="&boardid&"'>首页</a> <a href='boardgg.asp?page="&page-1&"&boardid="&boardid&"'>前一页</a>"
end if
end if
response.write "共："&rs1.recordcount&"条记录！ 页次：〖 "&Page&"/"&rs.pagecount&" 〗页"
%>
第<input type="text" name="page" size="3" value="<%=page%>" tabindex="1" class="botton">页<input type="submit" value="go" name="B1" tabindex="2" class="botton">
</td>
</tr>
</table>
</form>
<table border="1" width="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" cellpadding="0">
<tr>
<td width="45%" bgcolor="#FFDEAD"> 主题</td>
<td width="12%" bgcolor="#FFDEAD"> 发言 </td>
<td width="4%" bgcolor="#FFDEAD"> 回复 </td>
<td width="26%" bgcolor="#FFDEAD"> 发表时间 </td>
<td width="7%" bgcolor="#FFDEAD"> 人气 </td>
<td width="6%" bgcolor="#FFDEAD"> 删除</td>
</tr>
<%
if rs1.recordcount>0 then
for j=1 to rs1.pagesize
if len(trim(rs1("title")))>20 then
title=left(rs1("title"),20)&"..."
else
title=rs1("title")
end if %>
<tr>
<td width="45%" bgcolor="FFE188"> <img src="browimage\<%=trim(rs1("feeling"))%>.gif"> <a href="commentm.asp?id=<%=rs1("id")%>&boardname=<%=boardname%>"><%=title%></a> (<%=rs1("textsize")%>)</td>
<td width="12%" bgcolor="#FFE188"> <a href="userdet.asp?username=<%=rs1("guestname")%>"><%=rs1("guestname")%></a></td>
<td width="4%" bgcolor="#FFE188">
<div align="center"><%=rs1("renum")%> </div>
</td>
<td width="26%" bgcolor="#FFE188"> <%=rs1("whattime")%></td>
<td width="7%" bgcolor="#FFE188"> <%=rs1("clicknum")%></td>
<td width="6%" bgcolor="#FFE188"> <a href="delfb.asp?boardid=<%=boardid%>&id=<%=rs1("id")%>&page=<%=page%>">删除</a></td>
</tr>
<%Rs1.MoveNext
if rs1.eof then
exit for
end if
next
rs.close
rs1.close
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
end if
end if
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -