📄 category.asp
字号:
<tr background="images/bg4.gif">
<td width="64%" background="images/bg4.gif"><span class="v8b"><img src="images/fang-2.gif" width="7" height="7" align="absmiddle"></span>
分区热门话题</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="2" cellpadding="3">
<%
sql="select top 5 * from m3_bbs where CID="&CID&" and click>20 and valid=1 order by addtime desc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof
id=rs("ID")
%>
<tr>
<td width="8"> </td>
<td> <img src='images/f<%=rs("face")%>.gif' align='absmiddle'>
<a href="bbs.asp?id=<%=id%>"><%=rs("topic")%></a>
<font color="#666666">( <a href='profile.asp?name=<%=rs("name")%>' target="_blank"><%=rs("name")%></a>
发表于 <%=datevalue(rs("addtime"))%> ) </font></td>
<td width="8"> </td>
</tr>
<%
rs.movenext
loop
else
response.Write("<tr><td colspan=3 bgcolor=#FFFFFF height=30> 暂无热门话题 ... </td></tr>")
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table>
<br> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#D9D3B4">
<tr background="images/bg4.gif">
<td width="64%" background="images/bg4.gif"><span class="v8b"><img src="images/fang-2.gif" width="7" height="7" align="absmiddle"></span>
分区最新帖子</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="2" cellpadding="3">
<%
sql="select top 5 * from m3_bbs where CID="&CID&" and valid=1 order by addtime desc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof
id=rs("ID")
%>
<tr>
<td width="8"> </td>
<td> <img src='images/f<%=rs("face")%>.gif' align='absmiddle'>
<a href="bbs.asp?id=<%=id%>"><%=rs("topic")%></a>
<font color="#666666">( <a href='profile.asp?name=<%=rs("name")%>' target="_blank"><%=rs("name")%></a>
发表于 <%=datevalue(rs("addtime"))%> ) </font></td>
<td width="8"> </td>
</tr>
<%
rs.movenext
loop
else
response.Write("<tr><td colspan=3 bgcolor=#FFFFFF height=30> 暂无新帖子 ... </td></tr>")
end if
rs.close
set rs=nothing
%>
</table></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" bgcolor="#A0AB6D"> <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 bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57%" nowrap><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="keyword2" value="" size="10" maxlength="30">
类别：
<select name="type" id="select" class="input1">
<option value="1">标题</option>
<option value="2">作者</option>
</select> 范围：
<select name="where" class="select" id="select2">
<%
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="""&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")&"""> - "&tmprs2("FTitle")&"</option>")
tmprs2.movenext
loop
tmprs2.close
tmprs1.movenext
loop
tmprs1.close
set tmprs1=nothing
set tmprs2=nothing
%>
</select> <input name="imageField" type="image" src="images/sch1.gif" align="middle" width="16" height="14" border="0">
</td>
</tr>
</form>
</table></td>
<td width="43%" align="right" nowrap>+
跳转论坛至:</font>
<select name="where3" class="select" id="where3" onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<%
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")&""" ")
if cint(CID)=cint(tmprs1("CID")) then response.Write(" selected")
response.write(">"&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")&"""> - "&tmprs2("FTitle")&"</option>")
tmprs2.movenext
loop
tmprs2.close
tmprs1.movenext
loop
tmprs1.close
set tmprs1=nothing
set tmprs2=nothing
call closedb()
%>
</select> </td>
</tr>
</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>
<i></i> </td>
<td width="10"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="100" bgcolor="#ECE9D9" valign="top">
<!-- #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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -