boardgg.asp
来自「大家好」· ASP 代码 · 共 164 行
ASP
164 行
<%@ 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
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
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=30
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">
<!--
.p12{font-family:"宋体";font-size:12pt;line-height:135%;}
.p9{font-family:"宋体";font-size:9pt;line-height:150%;}
td{font-family:"宋体";font-size:12pt;}
A:link{font-family:"宋体";color:blue;text-decoration:none}
A:visited{font-family:"宋体";color:blue;text-decoration:none}
A:hover{color:#FFFFFF;text-decoration:none;;background-color:#F0B8F8}
A:Active{color:#FF0000;}
.title{font-size:30pt;font-family:"楷体_GB2312"}
-->
</style>
<title>main board</title>
</head>
<body bgcolor="#FEECD3">
<div align="center"><center>
<table border="0" width="42%">
<tr>
<td width="100%"><p align="center"><font color="#0000FF"><%=boardname%></font><br>
<font color="#0080FF">斑竹</font><font color="#FF0000"><%=rs("boardgg")%></font><font color="#0080FF">
副斑竹</font><font color="#FF0000"><%=rs("boardmm")%></font><br>
<font color="#000000"><%=rs("aboutboard")%></font></td>
</tr>
</table>
</center></div>
<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> <font color="#000000">论坛风格</font> <%if rs.pagecount=0 then
Response.Write "首页 前页 后页 末页 页次0/0页"
elseif rs.Pagecount=1 then
Response.Write "首页 前页 后页 末页 页次1/1页"
elseif page=1 then
Response.Write "首页 前页 <a href='boardgg.asp?page="&page+1&"&boardid="&boardid&"'>后页</a> <a href='boardgg.asp?page="&rs.PageCount &"&boardid="&boardid&"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
elseif rs.PageCount=cint(Page) then
Response.Write "<a href='boardgg.asp?page=1&boardid="&boardid&"'>首页</a> <a href='boardgg.asp?page="&page-1&"&boardid="&boardid&"'>前页</a> 后页 末页 页次"&Page&"/"&rs.pagecount&"页"
else
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="&rs.PageCount&"&boardid="&boardid&"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
end if
%> <font color="#FF0000"><%=rs1.RecordCount %></font>条记录 第
<input type="text" name="page" size="3" value="<%=page%>" tabindex="1">页<input type="submit" value="go" name="B1" tabindex="2">
</td>
</tr>
</table>
</form>
<table border="1" width="104%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="45%" bgcolor="#FFDEAD">
<div align="left">主题</div>
</td>
<td width="12%" bgcolor="#FFDEAD">
<p align="center">发言
</td>
<td width="4%" bgcolor="#FFDEAD">
<p align="center">回复
</td>
<td width="26%" bgcolor="#FFDEAD">
<p align="center">发表时间
</td>
<td width="7%" bgcolor="#FFDEAD">
<p align="center">人气
</td>
<td width="6%" bgcolor="#FFDEAD">
<div align="center">删除</div>
</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" height="37">
<div align="left"><img src="browimage\<%=trim(rs1("feeling"))%>.gif"> <a href="commentm.asp?id=<%=rs1("id")%>&boardname=<%=boardname%>"><%=title%></a> (<%=rs1("textsize")%>)</div>
</td>
<td width="12%" bgcolor="#FFE188" height="37">
<div align="center"><a href="userdet.asp?username=<%=rs1("guestname")%>"><%=rs1("guestname")%></a></div>
</td>
<td width="4%" bgcolor="#FFE188" height="37">
<div align="center"><%=rs1("renum")%> </div>
</td>
<td width="26%" bgcolor="#FFE188" height="37">
<div align="center"><%=rs1("whattime")%></div>
</td>
<td width="7%" bgcolor="#FFE188" height="37">
<div align="center"><%=rs1("clicknum")%></div>
</td>
<td width="6%" bgcolor="#FFE188" height="37">
<div align="center"><a href="delfb.asp?boardid=<%=boardid%>&id=<%=rs1("id")%>&page=<%=page%>">删除</a></div>
</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 + =
减小字号Ctrl + -
显示快捷键?