查看: 43|回复: 2

会的看看(已自解诀)

[复制链接]

若叶花吹雪

电梯直达

1^#

发表于 2010-1-10 02:42:10 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>日志</title>
</head>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from ad_ad_blog"
rs.open sql,conn,1,1
If rs.bof Or rs.eof Then
response.write"没有可用的数据"
Else
counts=5
rs.pagesize=counts'每页显示的行数
allpage=rs.pagecount'总页数
page=request("page")'从url获取当前页本句未修改前是page=request.querystring("page")
If not IsNumeric(page) Then
page=1
End if
if IsEmpty(page)Or CInt(page)<1 Then
page=1
elseif CInt(page)>=allpage Then
page=allpage
End If
rs.absolutepage=page
%>
<body>
<table width="100%" border="1" cellpadding="0">
  <tr>
<td><div align="center">用户名</div></td>
<td><div align="center">名称</div></td>
<td><div align="center">删除</div></td>
<td><div align="center">恢复</div></td>
  </tr>
  <%
  do while not rs.eof and counts>0
  %>
  <tr>
<td><div align="center"><%=rs("user_sort_name")%></div></td>
<td><div align="center"><%=rs("ad_log_name")%></div></td>
<td><div align="center">删除</div></td>
<td><div align="center"></div></td>
  </tr>
  <%
  counts=counts-1
  rs.movenext
  loop
  end if
  %>
</table>
<%
If page=1 Then
response.write("<a href=adlog_list.asp>首页</a>")
Else
response.write("<a href=adlog_list.asp?page=1>首页</a><a href=adlog_list.asp?page="&page-1&">上一页</a>")
End If
response.write("第"&page&"页")
If page=allpage Then
response.write("<a href=adlog_list.asp.asp>尾页</a>")
Else
response.write("<a href=adlog_list.asp?page="&page+1&">下一页</a><a href=adlog_list.asp?page="&allpage&">尾页</a>")
End if
%>
</body>
</html>
为什么不提示错误,也不显示呢

收藏0

使用道具举报

地上跑

2^#

发表于 2010-1-10 02:42:14 | 只看该作者

把IE设置里的显示有好错误的勾去掉,会显示的
if IsEmpty(page)Or CInt(page)<1 Then
page=1
elseif CInt(page)>=allpage Then
page=allpage
End If

红色块内,,or与前面的距离

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册