📄 list.asp
字号:
pictips="固顶帖子"
elseif isbest=1 then
pic="isbest"
pictips="精华帖子"
elseif re>10 then
pic="hot"
pictips="热门话题"
else
pic="normal"
pictips="普通话题"
end if
%>
<tr onMouseOver="bgcolor='#F1F0E4'" onMouseOut="bgcolor='#FFFFFF'" height="20">
<td width="25" height="28" align="center" class="list_col"><img title="<%=pictips%>" src="images/<%=pic%>.gif" border="0" align="absmiddle">
</td>
<td width="25" height="24" align="center" class="mainbg"><a href="<%=liststr%>.asp?id=<%=id%>&listpage=<%=page%>" target="_blank"><img src="images/f<%=trim(face)%>.gif" align=absmiddle border="0" title="新开窗口阅读此主题"></a></td>
<td height="24" class="mainbg">
<%if re>0 then%>
<img src="images/plus.gif" align="absmiddle" id="followImg<%=id%>" style="cursor:hand;" title='展开/关闭帖子列表' onclick="loadThreadFollow(<%=id%>,<%=FID%>)" loaded="no">
<%else%>
<img src="images/nofollow.gif" align="absmiddle" id="followImg<%=id%>">
<%end if%>
<%
if uploadfile<>"" and filepath<>"" then
fileext=getext(uploadfile)
if fileext="jpg" or fileext="gif" or fileext="jpeg" or fileext="bmp" then
response.write("<a href='ViewBigImage.asp?url="&filepath&"' target=_blank><img src='images/"&fileext&".gif' border=0 align=absmiddle alt=按此在新窗口浏览图片></a>")
else
response.write("<a href='DownLoadFile.asp?id="&trim(filepath)&"' target=_blank><img src='images/"&fileext&".gif' border=0 align=absmiddle alt=按此下载该帖子附件></a>")
end if
end if
%>
<a href="<%=liststr%>.asp?id=<%=id%>&listpage=<%=page%>" title="浏览此帖子"><%=topic%></a>
<font color="#999999">(<%=getcsize(csize)%>)</font>
<%if re>10 then
response.write(" [<img src=images/multipage.gif align=absmiddle> ")
for j=1 to int(re/10)
response.write("<a href='bbs.asp?id="&id&"&page="&j&"&listpage="&page&"' title='浏览该主题的第"&j&"页'><font color=red><b>"&j&"</b></font></a>")
response.write(" ")
next
response.write("<a href='bbs.asp?id="&id&"&page="&j&"&listpage="&page&"' title='浏览该主题的第"&j&"页'><font color=red><b>"&j&"</b></font></a>")
response.write("]")
end if
%>
</td>
<td height="24" align="center" nowrap class="list_col">
<a href='profile.asp?name=<%=name%>' target="_blank" title="查看<%=name%>的个人简介"><%=name%></a></td>
<td height="24" align="center" nowrap class="mainbg"> <%=re%>
/ <%=click%></td>
<td height="24" align="center" nowrap class="mainbg"><a href='profile.asp?name=<%=lastname%>' target="_blank" title="查看<%=lastname%>的个人简介"><%=lastname%></a>
</td>
<td height="24" align="center" nowrap class="mainbg"><%=lasttime2%></td>
</tr>
<tr style="display:none" id="follow<%=id%>">
<td colspan=7 nowrap bgcolor=#FFFFFF id="followTd<%=id%>" style="padding:0px"><div style="width:240px;margin-left:18px;border:1px solid black;background-color:lightyellow;color:black;padding:2px" onclick="loadThreadFollow(<%=id%>,<%=FID%>)">正在读取关于本主题的跟帖，请稍侯……</div></td>
</tr>
<%
rs.movenext
wend
else
response.Write("<tr><td colspan=8 bgcolor=#FFFFFF height=30> 暂无"&viewstr&" ... </td></tr>")
end if
rs.close
set rs=nothing
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" class="body_sp_min"></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="5"></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" class="body_tb_border">
<tr bgcolor="#FFFFFF">
<td valign="top" class="mainbg"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="list_light">
<tr>
<td nowrap class="v7"><%=MultiPage(page,20,totalcount,"&forumid="&FID&"")%></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>
<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="body_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="body_bar_1_bg"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class="body_tb_border">
<tr bgcolor="#FFFFFF">
<td valign="top" class="mainbg"><table border="0" cellspacing="0" cellpadding="0" width=100%>
<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">
<%
dim tmprs1,tmprs2,tmpcid,tmpsql
tmpsql="select CID,CTitle 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(0)&""">"&tmprs1(1)&"</option>")
tmpsql="select FID,FTitle from m3_forum where CID="&tmprs1(0)&" and FValid=1 order by FIndex asc"
tmprs2.open tmpsql,conn,1,1
do while not tmprs2.eof
response.write("<option value="""&tmprs2(0)&""" ")
if cint(FID)=cint(tmprs2(0)) then response.Write(" selected")
response.write("> - "&tmprs2(1)&"</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>
<td align="right" nowrap><a name=bot></a>+ 跳转论坛至:</font>
<select name="where3" class="select" id="where3" onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<%
tmpsql="select CID,CTitle 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(0)&""">"&tmprs1(1)&"</option>")
tmpsql="select FID,FTitle from m3_forum where CID="&tmprs1(0)&" 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(0)&""" ")
if cint(FID)=cint(tmprs2(0)) then response.Write(" selected")
response.write("> - "&tmprs2(1)&"</option>")
tmprs2.movenext
loop
tmprs2.close
tmprs1.movenext
loop
tmprs1.close
set tmprs1=nothing
set tmprs2=nothing
call closedb()
%>
</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" class="body_sp_min"></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>
<%
function getext(filename)
if isnull(filename) then exit function
if instr(filename,".")>0 then
getext=lcase(mid(filename,instrRev(filename,".")+1))
else
getext=""
end if
end function
function getcsize(cs)
if not isnumeric(cs) then
getcsize="0"&"字"
exit function
end if
if cs<1024 then
getcsize=cstr(cs)&"字"
else
getcsize=cstr(((int)(cs/100))/10)&"K"
end if
end function
%>
<!-- #include file="MultiPage_Func.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -