28,409
社区成员
发帖
与我相关
我的任务
分享请各位帮忙一下~~
<!--#include file="conn.asp"-->
<head>
<title>修改总页面</title>
<head>
<body>
<p>
<%
dim page_size,catid,cat
set rs=server.CreateObject("Adodb.recordset")
sql="select * from news order by id desc"
rs.open sql,conn,1,1
%>
<%if rs.eof or rs.bof then%>
</p>
<table width="710" border="0" align="center" >
<tr>
<td height="50" colspan="6" align="center" ><font size="30" color="#CCCC333">对不起，没有相关的信息！</font><a href="admin.asp ">点击返回管理首页</a></td>
</tr>
</table>
<%else%>
<p> </p>
<h1 align="center"><font color="#663399" >新闻修改总页面</font></h1>
<table width="651" height="141" border="1" align="center" cellspacing="0" bordercolor="#FF9933">
<tr>
<th width="48" height="37" scope="col">编号</th>
<th width="224" scope="col">标题</th>
<th width="237" scope="col">录入日期</th>
<th width="67" scope="col">修改</th>
</tr>
<%
if not rs.bof and not rs.eof then
dim page_zise,page_now,page_total
page_size=20
if request.QueryString("page_now")="" then
page_now=1
else
page_now=cint(request.QueryString("page_now"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_now
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<tr>
<td align="center"><%=rs("id")%></td>
<td align="center"><%=rs("title")%></td>
<td align="center"><%=rs("dd")%></td>
<td align="center"><a href="xgnewadd.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<tr>
<td colspan="4" align="center">共有<%=rs.recordcount%></span>个新闻 每页<span class="red"><%=page_size%></span>个 页码:<%=page_now%>/<span class="style2"><%=rs.pagecount%></td>
</tr>
</table>
<%end if%>
</body>
</html>
调试时说:
缺少语句
/xgnew.asp, line 69
end if
但是最后我不是有一个<%END IF%>了吗?不是完了吗?怎么还是说没有完成呢?
<head>
<title>修改总页面</title>
<head>
<body>
<p>
<%
dim page_size,catid,cat
set rs=server.CreateObject("Adodb.recordset")
sql="select * from news order by id desc"
rs.open sql,conn,1,1
%>
<%if rs.eof or rs.bof then%>
</p>
<table width="710" border="0" align="center" >
<tr>
<td height="50" colspan="6" align="center" ><font size="30" color="#CCCC333">对不起，没有相关的信息！</font><a href="admin.asp ">点击返回管理首页</a></td>
</tr>
</table>
<%else%>
<p> </p>
<h1 align="center"><font color="#663399" >新闻修改总页面</font></h1>
<table width="651" height="141" border="1" align="center" cellspacing="0" bordercolor="#FF9933">
<tr>
<th width="48" height="37" scope="col">编号</th>
<th width="224" scope="col">标题</th>
<th width="237" scope="col">录入日期</th>
<th width="67" scope="col">修改</th>
</tr>
<%
if not rs.bof and not rs.eof then
dim page_zise,page_now,page_total
page_size=20
if request.QueryString("page_now")="" then
page_now=1
else
page_now=cint(request.QueryString("page_now"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_now
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
<tr>
<td align="center"><%=rs("id")%></td>
<td align="center"><%=rs("title")%></td>
<td align="center"><%=rs("dd")%></td>
<td align="center"><a href="xgnewadd.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<tr>
<td colspan="4" align="center">共有<%=rs.recordcount%></span>个新闻 每页<span class="red"><%=page_size%></span>个 页码:<%=page_now%>/<span class="style2"><%=rs.pagecount%></td>
</tr>
</table>
<%end if%>
</body>
</html>
调试时说:
缺少语句
/xgnew.asp, line 69
end if
但是最后我不是有一个<%END IF%>了吗?不是完了吗?怎么还是说没有完成呢?
...全文
请发表友善的回复…
发表回复
kikomao123 2008-04-21
- 打赏
- 举报
送点分
No_Data_Found 2008-04-19
- 打赏
- 举报
总结经验 吸取教训 避免再次出现类似问题
No_Data_Found 2008-04-19
- 打赏
- 举报
ok了 就结贴吧
kikomao123 2008-04-19
- 打赏
- 举报
呵呵,OK了
