📄 main.asp
字号:
set rsuser=Server.Createobject("ADODB.Recordset")
rsuser.open "select userid from bbs_bz where suboard="&request("suboard"),conn,1,3
do while not rsuser.eof
if session("userid")=rsuser("userid") then
bz=1 '是版主
end if%>
<%
set rsbz=Server.Createobject("ADODB.Recordset")
rsbz.open "select nickname from users where userid="&rsuser("userid")&"",conn,1,3
do while not rsbz.eof
%>
<a href="user.asp?userid=<%=rsuser("userid")%>"><%= rsbz("nickname") %></a>
<% rsbz.movenext
loop
set rsbz=nothing
%>
<% rsuser.movenext
loop
set rsuser=nothing
%> </td>
<td width="14%" align="right"><a href="javascript:;" onClick="MM_showHideLayers('login','','show')"><font onclick="MM_showHideLayers('login','','show')">
<% If session("nickname")="" Then %>
用户登录
<% End If %>
</font></a> </td>
</tr>
</table>
<table width="97%" border="0" bgcolor="#BBDEFD">
<tr>
<td width="11%" align="right">版面公告：</td>
<td width="56%"><marquee align="middle" width="400" onMouseOver="stop()" onMouseOut="start()" scrolldelay="100" scrollamount="3">
<%
sql="select top 1 * from bbs_marquee where subid="&request("suboard")&" order by datetime desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<%do while not rscust.eof%>
<font color="#FF0000"><%= rscust("marquee") %></font>
<% rscust.movenext
loop
set rscust=nothing%>
</marquee></td>
<td width="33%" align="right">
<%if paixu="1" then%><a href="main.asp?board=<%=request("board")%>&suboard=<%=request("suboard")%>"><font color="#CC0000">[按首贴发表时间排序]</font></a><%else%><a href="main.asp?board=<%=request("board")%>&suboard=<%=request("suboard")%>&paixu=1"><font color="#CC0000">[按回复时间排序]</font></a><%end if%>
<a href="javascript:history.go(0);"><font color="#CC0000">[刷新本页]</font></a>
<a href="jinghua.asp?board=<%= request("board") %>"><font color="#CC0000">[本版精华]</font></a></td>
</tr>
</table>
<%
sql="select indexid,userid,nickname,newflag,time,retime,visit,renum,classid,title,email,sex,area,istop from yfindex where suboard="&request("suboard")&""
'paixu=1就按回复时间排序否则按首贴排序
if paixu="1" then
sql=sql&" order by istop,retime DESC"
else
sql=sql&" order by istop,time DESC"
end if
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
if rscust.recordcount=0 then%> <br> <br> <br>
<a href="writebbs.asp?board=<%=request("board")%>&suboard=<%=request("suboard")%>" ><b><img src="images/newthread.gif" width="104" height="22" border="0"></b></a><br> <br> <span class="x14">本版还没有发表内容!您是幸运的第一位,请快点<a href="writebbs.asp?board=<%=request("board")%>&suboard=<%=request("suboard")%>" class="10t"><b><font color="#6633FF">发表</font></b></a>吧
</span> <br> <br> <br> <br> <br>
<% else%>
<%
rscust.pagesize=20
if request("page_code")="" then
page=0
else
page=clng(request("page_code"))
end if
if page<1 then page=1
if page>rscust.pagecount then page=rscust.pagecount
rscust.AbsolutePage=page
%>
<table width="97%" border="0" bgcolor="#D3EAFE">
<tr>
<td width="23%" height="19"> <% If stopflag<>true or adm="3" or bz=1 Then '如版块已经锁定，就不能发表%> <a href="writebbs.asp?board=<%=request("board")%>&suboard=<%=request("suboard")%>" ><b><font color="#FF0000"><img src="images/newthread.gif" width="104" height="22" border="0"></font></b></a>
<%'= stopflag %> <% End If %> </td>
<td width="38%" align="center">
<table width="99%" border="0">
<form name="form_search" method="post" action="search.asp" onSubmit="return searchkey()" target="_blank">
<tr>
<td width="23%" align="right"><img src="images/search.gif" width="16" height="16"></td>
<td width="44%" align="center"><input name="keyword" type="text" class="input" onFocus="if (this.value=='请输入关键字') this.value='';" value="请输入关键字" size="14" maxlength="20"></td>
<td width="33%" align="center"><select name="condition" id="condition">
<option value="标题" selected>标题</option>
<option value="作者">作者</option>
</select></td>
<td width="33%"><input name="imageField" type="image" src="images/earch.gif" width="45" height="18" border="0">
<input name="board" type="hidden" id="board" value="<%=request("board")%>">
<input name="suboard" type="hidden" id="suboard" value="<%=request("suboard")%>"></td>
</tr>
</form>
</table>
</td>
<td width="27%" align="right">共有<font color="#669900"><%=rscust.recordcount%></font>首贴 第<font color="#669900"><%=page%>/<%=rscust.pagecount%></font>页</td>
<td width="12%" align="right"> <% if page<>1 then %> <a href=main.asp?board=<%= request("board")%>&suboard=<%= request("suboard") %>&page_code=<%=(page-1)%>&paixu=<%=paixu%>>上一页</a>
<%end if%> <% if page<>rscust.pagecount then %> <a href=main.asp?board=<%= request("board") %>&suboard=<%= request("suboard") %>&page_code=<%=(page+1)%>&paixu=<%=paixu%>>下一页</a>
<%end if%> </td>
</tr>
</table>
<%if adm="3" or bz=1 then%> <form method="post" action="main.asp">
<%end if%>
<table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bordercolor="#0099FF">
<tr class="10t">
<td width="6%" align="center" background="images/title_bg.gif"><font color="#000099">回复</font>
</td>
<td width="6%" align="center" background="images/title_bg.gif"> </td>
<td width="50%" align="center" background="images/title_bg.gif"> <font color="#000099">标
题</font> </td>
<td width="15%" align="center" background="images/title_bg.gif"> <font color="#000099">作者</font>
</td>
<td width="9%" align="center" background="images/title_bg.gif"><font color="#000099">人气</font></td>
<td width="14%" align="center" background="images/title_bg.gif"> <font color="#000099"><%if paixu="1" then%>最后回复时间<%else%>发表时间<%end if%></font></td>
</tr>
<%a=2
for ipage=1 to rscust.pagesize
bg=a mod 2
if bg=0 then
bgcolor="#E2F2FF"
else
bgcolor="#D3EAFE"
end if%>
<tr bgcolor="<%= bgcolor %>" onMouseOut="mOut(this,'<%= bgcolor %>');" onMouseOver="mOvr(this,'#EBFFBB');">
<td align="center"><%=rscust("renum")%></td>
<td align="center"> <img src="images/<%=trim(rscust("classid"))%>.gif"></td>
<td> <%if adm="3" or bz=1 then%>
<input type="checkbox" name="del_update" value="<%=rscust("indexid")%>">
<%end if%>
<a href="showbbs.asp?indexid=<%=rscust("indexid")%>&page_code=<%=page%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>&paixu=<%=paixu%>"><%=(rscust("title"))%> </a>
<%if rscust("newflag")=0 and now()-rscust("time")<3 then %>
<font color="#FF0000">New!</font>
<% End If %> <% If rscust("istop")=true Then %>
<font color="#FF0000"> [置顶] </font>
<% End If %></td>
<td align="center"> <a href="user.asp?userid=<%=rscust("userid")%>" title=<%=rscust("area")%><%=rscust("nickname")%><%if rscust("sex")=true then%>先生<%else%>小姐/女士<%end if%>:<%=rscust("email")%>><%=rscust("nickname")%> </a></td>
<td align="center"><%=rscust("visit")%></td>
<td>
<%if paixu="1" then%>
<%=year(rscust("retime"))&"-"&(month(rscust("retime"))&"-"&day(rscust("retime"))&" "&hour(rscust("retime"))&":"&minute(rscust("retime")))%>
<% else %>
<%=year(rscust("time"))&"-"&(month(rscust("time"))&"-"&day(rscust("time"))&" "&hour(rscust("time"))&":"&minute(rscust("time")))%>
<% end if %> </td>
</tr>
<% a=a+1
rscust.movenext
if rscust.eof then exit for
next
%>
</table>
<%if adm="3" or bz=1 then%>
<br>
在标题前选择后:
<input type="hidden" name="page_code" value="<%= page %>">
<input type="hidden" name="board" value="<%= request("board") %>">
<input type="hidden" name="suboard" value="<%= request("suboard") %>">
<input type="submit" name="Submit" value="删除文章" class="9t">
<input type="submit" name="Submit" value="精华帖子" class="9t">
<input name="Submit" type="submit" value="转移到">
本大版的:
<select name="move_suboard" class="input">
<%
sqlstr="select * from bbs_suboard where bid="&request("board")&" order by subid"
set rssub=Server.Createobject("ADODB.Recordset")
rssub.open sqlstr,conn,1,3
do while not rssub.eof
%>
<option value="<%= rssub("subid") %>"><%= rssub("suboard")%></option>
<% rssub.movenext
loop
set rssub=nothing
%>
</select>
<input name="Submit" type="submit" class="9t" id="Submit" value="文章置顶">
<input name="Submit" type="submit" class="9t" id="Submit" value="文章不置顶">
</form>
<%end if%> <table width="97%" border="0">
<tr>
<td align="right" bgcolor="#99CCFF">
<% if page<>1 then
response.write "<a href=main.asp?board="&request("board")&"&suboard="&request("suboard")&"&page_code=1&paixu="&paixu&">第一页</a>"
response.write "<a href=main.asp?board="&request("board")&"&suboard="&request("suboard")&"&page_code="&(page-1)&"&paixu="&paixu&">上一页</a>"
end if
if page<>rscust.pagecount then
response.write "<a href=main.asp?board="&request("board")&"&suboard="&request("suboard")&"&page_code="&(page+1)&"&paixu="&paixu&">下一页</a> "
response.write "<a href=main.asp?board="&request("board")&"&suboard="&request("suboard")&"&page_code="&rscust.pagecount&"&paixu="&paixu&">最后一页</a>"
end if %>
</td>
</tr>
</table>
<br> <%
rscust.Close
set rscust=nothing
'rs1.Close
'set rs1=nothing
conn.close
end if%>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -