首页 > 语言 > 关键词 > asp教程最新资讯 > 正文

ASP实现长文章自动分页的函数代码

2008-10-10 17:09 · 稿源:天极

以下是引用片段:
  Function c2u(myText)
  Dim i
  c2u = ""
  For i = 1 to Len(myText)
  c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";"
  Next
  End Function


以下是引用片段:
  Function cutStr(str,strlen)
  '去掉所有HTML标记
  Dim re
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern="<(.[^>]*)>"
  str=re.Replace(str,"")
  set re=Nothing
  Dim l,t,c,i
  l=Len(str)
  t=0
  For i=1 to l
  c=Abs(Asc(Mid(str,i,1)))
  If c>255 Then
  t=t+2
  Else
  t=t+1
  End If
  If t>=strlen Then
  cutStr=left(str,i)&"..."
  Exit For
  Else
  cutStr=str
  End If
  Next
  cutStr=Replace(cutStr,chr(10),"")
  cutStr=Replace(cutStr,chr(13),"")
  End Function


以下是引用片段:
  Function converttowide(str)
  Dim strlen
  Dim position
  Dim convertstr
  if isnull(str) then
  converttowide=str
  else
  position=1
  strlen=Len(str)
  For i=1 To strlen
  convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1)))+";"
  position=position+1
  Next
  converttowide=convertstr
  end if
  End Function

 


以下是引用片段:
  dim topicx,usernamex,addtimex,logtextx,ispassword
  '获取ID号
  articleid=request("articleid")
  '写执行语句
  strSQL = "select * from article where articleid="&articleid&""
  '接上面函数
  logtextx=cutStr(rs("content"),5000)
  '开始分页
  dim page,PageLength,CLength,PageCount,wen,a
  if Request("Page")<>"" then Page = CLng(Request("Page"))
  PageLength = 80
  CLength = Len(logtextx)
  PageCount = Int(Clength/PageLength) + 1
  if Page < 1 or IsNull(Page) Then Page = 1
  if Page > PageCount Then Page = PageCount
  if page=1 then
  a=1
  elseif page>1 then
  a=(Page-1)*PageLength
  end if
  wen=Mid(logtextx,a,PageLength)
  '判断
  if page="" or page=1 then
  '开始显示内容
  Response.write (c2u("内容:"))'www.w3sky.com
  end if
  Response.write (converttowide(wen))
  Response.write "<br/>"
  'Response.write (converttowide("本文字数:")) & CLength &"<br/>"
  Response.write (c2u("本文被分为")) & PageCount & (converttowide("页"))&" "&c2u("当前为"&Page&"页")&"< br/>"
  if PageCount >1 and page <> 1 then'www.w3sky.com
  Response.write "1 "
  end if
  dim j
  For j=Page+1 To Page+10
  if j <= PageCount-1 then
  Response.write ""&j&" "
  end if
  next
  if PageCount >1 and Page <> PageCount then
  Response.write "<a href="/"showarticle.asp?articleid="&articleid&"&Page="&PageCount&""">"&PageCount&"</a><br/>"
  End if
  '结束

  以上代码在WIN2000+IIS5、WIN2003+IIS6 上执行通过

  • 相关推荐
  • 大家在看
  • 疾速全自动锁体+10重安全防护,小米首款高端全自动智能锁预售开启

    9 月 22 日,小米全自动智能锁在小米商城/小米之家/小米有品/京东/天猫/苏宁 等平台开启预售,预售期间 100 元定金抵 200 元,到手价为 1699 元。据了解,这是小米推出的首款全自动智能门锁,采用疾速全自动锁体和直插式C级锁芯,搭载 10 重安全防护,实现“开锁即开门,又快又省心。”相比一般的智能锁,小米全自动智能锁具备五大核心优势:高端全自动,一触即开门 作为小米首款高端全自动智能锁,小米全自动智能锁能够实现一步开

  • 深入解析Lua脚本加密技术,给游戏代码加上“紧箍咒”

    不少安全专家表示,在互联网上失去对代码的控制,就像把银行的设计图交给抢劫犯一样。Lua是一种被广泛用于游戏开发中的计算机语言,方便开发者定制自己所需的功能。其中,红遍全球的《愤怒的小鸟》就是由Lua语言用Wax开发的。此外,梦幻西游、奇迹暖暖、开心消消乐、放置奇兵、最强蜗牛等手游也采用了Lua语言进行编写。近年来,Lua脚本在游戏行业长期流行,但Lua脚本泄露事件屡见不鲜,其安全性也引起关注。不法分子通过开私服、开

  • 北京自动驾驶出租车来了,百度自动驾驶出租车在北京上线

    自动驾驶汽车已经成为很多科技公司争相进军的新领域,就在10月11日,百度公司宣布百度自动驾驶出租车服务在北京全面开放,目前在北京的海淀、亦庄的自动驾驶出租车站点可以免费下单体验自动驾驶出租车。

  • 搜狗发布组件化代码解耦框架 极大降低组件化重构成本

    9 月 28 日,搜狗正式发布SogouModuleBus组件化解耦框架,为业界贡献新的组件化解决方案。同时,这款基于搜狗立体化架构思维诞生的组件化框架,将会进一步降低开发者的组件化重构成本。代码耦合,是指软件工程中不同模块和类之间的依赖关系。耦合度高,则代码之间的依赖度高,往往容易出现牵一发而动全身的被动局面。因此开发者们需要对高耦合度代码进行解耦,让业务模块之间的关联依赖降到最低。此次搜狗SogouModuleBus组件化框架

  • 微软已移除Windows 10中用于通话的相关代码:全面转战安卓

    对于微软来说,他们已经彻底放弃Windows Phone了。根据一些网友发现的情况看,通话相关的GUID随着2020年3月发布的预览版就已经删除了。对于那些不熟悉的人来说,全球唯一标识符(GUID)通常被

  • ​北京自动驾驶出租车来了

    昨日,百度官方宣布,北京自动驾驶出租车全面开放。活动地点为:海淀、亦庄,运营时段为:早 10 点至下午 4 点。去年 12 月,百度官方宣布Apollo 获得了北京市自动驾驶测试管理联席工作小组颁发首批 40 张自动驾驶载人测试牌照,成为国内首批在北京市展开自动驾驶载人测试的企业。

  • 黑客声称获取育碧尚未发布游戏《看门狗:军团》源代码

    育碧和Crytek(欧洲的电子游戏开发商)这两家当今最大的游戏公司数据遭泄露,原因是一个名为Egregor的勒索软件团伙在窃取了这家两家公司内部网络窃取的数据,并在暗网上公布。

  • 微软已移除Windows10中用于通话的相关代码,全面转战安卓

    对于微软来说,他们已经彻底放弃Windows Phone了。根据一些网友发现的情况看,通话相关的GUID随着 2020 年 3 月发布的预览版就已经删除了。对于那些不熟悉的人来说,全球唯一标识符(GUID)通常被开发人员和微软用于运行脚本或进程。

  • 全球第一条AI全自动化手机检测线 可自动识别3801款手机型号

    今天,回收宝官微发布全球第一条AI全自动化手机检测线。据了解,该产线拥有 24 项检测专利,能实现纯AI验机,不需要人工干预,且标准统一。

  • Adobe的“流体模式”可以用AI为移动设备自动重建PDF档案

    Adobe在iOS和Android版Acrobat Reader应用中推出“流体模式”(Liquid Mode)。这个模式通过Adobe的AI引擎Sensei来分析 PDF,并为移动设备自动重建。如果PDF文件支持,用户通过开启流体模式,对PDF中的字体大小和行距进行调节,AI还会检测内文结构,自动构建可跳转目录。这一模式并不会对原始文件造成影响,在退出这个模式后,文件将恢复至原始状态。Adobe Sensei 是一个可以应用于Adobe旗下各款

  • [图]微软发布两个紧急安全更新:修复远程代码执行漏洞

    今天微软发布了两个不定期的例外(Out-of-Band)安全更新,重点修复了WindowsCodecs库和VisualStudioCode应用中的安全问题。这两个例外安全更新是本月补丁星期二活动日之后再发布的,主要修复了两款产品中的“远程代码执行”漏洞,能够让攻击者在受影响的设备上远程执行代码。

  • 苹果笑而不语:源代码泄露显示 微软秘密打造酷似Mac的WinXP主题

    泄露的源代码展示了微软当初打造Windows XP更多趣事,比如他们曾秘密准备了一个版本,让该操作系统看起来更接近于 Mac。最近泄漏的Windows XP源代码泄漏了微软在操作系统上的早期工作,其中一

  • 开发人员现可在Windows上构建和运行Swift代码项目

    苹果的Swift编程语言本周正式登陆Windows,现在可以从开源项目下载Swift工具链图片。

  • 百度:北京自动驾驶出租车全面开放

    昨日,百度官方宣布,北京自动驾驶出租车全面开放。参与约车体验的用户在乘车后可获得礼品一份。值得一提的是,前100名用户还将获得限量款自动驾驶体验官荣誉证书一份。活动为期四周,每周一个惊喜主题礼品。

  • 知乎上线视频创作工具 图文可自动生成视频

    10月9日消息,近日,知乎上线了视频创作工具。该工具可通过用户提供的文字材料,自动配以与内容相对应的图片和动图,形成视频。同时,该工具具备一键配音功能,可根据文字内容进行配音,并自动校准。视频答主在知乎内容创作群体中的比重不断加大,视频创作需求日益增加。同时,新兴的“解说类”视频形式广受欢迎,且更契合大多知乎用户的视频制作形式。相对传统的视频形式,“解说类”视频不再以视频画面为主,而是以?

  • 特斯拉将为完全自动驾驶选购包加入鸟瞰停车视角

    今天早些时候,马斯克向一位特斯拉车主证实,他们的完全自动驾驶(FSD)选购包未来将会加入鸟瞰停车视角。目前,马斯克暂未透露该功能的具体细节,按照市面上已有的类似功能推测,特斯拉预计将利用车辆上的相机摄到的影像来模拟生成出周围的停车空间。

  • 孕妇必备!这款全自动扫地机充当你的清洁小管家

    现在的家庭中一般是由女性承包家里的家务活,怀孕之后,有时候老公太忙没时间做家务,只能自己亲自上阵了。孕妈适当的做一些轻松的家务是没问题的,但有时像拖地扫地这种需要弯腰、提重物、接触化学洗剂等家务是不能做的,会对肚子里的宝宝有损伤。那么怀孕后,如果老公不在的话,家务到底该怎么办呢?科沃斯最近上市了一款能扫地、吸尘、拖地,还能自己倒垃圾,甚至还不用洗抹布的全自动扫地机器人,能解决每日的清扫、拖地,为你?

  • iOS 14.2测试版亮相 代码显示买iPhone你要小心没配件

    ​9 月 30 日凌晨,苹果公司向用户和开发者们推送了iOS 14.2测试版系统,该版本除了改进一些Bug之外,似乎没有增加什么功能和新的特性。但是,iOS 14. 2 测试版中出现的一小段代码引起了大家的注意,这段代码或暗示了苹果以后不会在iPhoen包装中赠送EarPods耳机。

  • 执掌百度20年 李彦宏没为产品写过一行代码

    百度迎来创业二十年,官方纪录片《二十度》(点击观看)也正式上线。影像资料中介绍了一些不为人知的百度幕后故事,比如百度集团资深副总裁崔珊珊爆料,李彦宏是百度第一版的产品经理,但没有

  • 微软为Win10准备新功能:每日自动更新网络壁纸

    微软的Bing必应搜索,每日都会更新精选背景壁纸,范围包括名山大川、动物人文、抽象艺术等。甚至,一些爱好者还制作了抓取软件,使得每日桌面壁纸能同步Bing的背景板。实际上,在Win10的个性

  • 参与评论
文明上网理性发言,请遵守新闻评论服务协议
  • 热门标签