📄 matrix3_list.asp
字号:
<!-- #include file="const.asp" -->
<%
call opendb()
checkadmin()
dim page,sql,rs,lname,lvalue
dim totalcount,totalpages,psize,i,id
psize=25
page=trim(request("page"))
lname=trim(request("lname"))
lvalue=trim(request("lvalue"))
if page="" then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/skin.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function alertwin(url)
{
if(confirm("警告：确定要删除吗？！"))
{
window.open(url);
}
}
function clickall(obj){
for (var i=0; i<obj.elements.length; i++)
{
var e=obj.elements[i];
if (e.name=="id")
{
e.checked=obj.clickall0.checked;
}
}
}
function doselecte(obj)
{
if(obj.action.options[obj.action.selectedIndex].value=="0")
{
obj.turnto.disabled=false;
}
if(obj.action.options[obj.action.selectedIndex].value=="1")
{
obj.turnto.disabled=true;
}
}
function dosubmit(obj){
var selectvalid=false;
if(obj.what.options[obj.what.selectedIndex].value=="0")
{
for (var i=0; i<obj.elements.length; i++)
{
var e=obj.elements[i];
if (e.name=="id")
{
if(e.checked)
{
selectvalid=true;
break;
}
}
}
if(selectvalid==false){alert("还没选择任何帖子!");return false;}
if(obj.action.options[obj.action.selectedIndex].value=="0")
{
if(obj.turnto.options[obj.turnto.selectedIndex].value=="0")
{
alert("请选择要将帖子转移到的论坛");
return false;
}
obj.submit();
obj.Submit1.disabled=true;
return true;
}
if(obj.action.options[obj.action.selectedIndex].value=="1")
{
if(confirm("确定要删除选中的帖子吗？"))
{
obj.submit();
obj.Submit1.disabled=true;
return true;
}
return false;
}
}
else
{
if(obj.action.options[obj.action.selectedIndex].value=="0")
{
if(obj.turnto.options[obj.turnto.selectedIndex].value=="0")
{
alert("请选择要将帖子转移到的论坛");
return false;
}
obj.submit();
obj.Submit1.disabled=true;
return true;
}
if(obj.action.options[obj.action.selectedIndex].value=="1")
{
if(confirm("确定删除所有帖子吗？？"))
{
obj.submit();
obj.Submit1.disabled=true;
return true;
}
return false;
}
return false;
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="top"> <!-- #include file="topbar.asp" --> </td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="83%" height="26" valign="top"><span class="v8"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="matrix3_admin.asp">BBS管理</a> <FONT face=Webdings color="#660000">8</FONT>
帖子列表</span></td>
<td width="17%"> <%if (LCase(lname)="fid") and (lvalue<>"") then
response.write("<b>+ <a href='matrix3_post.asp?forumid="&lvalue&"' target='_blank'><font color='#990000'>发新帖子</font></a></b>")
end if%></td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#ECE9D9"></td>
</tr>
</table>
<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 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>
</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="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="matrix3_list_action.asp?lname=<%=lname%>&lvalue=<%=lvalue%>&page=<%=page%>">
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -