📄 matrix3_list.asp
字号:
<tr>
<td width="130" height="12" bgcolor="#990000"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle"></span><span class="v7b"><font color="#FFFFFF">
帖子列表</font></span></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#DCD6BA">
<tr>
<td width="20" align="center" background="images/bg4.gif" bgcolor="#ECE9D9"><strong>·</strong></td>
<td width="32" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">图</td>
<td width="328" background="images/bg4.gif" bgcolor="#ECE9D9">主题</td>
<td width="79" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">作者</td>
<td width="111" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">论坛</td>
<td width="121" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">发表时间</td>
<td width="75" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">管理</td>
</tr>
<%
if lname="" or lvalue="" then
sql="select bbs.topic,bbs.html,bbs.name,bbs.face,bbs.valid,bbs.FID,bbs.addtime,bbs.id,forum.ftitle from m3_bbs as bbs,m3_forum as forum where forum.fid=bbs.fid order by bbs.addtime desc"
else
sql="select bbs.topic,bbs.html,bbs.name,bbs.face,bbs.valid,bbs.FID,bbs.addtime,bbs.id,forum.ftitle from m3_bbs as bbs,m3_forum as forum where ((forum.fid=bbs.fid) and (bbs."&lname&"="&lvalue&")) order by bbs.addtime desc"
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
rs.pagesize=psize
rs.cachesize=rs.pagesize
totalpages=rs.pagecount
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
totalcount=int(rs.recordcount)
i=0
do while (not rs.eof) and (i<psize)
i=i+1
id=rs("ID")
%>
<tr bgcolor="#FFFFFF" height="20">
<td height="24" align="center">
<input name="id" type="checkbox" id="id" value="<%=id%>">
</td>
<td height="24" align="center"><img src="images/f<%=trim(rs("face"))%>.gif"></td>
<td height="24"><a href="treelist.asp?id=<%=id%>" target="_blank"><%=rs("topic")%></a>
<%if rs("valid")=0 then%>
<font color="#FF0000">(已删除)</font>
<%end if%>
</td>
<td height="24" align="center" nowrap bgcolor="#F1F3D6">
<a href='profile.asp?name=<%=rs("name")%>' target="_blank"><%=rs("name")%></a></td>
<td height="24" align="center" nowrap bgcolor="#FFFFFF"><a href="list.asp?forumid=<%=rs("FID")%>" target="_blank"><%=rs("ftitle")%></a></td>
<td height="24" align="center" nowrap bgcolor="#FFFFFF">
<%=rs("addtime")%></td>
<td align="center" nowrap bgcolor="#FFFFFF">
<%if cint(rs("html"))=1 then
response.write("<a href=""matrix3_post.asp?id="&id&""" target='_blank'>")
else
response.write("<a href=""edit.asp?id="&id&""" target='_blank'>")
end if
%>
编辑</a> | <a href="javascript:alertwin('matrix3_del.asp?id=<%=id%>')">删</a></td>
</tr>
<%
rs.movenext
loop
else
response.Write("<tr><td colspan=7 bgcolor=#FFFFFF height=30> 没有帖子 ... </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" 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="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F0E4">
<tr>
<td width="50%" nowrap><input name="clickall0" type="checkbox" id="clickall0" onClick=clickall(this.form) value="1">
全选
<select name="what" class="select" id="what">
<option value="0" selected>选中项</option>
<option value="1">全部项</option>
</select>
<select name="action" class="select" id="action" onChange="doselecte(this.form);">
<option value="0" selected>转至</option>
<option value="1">删除</option>
</select>
<select name="turnto" class="select" id="turnto" onchange="if(this.options[this.selectedIndex].value==''){alert('请选择一个要转移到的论坛!');return false;}">
<%
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='0'>"&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="Submit1" type="button" class="select" id="Submit1" value="确定" onClick="dosubmit(this.form);">
</td>
<td width="50%" align="right" nowrap><span class="v7"> 帖数：<%=totalcount%>
总页数：<%=totalpages%> |
<%if page>1 then
response.write("<a href='matrix3_list.asp?lname="&lname&"&lvalue="&lvalue&"'>首页</a>")
else
response.write("<font color=#999999>首页</font>")
end if
%>
|
<%if page>1 then
response.write("<a href='matrix3_list.asp?lname="&lname&"&lvalue="&lvalue&"&page="&page-1&"'>前一页</a>")
else
response.write("<font color=#999999>前一页</font>")
end if
%>
|
<%if page<totalpages then
response.write("<a href='matrix3_list.asp?lname="&lname&"&lvalue="&lvalue&"&page="&page+1&"'>下一页</a>")
else
response.write("<font color=#999999>下一页</font>")
end if
%>
|
<%if page<totalpages then
response.write("<a href='matrix3_list.asp?lname="&lname&"&lvalue="&lvalue&"&page="&totalpages&"'>末页</a>")
else
response.write("<font color=#999999>末页</font>")
end if
%>
|
<%if totalpages>3 then%>
跳到：第
<select name="select3" class="input1" id="select3" onchange="if(this.options[this.selectedIndex].value!=''){document.pageform.page.value=this.options[this.selectedIndex].value;document.pageform.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%>
</span></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr></form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="pageform" method="post" action="matrix3_list.asp?lname=<%=lname%>&lvalue=<%=lvalue%>">
<input type="hidden" name="page" value="<%=page%>"><tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</form>
</table></td>
<td width="10"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="100" bgcolor="#ECE9D9" valign="top"> <!-- #include file="matrix3_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 + -