📄 bbs.asp
字号:
</b> <hr align="left" width="70%" size="1" noshade color="#eeeeee">
</td>
</tr>
</table>
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="130" valign="top"><table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout: fixed;WORD-WRAP: break-word;">
<tr>
<td valign="top" style="line-height:20px;">
<%
response.Flush()
if rs("html")=0 then
response.write(ubb(rs("content")))
else
response.write(rs("content"))
end if
response.Flush()
%>
<%if uploadfile<>"" and filepath<>"" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><br> <hr align="left" width="70%" size="1" color="#FF0000"></td>
</tr>
<tr>
<td align="left"><font color="#0000FF">该帖子的相关附件：
<%
fileext=getext(uploadfile)
if fileext="jpg" or fileext="gif" or fileext="jpeg" or fileext="bmp" then
response.write("</font><blockquote><p><a href='ViewBigImage.asp?url="&filepath&"' target=_blank><img src="&filepath&" border=0 alt=""按此在新窗口浏览图片"" onload=""pic_width(this,screen.width-450)""></a></p></blockquote>")
else
response.write(" <b><a href='DownLoadFile.asp?id="&trim(filepath)&"' target=_blank title='按此下载该附件！'>"&uploadfile&"</a><b>")
end if%>
</font></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table></td>
</tr>
</table>
<%if viewsign=1 and signature<>"" then%>
<br>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/qianming.gif" width="354" height="18" title="<%=name%>的签名档"></td>
</tr>
<tr>
<td>
<%response.write(ubb(signature))%>
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td width="124" height="12" nowrap bgcolor="<%=color%>"><img src="images/ip.gif" width="13" height="15" align="absmiddle">
<%if admin=1 then
response.write(""&rs("bip")&"")
else
response.write("IP已设置保密")
end if%>
</td>
<td height="12" bgcolor="<%=color%>"><table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="67%" height="24" class="v7"><%=rs("addtime")%></td>
<td width="33%" height="24" align="right" nowrap class=v7>
<%if (request.Cookies("matrix3")("matrix3_admin")="matrix3") and (rs("html")=1) then
response.write(" <a href='matrix3_post.asp?id="&rid&"' title='编辑此帖子' target=_blank><img src='images/Edit1.gif' width='14' height='14' border='0' align='absmiddle'> 编辑</a>")
%>
<%else%>
<%if admin=1 or name=request.Cookies("matrix3")("matrix3_name") then%>
<a href="edit.asp?id=<%=rid%>" title='编辑此帖子'><img src="images/Edit1.gif" width="14" height="14" border="0" align="absmiddle">
编辑 </a>
<%end if%>
<%end if%>
<%if admin=1 then%>
<a href="javascript:alertwin('del.asp?id=<%=rid%>&rootid=<%=rootid%>&purl=bbs&page=<%=page%>')" title='把此帖放入回收站！'><img src="images/delete.gif" width="14" height="14" border="0" align="absmiddle">
删除</a>
<%if rs("isbest")=0 then%>
<a href="setbest.asp?id=<%=rid%>&rootid=<%=rootid%>&purl=bbs&page=<%=page%>" title='将此帖置为精华帖！'><img src="images/isbest.gif" width="14" height="14" border="0" align="absmiddle">
加入精华</a>
<%else%>
<a href="unbest.asp?id=<%=rid%>&rootid=<%=rootid%>&purl=bbs&page=<%=page%>" title='将此帖取消为精华帖！'><img src="images/isbest.gif" width="14" height="14" border="0" align="absmiddle">
取消精华</a>
<%end if%>
<%if rs("istop")=0 then%>
<a href="settop.asp?id=<%=rid%>&rootid=<%=rootid%>&purl=bbs&page=<%=page%>" title='将此帖置为本论坛顶帖！'><img src="images/istop.gif" width="13" height="14" border="0" align="absmiddle">
置顶</a>
<%else%>
<a href="untop.asp?id=<%=id%>&rootid=<%=rootid%>&purl=bbs&page=<%=page%>" title='将此帖取消顶帖！'><img src="images/istop.gif" width="13" height="14" border="0" align="absmiddle">
取消置顶</a>
<%end if%>
<%end if%>
<a href="#top" title='返回页顶'><img src="images/top.gif" width="8" height="13" border="0" align="absmiddle">
顶端</a></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/blank.gif" width="1" height="2"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td class="mainbg"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="body_light">
<form name="form1" method="post" action="bbs.asp?id=<%=ID%>&listpage=<%=listpage%>">
<tr>
<td width="61%" nowrap><span class="v7"></span> 帖子数：
<%=totalcount%> ， 页数： <%=totalpages%>
分页： |
<%if page>1 then
response.write("<a href='bbs.asp?id="&ID&"&listpage="&listpage&"'>首页</a>")
else
response.write("<font color=#999999>首页</font>")
end if
%>
|
<%if page>1 then
response.write("<a href='bbs.asp?id="&ID&"&page="&page-1&"&listpage="&listpage&"'>前一页</a>")
else
response.write("<font color=#999999>前一页</font>")
end if
%>
|
<%if page<totalpages then
response.write("<a href='bbs.asp?id="&ID&"&page="&page+1&"&listpage="&listpage&"'>下一页</a>")
else
response.write("<font color=#999999>下一页</font>")
end if
%>
|
<%if page<totalpages then
response.write("<a href='bbs.asp?id="&ID&"&page="&totalpages&"&listpage="&listpage&"'>末页</a>")
else
response.write("<font color=#999999>末页</font>")
end if
%>
|
<%if totalpages>3 then%>
跳到：第
<select name="page" class="input1" id="page" onChange="this.form.submit()">
<%for i=1 to totalpages
response.write "<option value="&i&""
if i=page then response.write" selected"
response.write">"&i&"</option>"&chr(13)
next
%>
</select>
页
<%end if%>
<a name=bot></a> </td>
<td width="39%" align="right" nowrap><a name=bottom></a><font color="#4F4F00">+
跳转论坛至:</font> <select name="where3" class="select" id="where3" onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<%
dim tmprs1,tmprs2,tmpcid,tmpsql
tmpsql="select * from m3_category where CValid=1 order by CIndex asc"
set tmprs1=server.CreateObject("adodb.recordset")
set tmprs2=server.CreateObject("adodb.recordset")
tmprs1.open tmpsql,conn,1,1
do while not tmprs1.eof
response.write("<option value=""category.asp?cid="&tmprs1("CID")&"&listpage="&listpage&""">"&tmprs1("CTitle")&"</option>")
tmpsql="select FID,FTitle from m3_forum where CID="&tmprs1("CID")&" and FValid=1 order by FIndex asc"
tmprs2.open tmpsql,conn,1,1
do while not tmprs2.eof
response.write("<option value=""list.asp?forumid="&tmprs2("FID")&"&listpage="&listpage&""" ")
if cint(FID)=cint(tmprs2("FID")) then response.Write(" selected")
response.write("> - "&tmprs2("FTitle")&"</option>")
tmprs2.movenext
loop
tmprs2.close
tmprs1.movenext
loop
tmprs1.close
set tmprs1=nothing
set tmprs2=nothing
%>
</select> </td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="16" class="list_bar_1"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF">帖子搜索</font></span></td>
<td height="16" nowrap class="list_bar_1_bg"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" bgcolor="#FFFFFF" class="mainbg"><table border="0" cellspacing="0" cellpadding="0" width=400>
<form name="schform" method="post" action="search.asp">
<tr>
<td nowrap> 关键词：
<input name="keyword" type="text" class=input1 id="keyword" value="" size="10" maxlength="30">
类别：
<select name="type" id="type" class="input1">
<option value="1">标题</option>
<option value="2">作者</option>
</select> 范围：
<select name="where" class="select" id="where">
<%
tmpsql="select * from m3_category where CValid=1 order by CIndex asc"
set tmprs1=server.CreateObject("adodb.recordset")
set tmprs2=server.CreateObject("adodb.recordset")
tmprs1.open tmpsql,conn,1,1
do while not tmprs1.eof
response.write("<option value="""&tmprs1("CID")&""">"&tmprs1("CTitle")&"</option>")
tmpsql="select FID,FTitle from m3_forum where CID="&tmprs1("CID")&" and FValid=1 order by FIndex asc"
tmprs2.open tmpsql,conn,1,1
do while not tmprs2.eof
response.write("<option value="""&tmprs2("FID")&""" ")
if cint(FID)=cint(tmprs2("FID")) then response.Write(" selected")
response.write("> - "&tmprs2("FTitle")&"</option>")
tmprs2.movenext
loop
tmprs2.close
tmprs1.movenext
loop
tmprs1.close
set tmprs1=nothing
set tmprs2=nothing
call closedb()
%>
</select> <input name="imageField" type="image" src="images/sch1.gif" align="middle" width="16" height="14" border="0">
</td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="10"> </td>
<td width="1" class="right_sp_min"></td>
<td width="100" valign="top" class="right_main"> <!-- #include file="right.asp" --> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="10" align="center" valign="bottom"> <!-- #include file="bottombar.asp" --> </td>
</tr>
</table>
</body>
</html>
<!-- #include file="ubb.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -