解决rs.absolutepage=-1的问题_ASP基础

有时候在做asp的分页程序的时候会遇到无法分页的情况,就试着把rs.absolutepage打印出来结果却一直为-1. 下面介绍一种解决方案: .......省略 rs.cursorlocation=3 '就是加上这行 rs.open sql,conn,3,2 rs.pagesize=10 if not rs.eof then rs.absolutepage=1 end if pagecount=rs.pagesize .........省略

'************************************************************** '------------------------------------------------------------- '第一个参数 '可以是表名,也可以是SQL语句 '------------------------------------------------------------- Chinaz^com  '第二个参数 '指定当前的连接. '------

显示页面加载时间 重复域中的斑马线  显示字符串前20个字符并在结尾处添加"--"  如果动态图片为空,使用默认图片代替  如果数据为空,使用默认提示信息代替  ●显示页面加载时间  页面顶部添加下面的代码: <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加: <% ' 加载完毕的时间 strEndTime = Timer Response.Write (&quo

应该来说,学会了如何插入记录,如何显示记录,那么现在简单的完整的文章系统.新闻系统和留言系统不成问题.那接着下面的问题就是:随着信息内容的不段增加,单独通过一张页面显示所有信息是不行也是很不理性的.所以,解决的办法就是采用分页技术. 1,rs.RecordCount很显然,RecordCount就是用来显示数据库表中一共多少条记录的,也可以形象地说表中一共有多少行.经常用在分页中就是一共有N篇文章等总计的信息显示. 2,rs.PageSizers.PageSize也就是一页的大小,也就表示一张A

本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了. 注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目. <!--#include file="conn.asp"--> <% '以上为包含数据库衔接文件 '--------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.records

<%  '#######以下是一个类文件,下面的注解是调用类的方法################################################  '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用  '# Access 数据库类  '# CreateDbFile 建立一个Access 数据库文件  '# CompactDatabase 压缩一个Access 数据库文件  '# 建立对象方法:  '# Set a

1.ASP与Access数据库连接: <%@language=VBscript%> <% dimconn,mdbfile mdbfile=server.mappath("数据库名称.mdb") setconn=server.createobject("adodb.connection") conn.open"driver={microsoftaccessdriver (*.mdb)};uid=admin;pwd=数据库密码;dbq=&qu

ASP编程常用的代码  1. ASP与Access数据库连接:   复制代码 代码如下: <%   dim conn,mdbfile   mdbfile=server.mappath("数据库名称.mdb")   set conn=server.createobject("adodb.connection")   conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&