快速单层循环区块模板类(Fast ASP Template Class)

<%'转发或修改时,请务必保留注释说明.'            ____       __       '    ___     /   /     / /       '   |   |     /   /   / /   领   '   |   |      /   / / /         '   |   |       /  // /     星   '   |   | _     / //  /          '   |   || |   / / /   /    动   '   |   || |  / /   /   /        '   |   || | /_/     /___/  网   '   |   || |___                  '   |___||_____| www.lxasp.com   '                                '版权所有.使用时请联系告知原作者.'############################################################'* 名称: 快速单层循环区块模板类 ( Ver 2.0 )'* 说明: Fast/High Performance Single-level Blocks ASP Template Class'* 日期: 2007-4-23  状态: 就绪'############################################################Class clsLxxTPL    Private vrM1,vrM2  Private bkM1,bkM2,bkM3,bkN1,bkN2  Private bkM_1,bkM_2,bkM_3,bkN_1,bkN_2    Private gloTplBK,gloTplBK1,unTplBK,reTplBK,tplSubs  Private tplStore,tplStore1,curTpl,IngTpl,curBk,curBkL,bkNames,BlockCode,NoBlocked    Private Sub Class_Initialize()    tplStore=""    tplStore1=""    curTpl=""    IngTpl=""    curBk=""    curBkL=0        NoBlocked=True        Set reTplBK=New clsLxxTPLStrCat    Set unTplBK=New clsLxxTPLStrCat    Set bkNames=New clsLxxTPLStrCat    Set BlockCode=New clsLxxTPLStrCat        gloTplBK="tmp_"&RndGenerator(3)&"_"    gloTplBK1="res_"&RndGenerator(3)&"_"    '设置普通标签符号    vrM1="{="    vrM2="}"        '设置区块标签符号    bkM1="{%[ "    bkM2=" %}"    bkM3="{%] "    bkN1="{%["    bkN2="{%]"        bkM_1=Len(bkM1)    bkM_2=Len(bkM2)    bkM_3=Len(bkM3)    bkN_1=Len(bkN1)    bkN_2=Len(bkN2)      End Sub    Private Sub Class_Terminate()    On Error Resume Next    tplStore=""    tplStore1=""    curTpl=""    IngTpl=""    curBk=""    Execute unTplBK    Set reTplBK=Nothing    Set unTplBK=Nothing    Set bkNames=Nothing    Set BlockCode=Nothing  End Sub    'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  '模板文件加载、获取、处理过程  'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  Private Function RndGenerator(Length)    Dim i, tempS    tempS = "abcdefghijklmnopqrstuvwxyz"    RndGenerator = ""    For i = 1 To Length      Randomize      RndGenerator = RndGenerator & Mid(tempS, Int((Len(tempS) * Rnd) + 1), 1)    Next  End Function  Private Function MLine(src)    Dim s    s = src    s = Replace(s, """", """""")    s = Replace(s, vbCrLf, """ & vbCrLf & """)    s = Replace(s, vbCr, """ & vbCr & """)    s = Replace(s, vbLf, """ & vbLf & """)    s = Replace(s, vbTab, """ & vbTab & """)    MLine = """" & s & """"  End Function  Private Function FindBlock()    'TODO:第一次使用区块时才调用    On Error Resume Next        Dim i1, i2, i3    Dim s1, s2, l1, l2, b1, b2    Dim p,o,s    p=1    o=curTpl    s=curTpl    Do       i1 = InStr(p, s, bkM1)      If i1 > 0 Then        i1 = i1 + bkM_1        p = i1        i2 = InStr(i1, bkM2)        If i2 > 0 Then          l1 = i2 - i1                    If l1 >= 1 And l1 <= 20 Then                      s1 = Mid(s, i1, l1)                        b1 = i2 + bkM_2            p = b1            s2=bkM3 & s1 & bkM2            l2=Len(s2)            i3 = InStr(b1, s2)            If i3 > 0 Then              b2 = i3              i3 = i3 + l2              p = i3                            BlockCode()="Dim " & gloTplBK & s1 & vbCrLf & gloTplBK & s1 & "=" & MLine(Mid(s, b2 - b1)) & vbCrLf & "Dim " & gloTplBK1 & s1 & " : Set " & gloTplBK1 & s1 & "=New clsLxxTPLStrCat" & vbCrLf                            unTplBK()=gloTplBK & s1 & "=Empty: Set " & gloTplBK1 & s1 & "=Nothing"&vbCrLf              reTplBK()=gloTplBK1 & s1 & ".Reset"&vbCrLf                            bkNames()="curTpl=Replace(curTpl,""" & bkN1 & s1 & bkN2 & """," & gloTplBK1 & s1 & "() )" & vbCrLf                            o=Replace(o,Mid(s,(i1-bkM_1),(i3)-(i1-bkM_1)),bkN1 & s1 & bkN2 )                          End If                    End If                Else          l1 = 0        End If              End If    Loop While i1 > 0        ExecuteGlobal BlockCode()        curTpl=o    tplStore1=curTpl    IngTpl=curTpl        NoBlocked=False      End Function    Private Function GetFile(fn)    Dim FSO,ts    On Error Resume Next    Set FSO = Server.CreateObject("Scripting.FileSystemObject")    If Len(Trim(fn))>0 Then      If FSO.FileExists(Server.MapPath(fn)) Then        Set ts = FSO.OpenTextFile(Server.MapPath(fn))        GetFile=ts.ReadAll        ts.Close        Set ts = Nothing      Else        GetFile=Null      End If    Else      GetFile=Null    End If    Set FSO = Nothing  End Function  Private Function Init(s)        On Error Resume Next    Init=True    tplStore=s    tplSubs=Split(s,"<!--/*ExtraSubLevel*/-->")    tplStore1=tplSubs(0)    If Len(tplStore1)=0 Then Init=False:Exit Function    curTpl=tplStore1    IngTpl=curTpl    curBk=""    curBkL=0    NoBlocked=True      End Function    Public Function LoadFile(FilePath)    LoadFile=Init(GetFile(filepath))  End Function    Public Function LoadStr(tplContent)    LoadStr=True    If Len(tplContent)>0 Then      LoadStr=Init(tplContent)    Else      LoadStr=False    End If  End Function  Public Function Reset()    On Error Resume Next        Reset=True    If Len(tplStore1)=0 Then Reset=False:Exit Function    curTpl=tplStore1    IngTpl=curTpl    curBk=""    curBkL=0    NoBlocked=False    Execute reTplBK()      End Function    Public Function GetTemplate()    GetTemplate=tplStore  End Function  Public Function GetSub(idx)    On Error Resume Next    GetSub=""    GetSub=tplSubs(idx)  End Function  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA    '用于判断区块是否存在  Public Function Exists(Key)    If NoBlocked Then FindBlock    Exists=(InStr(1,bkN1 & Key & bkN2) > 0)  End Function    Public Function GetParam(pname,def)        Dim qs,p1,p2,pn,sf1,sf2,lf1,lf2        qs=tplStore        pn=""    GetParam=""        sf1="<!--" & pname & "="    lf1=Len(sf1)        sf2="-->"    lf2=Len(sf2)        p1=InStr(1,qs,1)    If p1>0 Then      p2=InStr(p1+lf1,sf2)      If p2>0 Then        pn=Mid(qs,p1+lf1,p2-(p1+lf1))      End If    End If        GetParam=pn    If Len(GetParam)=0 Then GetParam=def    If IsNumeric(pn) Then  GetParam=CInt(pn)      End Function  'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  '设置要替换的模板中的特殊标签·主要调用过程  'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  Public Sub Go(k)        On Error Resume Next    If NoBlocked Then FindBlock        Execute "IngTpl="&gloTplBK&k        If Err Then      IngTpl=curTpl      curBk=""      curBkL=0      Err.Clear    Else      curBk=k      curBkL=Len(k)    End If      End Sub  Public Property Let Tag(k, val)    If IsNull(val) Then val=""    If curBkL>0 Then      IngTpl = Replace(IngTpl, vrM1 & k & vrM2, val)    Else      curTpl = Replace(curTpl, val)    End If  End Property    '用于判断标签是否存在  Public Default Property Get Tag(k)    Tag = InStr(1,tplStore,vrM1 & k & vrM2)  End Property    Public Sub Add()    On Error Resume Next    If curBkL > 0 Then Execute gloTplBK1&curBk&"()=IngTpl"    IngTpl=""    curBk=""    curBkL=0  End Sub  '这个纯粹是上面属性的过程调用版  Public Sub Rep(b,ks,vs)        Dim i,u        On Error Resume Next    If NoBlocked Then FindBlock        Execute "IngTpl="&gloTplBK&b        If Err Then      IngTpl=curTpl      curBk=""      curBkL=0      Err.Clear    Else      curBk=b      curBkL=Len(b)    End If        u=UBound(ks)    If curBkL>0 Then      For i=0 To u        IngTpl = Replace(IngTpl, vrM1 & ks(i) & vrM2, vs(i))      Next    Else      For i=0 To u        curTpl = Replace(curTpl, vs(i))      Next    End If        Execute gloTplBK1&curBk&"()=IngTpl"    IngTpl=""    curBk=""    curBkL=0      End Sub  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA    'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  '生成输出处理完成后的结果  'VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV  Public Function GetOutput()    On Error Resume Next    If NoBlocked Then FindBlock    Execute bkNames()    GetOutput=curTpl  End Function    Public Function Text()    On Error Resume Next    If NoBlocked Then FindBlock    Execute bkNames()    Text=curTpl  End Function    Public Function HTML()    On Error Resume Next    If NoBlocked Then FindBlock    Execute bkNames()    HTML=curTpl  End Function    Public Sub Pump()    On Error Resume Next    If NoBlocked Then FindBlock    Execute bkNames()    Response.Write curTpl  End Sub  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  End ClassClass clsLxxTPLStrCat  Private aFStrings()  Private iFSPos,iFSLen,iFSIncr  Private Sub Class_Initialize()    Reset  End Sub  Private Sub Class_Terminate()    Erase aFStrings  End Sub  Public Property Let Item(ByRef sData)    If iFSPos > iFSLen Then      iFSLen = iFSPos + iFSIncr      ReDim Preserve aFStrings(iFSLen)    End If    aFStrings(iFSPos) = sData    iFSPos = iFSPos + 1  End Property  Public Default Property Get Item()    Item = Join(aFStrings, "")  End Property  Public Sub Reset()    iFSPos = 0    iFSIncr = 100    iFSLen = iFSIncr    ReDim aFStrings(iFSLen)  End SubEnd Class%>

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


文章浏览阅读903次。文章主要介绍了收益聚合器Beefy协议在币安智能链测试网网上的编译测试部署流程,以Pancake上的USDC-BUSD最新Curve版流动池的农场质押为例,详细介绍了完整的操作流程。_怎么在bsc网络上部署应用
文章浏览阅读952次。比特币的主要思路是,构建一个无中心、去信任的分布式记账系统。交易签名只能保证交易不是他人伪造的,却不能阻止交易的发起者自己进行多重交易,即交易的发起者将一个比特币同时转账给两个人,也就是所谓的双花。比特币应用的区块链场景也叫做公链,因为这个区块链对所有人都是公开的。除此之外,还有一种区块链应用场景,被称作联盟链。区块链的出现,使得低成本,去信任的跨组织合作成为可能,将重构组织间的关系,这个关系既包括企业间的关系,也包括政府和企业间的关系,还有政府部门间的关系。
文章浏览阅读2.5k次。虚拟人从最初的不温不火,到现在步入“出生高峰期”,元宇宙可以说是功不可没。此前,量子位发布了《虚拟数字人深度产业报告》,报告显示,到2030年我国虚拟数字人整体市场规模将达到2700亿元。其中,“身份型虚拟人”市场规模预计达到1750亿元,占主导地位,而“服务型虚拟人”总规模也将超过950亿元。得益于AI、VR/AR 等技术的发展,虚拟人的应用场景正在从传统的虚拟偶像等娱乐行业迈向更多元化的领域。_最喜欢的虚拟角色
文章浏览阅读1.3k次,点赞25次,收藏13次。通过调查和分析用户需求、兴趣和行为,你可以更好地定位你的目标受众,并在市场中找到你的定位。在设计你的Web3.0项目时,注重用户界面的友好性、交互流畅性和功能的创新性,以提供独特的用户体验。通过与有影响力的人或组织进行合作,推广你的Web3.0项目。通过与他们分享你的项目并抓住他们的推荐,可以迅速获得更多的关注度。通过优化你的网站和内容,将有助于提高你的排名,并增加有机流量。通过提供奖励激励计划,如空投、奖励机制等,激励用户参与你的Web3.0项目。的人或组织合作,可以增加你的项目的曝光度。
文章浏览阅读1.7k次。这个智能合约安全系列提供了一个广泛的列表,列出了在 Solidity 智能合约中容易反复出现的问题和漏洞。Solidity 中的安全问题可以归结为智能合约的行为方式不符合它们的意图。我们不可能对所有可能出错的事情做一个全面的列表。然而,正如传统的软件工程有常见的漏洞主题,如 SQL 注入、缓冲区超限和跨网站脚本,智能合约中也有反复出现的。_solidity安全漏洞
文章浏览阅读1.3k次。本文描述了比特币核心的编译与交互方法_编译比特币
文章浏览阅读884次。四水归堂,是中国建筑艺术中的一种独特形式。这种形式下,由四面房屋围出一个天井,房屋内侧坡向天井内倾斜,下雨时雨水会从东西南北四方流入天井,从而起到收集水源,防涝护屋的作用,寓意水聚天心,天人合一。在科技产业当中,很多时候我们需要学习古人的智慧与意蕴,尝试打通各个生态,聚四方之力为我所用,这样才能为最终用户带来最大化价值。随着数字化、智能化的发展,算力成为生产力的根基。在这一大背景下,算力需要贯通软..._超聚变csdn
文章浏览阅读1k次,点赞24次,收藏19次。云计算和区块链是当代科技领域两个备受关注的核心技术。本文将深入探讨云计算和区块链的发展历程,详细剖析其起初阶段的奠基、面临的问题、业务内容、当前研究方向、用到的技术、实际应用场景、未来发展趋势,并提供相关链接供读者深入了解。
文章浏览阅读1.5k次。融入对等网络的奥妙,了解集中式、全分布式和混合式对等网络的差异,以及区块链网络的结构与协议,让你跃入区块链的连结网络。揭开密码学的神秘面纱,探寻对称密码学、非对称密码学、哈希函数、数字签名等关键技术,让你了解信息安全的核心。解码共识算法的精髓,从理论到实践,从PoW、PoS到PBFT,让你深入了解区块链如何达成共识。探索智能合约的世界,从定义到生命周期,从执行引擎到开发与部署,带你进入无限可能的合约领域。了解令人惊叹的区块链世界,从概念到价值,从发展历程到政策法规,一篇章串联出区块链的精髓。
文章浏览阅读777次。8 月份,加密货币市场经历了明显的波动,比特币价格波动幅度较大。与此同时,NFT 市场出现大幅下跌,引发了人们对这一新兴行业未来发展趋势的担忧
文章浏览阅读8.8k次,点赞53次,收藏37次。近二十年来,我国信息科技发展日益成熟,出现的网络完全问题也是“百花齐放”。而元宇宙作为5G技术、AR/VR技术、云计算以及区块链等技术的组合体,其安全性指定会被人们所广泛关注。根据前面所讲,元宇宙融合了虚拟世界和现实世界,通过数据将现实世界的各种元素映射到数字化的虚拟世界中。所以没有数据,就等于没有元宇宙的一切;没有信息安全,元宇宙的社会生产、生活就不能正常有序地进行。所以足以可见数据安全、信息安全对元宇宙发展起到的重要作用!!_元宇宙 安全计算
文章浏览阅读1.4k次。最早使用历史 1991年采用 时间戳 追溯 数字文档,之后 2009年后创始人**中本聪** (satoshi nakamoto )日裔美国人,在设计比特币数字货币中将此理念写入应用程序中_web3.0学习
文章浏览阅读1.7k次。DeFi收益来源全面概述_drfi收益
文章浏览阅读941次,点赞17次,收藏21次。号外:教链内参1.28《从BTC现货ETF的近期数据看到的》隔夜BTC经历现货ETF通过后的情绪冷静,一度破位40k后又逐渐修复至42k上方。请珍惜42k的BTC吧。也许到下个周期,我们将不再有机会见到这个高度的BTC了。下面,让我们重温,42k的BTC,在过去四年穿越牛熊的过程中,带给我们的启迪吧。需要提醒的是,历史文字,自有历史局限性,回顾,也须带着批判性的目光阅读和审视。2021年2月8日,...
文章浏览阅读1.2k次,点赞23次,收藏21次。其实一开始我也是这么想的,但根据PoW算法机制,如果你的计算量不够大,是无法控制区块链的走向的,也就是说,即使你投入了大量的成本用于完成任务,也不能保证自己成功。例如,你持有100个币,总共持有了30天,那么,此时你的币龄就为3000,这个时候,如果你发现了一个PoS区块,那么你的币龄就会被减去一定的值,每减少365个币龄,将会从区块中获得0.05个币的利息(可理解为年利率5%),那么在这个案例中,利息=3000×5%/365=0.41个币。前面说过,谁的算力强,谁最先解决问题的概率就越大。
文章浏览阅读1.9k次。这里主要实现的部分继续下去,对 Blockchain 这个对象有一些修改,如果使用 TS 的话可能要修改对应的 interface,但是如果是 JS 的话就无所谓了。需要安装的依赖有:express现在的 express 已经不内置 body-parser,需要作为单独的依赖下载request不下载会报错,是使用 request-promise 所需要的依赖和已经 deprecated 了,具体 reference 可以参考。_js区块链
文章浏览阅读1k次,点赞19次,收藏19次。作者:Zach Pandl Grayscale编译:象牙山首席村民 碳链价值以太坊在2023年取得了丰厚的回报。但表现不如比特币以及其他一些智能合约公链代币。我们认为,这反映了今年比特币特有的积极因素以及以太坊链上活动的缓慢复苏。尽管以太坊的涨幅低于比特币,但从绝对值和风险调整值来看,今年以太坊的表现优于传统资产类别。以太坊不断增长的L2生态系统的发展可能会吸引新用户,并在2024年支撑以太币的...
文章浏览阅读908次,点赞20次,收藏20次。通证是以数字形式存在,代表的是一种权利、一种固有和内在的价值。徐教授告诉我:多年的职业经历,多年的为易货贸易的思考,认识到在处理贸易和经济领域的关系时,应以提高人民生活水平、保证社会成员充分就业、保证就业成员实际收入和有效需求的大幅稳定增长、实现世界资源的充分利用以及扩大货物的生产和交换为目的,期望通过达成互惠互利安排,实行公开、公平、公正的“三公原则”,开展国家与国家、企业与企业之间的易货贸易,规避因信用问题引起的各类风险,消除国际贸易中的歧视待遇,促进全球国家的经济发展,从而为实现上述目标做出贡献。
文章浏览阅读2.5k次。由于webase文档原因,查找起来比较局限,有时候想找一个api却又忘了在哪个模块的目录下,需要一步一步单独点,而利用文档自带的检索功能又因为查找文档全部信息,显得十分缓慢,所以整理了有关WeBASE的api列表但不可否认,现在只有列表,没有对应的页面跳转,文章目的也只是为了多了解webase的接口_webase私钥管理里获取
文章浏览阅读1.4k次,点赞28次,收藏21次。基于​openzeppelin来构建我们的NFT,并用一个例子来手把手的说明如何在opensea快速发布自己的NFT智能合约(ERC721)。