list.asp
来自「大家好」· ASP 代码 · 共 275 行
ASP
275 行
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%
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 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">
<!--
p,a,td{font-size:14.5px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:14.5px;font-family:宋体,sans-serif}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active { text-decoration: underline}
A:hover {text-decoration: underline}
-->
</style>
<title>main board</title>
</head>
<body bgcolor="#FFEBBD">
<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="list.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="#FFEBAD">
<td height="1" width="691"><a href="list.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='list.asp?page="&page+1&"&boardid="&boardid&"'>后页</a> <a href='list.asp?page="&rs.PageCount &"&boardid="&boardid&"'>末页</a> 页次"&Page&"/"&rs.pagecount&"页"
elseif rs.PageCount=cint(Page) then
Response.Write "<a href='list.asp?page=1&boardid="&boardid&"'>首页</a> <a href='list.asp?page="&page-1&"&boardid="&boardid&"'>前页</a> 后页 末页 页次"&Page&"/"&rs.pagecount&"页"
else
Response.Write "<a href='list.asp?page=1&boardid="&boardid&"'>首页</a> <a href='list.asp?page="&page-1&"&boardid="&boardid&"'>前页</a> <a href='list.asp?page="&page+1&"&boardid="&boardid&"'>后页</a> <a href='list.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="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr bgcolor="#FFEBAD">
<td width="48%">
<div align="left">主题</div>
</td>
<td width="13%">
<p align="center">发言
</td>
<td width="5%">
<p align="center">回复
</td>
<td width="29%">
<p align="center">发表时间
</td>
<td width="5%">
<p align="center">人气
</td>
</tr>
<%
if rs1.recordcount>0 then
for j=1 to rs1.pagesize
if len(trim(rs1("title")))>15 then
title=left(rs1("title"),15)&"..."
else
title=rs1("title")
end if %>
<tr bgcolor="#FFEBAD">
<td width="48%">
<div align="left"><img src="browimage\<%=trim(rs1("feeling"))%>.gif"> <a href="comment.asp?id=<%=rs1("id")%>&boardname=<%=boardname%>"><%=title%></a> <font color="#000000">(<%=rs1("textsize")%>)</font></div>
</td>
<td width="13%">
<div align="center"><a href="userdet.asp?username=<%=rs1("guestname")%>"><font color="#000000"><%=rs1("guestname")%></font></a></div>
</td>
<td width="5%">
<div align="center"><font color="#0000CC"><%=rs1("renum")%> </font></div>
</td>
<td width="29%">
<div align="center"><font color="#FF6666"><%=rs1("whattime")%></font></div>
</td>
<td width="5%">
<div align="center"><font color="#0000FF"><%=rs1("clicknum")%></font></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>
<%if session("username")="" then
response.write "超时操作，不能发言，请重新登录"
else
%>
<table border="1" width="100%" bordercolordark="#FFFFFF" bordercolor="#0000FF">
<tr>
<td width="100%"><form method="POST" action="newarticle.asp">
<input type="hidden" name="username" value="<%=session("username")%>"><input type="hidden" name="boardid" value="<%=boardid%>"><div align="center"><center><table>
<tbody>
<tr>
<td><table width="100%" bordercolordark="#FFFFFF">
<tbody>
<tr>
<td colSpan="2" width="745"><font color="#800000">我</font><font color="#FF0000"><%=session("username")%></font><font color="#800000">来发表文章:</font></td>
</tr>
<tr>
<td nowrap width="15%"><font color="#800000">话题:</font></td>
<td width="85%"><font color="#008040"><input maxLength="255" name="Title" size="40" style="BACKGROUND-COLOR: rgb(252,252,241); COLOR: rgb(0,0,255)"></font></td>
</tr>
<tr>
<td nowrap width="15%"><font color="#800000">选择表情:</font></td>
<td vAlign="center" width="85%"></td>
</tr>
<tr>
<td colSpan="2" nowrap width="100%">
<table border="0" width="396" cellspacing="0" cellpadding="0">
<tr>
<td nowrap width="53" height="26">
<input type="radio" value="0" name="feeling" checked tabindex="7">
<img src="browimage/0.gif" width="20" height="20"></td>
<td nowrap width="51" height="26">
<input type="radio" value="1" name="feeling">
<img src="browimage/1.gif" width="20" height="20"></td>
<td nowrap width="52" height="26">
<input type="radio" value="2" name="feeling">
<img src="browimage/2.gif" width="20" height="20"></td>
<td nowrap width="52" height="26">
<input type="radio" value="3" name="feeling">
<img src="browimage/3.gif" width="20" height="20"></td>
<td nowrap width="52" height="26">
<input type="radio" name="feeling" value="12">
<img src="browimage/12.gif" width="20" height="20"></td>
<td nowrap width="55" height="26">
<input type="radio" value="8" name="feeling">
<img src="browimage/8.gif" width="20" height="20"></td>
<td nowrap width="58" height="26" colspan="2">
<input type="radio" value="9" name="feeling">
<img src="browimage/9.gif" width="20" height="20"></td>
</tr>
<tr>
<td nowrap width="53" height="27">
<input type="radio" value="4" name="feeling">
<img src="browimage/4.gif" width="20" height="20"></td>
<td nowrap width="51" height="27">
<input type="radio" value="5" name="feeling">
<img src="browimage/5.gif" width="20" height="20"></td>
<td nowrap width="52" height="27">
<input type="radio" value="6" name="feeling">
<img src="browimage/6.gif" width="20" height="20"></td>
<td nowrap width="52" height="27">
<input type="radio" value="7" name="feeling">
<img src="browimage/7.gif" width="20" height="20"></td>
<td nowrap width="52" height="27">
<input type="radio" name="feeling" value="13">
<img src="browimage/13.gif" width="20" height="20"></td>
<td nowrap width="55" height="27">
<input type="radio" value="11" name="feeling">
<img src="browimage/11.gif" width="20" height="20"></td>
<td nowrap width="58" height="27" colspan="2">
<input type="radio" value="10" name="feeling">
<img src="browimage/10.gif" width="20" height="20"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colSpan="2" nowrap width="100%"><hr color="#f3f3cb">
</td>
</tr>
<tr>
<td width="15%"><font color="#800000">内容:</font></td>
<td width="85%"></td>
</tr>
<tr>
<td colSpan="2" width="745"><textarea cols="71" name="Content" rows="5" style="BACKGROUND-COLOR: rgb(252,252,241); COLOR: rgb(0,0,0)"></textarea></td>
</tr>
<tr>
<td colSpan="2" width="100%"><hr color="#f3f3cb">
</td>
</tr>
<tr>
<td width="15%"><font color="#0080c0">链接主题：<br>
链接URL ：<br>
链接图象：</font></td>
<td width="85%"><font color="#800000">
<input name="httptitle" size="40" style="BACKGROUND-COLOR: rgb(252,252,241)">
<br>
<input name="httpadd" size="40" style="BACKGROUND-COLOR: rgb(252,252,241)" value="http://">
<br>
</font>
<input name="imgadd" size="40" style="BACKGROUND-COLOR: rgb(252,252,241)" value="http://"></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</center></div><p><input name="btSubmit" type="submit" value="发表文章"><input name="btClear" onclick="OnClearClick();" type="button" value="清除内容"></p>
<p> </p>
</form>
</td>
</tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?