用vbs模拟的一个asp的分页显示功能

刚做完1个项目，闲的无聊，想改改自己HomePage，但没有Asp权限，所以突发奇想，用vbs模拟了一个图片分页显示功能！由于写的是适合自己使用的功能，难免很多地方不是很完善！也请各位路过的提些意见，若有朋友正好想找类似的功能，或许可以帮助一下，另外，祝论坛的每一位朋友元旦快乐！


代码如下:

<script language=VBS>
Function showINDEXPAGE()
         JS=1
         webPath=window.location
         Do until Left(webPATH,1)="#" or JS=len(window.location)
                  JS=JS+1
                  webPATH=Right(window.location,JS)

Loop
         if JS=len(window.location) then showINDEXPAGE=1 else showINDEXPAGE=Replace(webPATH,"#","")
END Function

QZ=""              '需要显示的图像文件前缀
HZ=".gif"          '需要显示的图像文件后缀
theMAX=98          '最大显示图像个数
theSKIP=5          '每行显示多少图像个数
thePAGE=20         '每页显示多少图像个数

theINDEX=int(theMAX/thePAGE)
if theMAX mod thePAGE <> 0 then theINDEX=theINDEX+1

for i=1 to theINDEX
    showINDEX="<a href=#"&i&" onclick=window.location.reload()>"&"["&i&"]"&"</a> "
    document.write showINDEX
next
document.write "<br><br><hr>"

if thePAGE=0 then thePAGE=theMAX
for i=1 to thePAGE
    theNUM=i+thePAGE*(showINDEXPAGE()-1)
    if theNum>theMAX then EXIT FOR
    if theNUM<10 then
       temp="<img src="&QZ&"00"&theNUM&HZ&"></img>"     
    else if theNum<100 then
            temp="<img src="&QZ&"0"&theNUM&HZ&"></img>"
         else
            temp="<img src="&QZ&theNUM&HZ&"></img>"
         end if
    end if
    document.write temp
    if theSKIP<>0 then if i mod theSKIP = 0 then document.write "<br>"
next

document.write "<hr><br><br>"
for i=1 to theINDEX
    showINDEX="<a href=#"&i&" onclick=window.location.reload()>"&"["&i&"]"&"</a> "
    document.write showINDEX
next
</script>

自动刷新自动分页测试[zozo98]

Function showINDEXPAGE()
JS=1
webPath=window.location
Do until Left(webPATH,1)="#" or JS=len(window.location)
JS=JS+1
webPATH=Right(window.location,JS)

Loop
if JS=len(window.location) then showINDEXPAGE=1 else showINDEXPAGE=Replace(webPATH,"#","")
END Function

QZ="" '需要显示的图像文件前缀
HZ=".gif" '需要显示的图像文件后缀
theMAX=98 '最大显示图像个数
theSKIP=5 '每行显示多少图像个数
thePAGE=20 '每页显示多少图像个数

theINDEX=int(theMAX/thePAGE)
if theMAX mod thePAGE 0 then theINDEX=theINDEX+1

for i=1 to theINDEX
showINDEX=""&"["&i&"]"&" "
document.write showINDEX
next
document.write "

"

if thePAGE=0 then thePAGE=theMAX
for i=1 to thePAGE
theNUM=i+thePAGE*(showINDEXPAGE()-1)
if theNum>theMAX then EXIT FOR
if theNUM"
else if theNum"
else
temp=""
end if
end if
document.write temp
if theSKIP0 then if i mod theSKIP = 0 then document.write "
"
next

document.write "

"
for i=1 to theINDEX
showINDEX=""&"["&i&"]"&" "
document.write showINDEX
next

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

另：
取得#后面的内容可以使用

replace(window.location.hash,"#","")

赞 (0)

相关推荐

  • Asp 解析 XML并分页显示源码

    Asp 解析 XML并分页显示源码

    Asp 解析 XML并分页显示,示例源码如下: 复制代码 代码如下: <!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>

  • asp.net 通用分页显示辅助类(改进版)

    asp.net 通用分页显示辅助类(改进版)

    闲暇时重新再看之前很多项目代码的时候,发现很多总是有那么点缺陷的代码,如芒刺入骨,令人心烦.挣扎良久,苦口婆心劝荐自己今后要争取把某些代码写的更易用更灵活更完善一些.比如在这篇已经提及到的通用客户端分页显示辅助类(AspNetPager),在大大小小项目中出现频率非常高,但是显然对分页形式的选择和样式的控制弱了点.虽然之前这个功能的实现都是按照实际项目的需求来实现的,对旧项目没有影响,但是这也不能成为该功能没有充分实现扩展性和通用性的理由,这点向来自傲的楼猪也不得不承认. 1.分页模式和样式扩展

  • asp.net 分页显示数据表的数据的代码

    实现代码如下: 复制代码 代码如下: using System; using System.Collections; using System.Configuration; using System.Data; using System.Linq; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using System.Web.UI.WebCo

  • ASP中实现分页显示的七种方法

    在微软的ASP编程体系中,ADO对象的建立,使得从网页访问数据库成为一件易事,特别是ADO的Recordset对象使得控制数据的输出显示更为方便.自由.而在Visual InterDev6.0(以下简称VI6.0)中,由于Script Object Model(以下简称SOM).Design-Time Control(以下简称DTC)以及Data Environment Object Model(以下简称DEOM)等对象模型的引入,使网页对数据库的访问设计显得更为方便. 因为主题方面的原因,关于

  • asp.net 文章内容分页显示的代码

    aspx: <%@ Page Language="C#" AutoEventWireup="true" CodeFile="ArticlePage.aspx.cs" Inherits="ArticlePage" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/

  • ASP Recordset 分页显示数据的方法(修正版)

    1．建立Recordset对象 复制代码 代码如下: Dim objMyRst Set objMyRst=Server.CreateObject("ADODB.Recordset") objMyRst.CursorLocation=adUseClientBatch '客户端可批量处理 objMyRst.CursorType=adOpenStatic'光标类型为静态类型 注意:Recordset对象不能用Set objMyRst=Connection.Excute strSQL的语句建立

  • asp长文章用分页符来分页显示

    需要注意的是 [ page ]需要删除中间的空格,因为与我们的后台分页重复,所以加了空格处理. 只是在文章添加时,在你想让它分页的地方加上分页符:"[ page ]"(当然这个符号你可以随便用,比如:[ page ].&&&.###.@@@--,只要它不会在文章要正常显示的地方出现就行了.) 我用了四个页面,输入页(index.asp).输入完成页(add.asp).文章列表页(view.asp).文章内容页(text.asp),前三个都是不用处理的页面,看下面

  • asp.net 文章分页显示实现代码

    复制代码 代码如下: protected void Page_Load(object sender, EventArgs e) { string str = "事情发生在5月14日晚上23:30分,廊坊师范学院1号楼宿舍发生了恶性打架杀人事件,因1号楼较为复杂,有体育生.英语学院.教育学院等学生住宿,当时情况较为混乱.被害者是一名10级接本的体育生(马上面临毕业)和一名11级教育学院的新生,双方产生 矛盾原因目前不明,当场造成2死1重伤,伤口刀刀致命.其中一人被凶手割断喉部大动脉,未经抢救,当场

  • 用vbs模拟的一个asp的分页显示功能

    刚做完1个项目,闲的无聊,想改改自己HomePage,但没有Asp权限,所以突发奇想,用vbs模拟了一个图片分页显示功能!由于写的是适合自己使用的功能,难免很多地方不是很完善!也请各位路过的提些意见,若有朋友正好想找类似的功能,或许可以帮助一下,另外,祝论坛的每一位朋友元旦快乐! 复制代码 代码如下: <script language=VBS> Function showINDEXPAGE()          JS=1          webPath=window.location    

  • 创建一个ASP通用分页类

    创建一个ASP通用分页类

    从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类.的确省事不少,但是通常的函数和类的做法都是就数据显示部分也封装了起来,每次为了达到自己需要的显求效果要去改动函数或者类的本身,所以使用起来也不是怎么方便,自己写的分页改起来已经够复杂了,更不要说别人的了. 所以趁昨天有空自

  • ASP.Net分页的分页导航实例

    Asp.Net分页可以设置分页的首页.上一页.下一页.尾页在前台显示的链接文本.这里只是提及简单功能,深入研究剖析其原理就更得心应手了. //containerId 导航的目标容器,建议使用span标签 //url 默认为XXX.XX?pagenum= //curPage 当前的页码 //maxSection 最大的分段数(一段里面最大的页数) //totalPage 总共的页数 function Navigate(containerId,url,curPage,maxSection, tota

  • ASP经典分页类

    ASP经典分页类  出处 '===================================================================== 'XDOWNPAGE   ASP版本 '版本   1.00 'Code by  zykj2000 'Email:   zykj_2000@163.net 'BBS:   http://bbs.513soft.net '本程序可以免费使用.修改,希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数

  • asp.net分页控件使用详解【附实例下载】

    asp.net分页控件使用详解【附实例下载】

    一.说明 AspNetPager.dll这个分页控件主要用于asp.net webform网站,现将整理代码如下 二.代码 1.首先在测试页面Default.aspx页面添加引用 <%@ Register Assembly="AspNetPager" Namespace="Wuqi.Webdiyer" TagPrefix="webdiyer" %> 2.写一个Repeater列表控件用于显示数据 <asp:Repeater ID

  • 一个ASP创建动态对象的工厂类（类似PHP的stdClass）

    最近整理ASP/VBScript代码,发现过去的一个ASP实现的MVC框架,可惜是个半成品,效率也成问题,不过发现里面有些我写的代码,感觉还稍稍可以拿出来见人,于是今天作此文以记之. 说是ASP,其实和VBScript也脱不了干系,VBScript语言传承于Visual Basic,VB的语法灵活度已经不尽如人意了,VBS作为其子集可想而知.神马反射.自省等先进的技术,微软在.NET中才引入.作为被抛弃的技术,也不奢望微软能够提供支持,于是顽固守旧的程序员只有绞尽脑汁的去模仿实现一些类似的功能.

  • 验证一个ASP.NET应用程序和页面的生命周期的实现代码

    验证一个ASP.NET应用程序和页面的生命周期的实现代码

    如果我们能更好地掌握这样一个过程,那么对单个ASP.NET Page的生命周期也能更好地了解: 下面介绍如何编写一个简单的ASP.NET 页面和一个简单的HttpModule,对MSDN里提到的ASP.NET的生命周期进行验证 1. 首先使用Visual Studio 2010建立一个空的ASP.NET网站 (ASP.NET 4.0) 2. 添加一个Default.aspx,添加三个ASP.NET控件,分别为TextBox,Button和Validator: 复制代码 代码如下: <form i

  • 创建第一个ASP.NET应用程序（第1节）

    创建第一个ASP.NET应用程序（第1节）

    这一节我们一起学习创建一个根据用户输入来显示相应的欢迎信息的页面,希望小伙伴们可以和我一起动手操作 学习内容: 第一步,创建ASP.NET程序 1.运行 Visual Studio 2008.在菜单栏中选择"文件" →"新建" →"项目"命令,在弹出的"新建项目"的对话框中,选择左侧的"其他项目类型"树形目录中的"Visual Studio 解决方案"选项,在右边"Visual

  • 如何编写一个ASP类

    前几天大佛写了"ASP设计模式",可能有些初学者或者刚刚接触ASP的朋友不一定完全看得明白,偶就整理了一下编写一个ASP类的方法,大部分是从网上找来的.希望对朋友们有帮助.  <ASP设计模式>(作者 我佛山人): dispbbs.asp?boardID=20&ID=247879 首先ASP的类是由事件和方法(它们就是构成类的成员了)构成的,如果大家还没有接触过,可以先看看下面的说明: 在 Class 块中,成员通过相应的声明语句被声明为 Private(私有成员,

  • 超级ASP大分页_我的类容我做主

    超级ASP大分页_我的类容我做主     选择自 AppleBBS 的 Blog   关键字   超级ASP大分页_我的类容我做主  出处   <%  '===================================================================  'ShowMorePage ASP版本  'Version HuangJM1.00  'Code by maomao  'Create Date 2004-09-28  'QQ:5144707  'http:

随机推荐