老大们,那位帮忙一下啊
那位老大帮忙一下 这个是页面 就是帖子格式后面多了一个空白格子 我怎么搞都删除不掉 那位帮忙看一下 怎么改<!--#include file="md5.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="top.asp" -->
<html xmlns="http://www.
<link href="css.css" rel="stylesheet" type="text/css">
<head>
<meta name="description" content="紫蝶轩留言本">
<meta name="keywords" content="紫蝶轩流言本,紫蝶轩留言本,紫蝶轩流言本,紫碟轩留言本,紫蝶轩论坛,紫蝶吧,紫蝶吧论坛,紫蝶bbs,紫蝶轩,ksmy,小飞,王小飞,阿飞,飞♂非→飛,飛,紫蝶论坛网站,紫蝶论坛起源论坛,源码下载,源码,下载,免费论坛,四川省论坛,成都论坛,aspbbs,aspksmy,ksmyasp,asp论坛,简易bbs,简易论坛,bbs程序,小型论坛,小型bbs,精简论坛,精简bbs,小型留言本,大型留言本,中小型留言本,fly.,wangxiaofei,
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%></title>
</head>
<body>
<div align="center">
<script language=Javascript>
<!--这是全选-->
function checkAll(e, itemName)
{
var aa = document.getElementsByName(itemName);
for (var i=0; i<aa.length; i++)
aa[i].checked = e.checked;
}
function checkItem(e, allName)
{
var all = document.getElementsByName(allName)[0];
if(!e.checked) all.checked = false;
else
{
var aa = document.getElementsByName(e.name);
for (var i=0; i<aa.length; i++)
if(!aa[i].checked) return;
all.checked = true;
}
}
</script>
<%
'---------------------------读取保存记录-----------------------------
dim cookiesname,cookiespass
cookiesname=request.cookies("denglu")("a_name")
cookiespass=request.cookies("denglu")("a_pass")
%>
<!----------------菜单------------------->
<div id="menu" >
<ul>
<li>欢迎你:<font color="#FF0000"><%if session("user")="" then response.Write("游客") else response.Write(session("user")) end if%> </font> </li>
<% if session("user")="" then%>
</li>
<li><a href="login.asp" target="_self">登陆</a>
</li>
<li class="menuDiv"></li>
<li><a href="reg.asp">注册</a></li>
<li class="menuDiv"><%else%>
<li>
<a href="useredit.asp?user=<%=session("user")%>" target="_self">资料修改</a><a href="search.asp" target="_self"></a> </li>
<li class="menuDiv"><%end if%></li>
<li><a href="search.asp" target="_self">搜索</a></li>
<li class="menuDiv"></li>
<li><a href="user.asp" target="_self">用户</a></li>
<li class="menuDiv"></li>
<li><a href="search.asp?sl=1&s_id=<%if session("user")<>"" then response.Write(session("user"))else response.Write("游客") end if%>">个人文集</a>
</li>
<li class="menuDiv"></li>
<li><a href="help.asp" target="_self">帮助</a></li>
</ul>
</div>
<!----------------快速登陆区域------------------->
<%if session("user")="" then%>
<div id="login">
<form id="form1" name="form1" method="post" action="login.asp">
快速登陆 账号:
<input name="a_name" type="text" id="a_name" value="<%=cookiesname%>" size="20" />
密码:
<input name="a_pass" type="password" id="a_pass" value="<%=cookiespass%>" size="20" />
<select name="cookiedate" id="cookiedate">
<option value="0" selected>不保存</option>
<option value="1">保存一天</option>
<option value="2">保存一月</option>
<option value="3">保存一年</option>
</select>
<input name="submit" type="submit" class="buttom" id="submit" value="登 陆" />
</form>
</div>
<%else%>
<div id="login">
<form id="form1" name="form1" method="post" action="login.asp">
帐号:<%response.Write(session("user")) %>
<%
select case session("zdqx")
case "user"
response.Write("等级:会员 你可以执行以下操作:发表留言、回复留言。")
case "admin"
response.Write("等级:管理员 你可以执行以下操作:审核、回复、屏蔽、精华、置顶。")
case "alladmin"
response.Write("等级:超级管理员 <a href='admin.asp' target='_blank'><font color='#FF0000'>登陆后台</font></a>")
end select
%>
<input name="Submit" type="submit" class="buttom" id="Submit" value="注 销" />
</form>
<%END IF%>
<!----------------分类显示------------------->
<div id="menu">
<ul>
<li>分类:</li>
<li class="menuDiv"></li>
<%
set rs1=server.createobject("adodb.recordset")
exec3="select * from zdfl "
rs1.open exec3,conn,1,1
do while not rs1.eof
%>
<li><a href="search.asp?sl=4&fl=<%=rs1("f_id")%>"><%=rs1("f_name")%></a></li>
<li class="menuDiv"></li>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</ul>
</div>
<!----------------留言显示区域------------------->
<form action="admin_del.asp" method="post">
<div id="content">
<div id="contentmenu">
<div id="contentmenu1"><a href="add.asp"><font color="#FF0000"><b>发表新主题</b></font></a></div>
<div id="contentmenu2">主题</div>
<div id="contentmenu1">作者</div>
</div>
<%
set rsi=server.createobject("adodb.recordset")
exec1="select * from zdi where m_con=0 order by m_ding desc,m_uptime desc"
rsi.open exec1,conn,1,1
if not rsi.bof and not rsi.eof then
dim page
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
rsi.pagesize=webNum '每页显示N条记录
rsi.absolutepage=page
dim i
i=rsi.pagesize
end if
do while not rsi.eof and i>0
i=i-1
set rsfl=server.createobject("adodb.recordset")
exec2="select * from zdfl where f_id="&rsi("m_flid")
rsfl.open exec2,conn,1,1%>
<div id="content1menu" >
<div id="content1menu1">【<a href="search.asp?sl=4&fl=<%=rsfl("f_id")%>" target="_blank"><%=rsfl("f_name")%></a>】</div>
<div id="content1menu2">
<%if session("zdqx")="alladmin" then%>
<input name="del" type="checkbox" id="del" value="<%=rsi( "m_id")%>" onClick="checkItem(this, 'mmAll')" />
<%end if%>
<a href="view.asp?id=<%=rsi("m_id")%>"target="_blank"><%=rsi("m_bt")%></a>
<% if now-rsi("m_time")<0.5 then response.Write(" <img src='images/new.gif'>")%>
</div>
<div id="content1menu1" ><%=rsi("m_user")%></div>
</div>
<%
rsi.movenext
loop
%>
<br>
<!----------------留言翻页批量删除------------------->
<div id="contentpage">
<div id="contentpage1">
<a href="index.asp?page=1<%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">首页</a>
</div>
<div id="contentpage1">
<%if not page="1" then%>
<a href="index.asp?page=<%=page-1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">上一页</a><%else response.Write("上一页") end if%>
</div>
<div id="contentpage1">
<%if not page=rsi.pagecount then%>
<a href="index.asp?page=<%=page+1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">下一页</a><% else response.Write("下一页") end if%>
</div>
<div id="contentpage1"><a href="index.asp?page=<%=rsi.pagecount%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">末页</a>
</div>
<div id="contentpage1"><font color="#FF0000"><%=page%></font>/<%=rsi.pagecount%></div>
<div id="contentpage1">
<select name="select3" onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"><% for t = 0 to rsi.pagecount-1%><option value="index.asp?page=<%=t+1%>" <%if t+1=page then%>selected<%end if%>><%=t+1%></option><%next%></select>
</div>
<%if session("zdqx")="alladmin" then%>
<div id="contentpage1"><input type=checkbox name=mmAll onClick="checkAll(this, 'del')">全选</div>
<div id="contentpage2">
<input type="submit" name="Submit" class="buttom" value=" 批量删除 ">
</div>
<%end if%>
</div>
</div>
</form>
</div>
</body>
</html>