当前位置: 首页 > news >正文

民治网站建设昆山高端网站建设机构

民治网站建设,昆山高端网站建设机构,南京网站建设外贸,室内设计师联盟首页这两天有好几个老的ASP网站要改#xff0c;其中有要求加记数器#xff0c;为图简单#xff0c;就用文本文件的形式存储记数。以前用ifream的形式嵌入#xff0c;不能很好的控制记数器显示的风格#xff0c;现在改进了一下#xff0c;可以很好的与嵌入板块风格结合了。把做…      这两天有好几个老的ASP网站要改其中有要求加记数器为图简单就用文本文件的形式存储记数。以前用ifream的形式嵌入不能很好的控制记数器显示的风格现在改进了一下可以很好的与嵌入板块风格结合了。把做的分享一下 一、需要有三个文件 1、Global.asa      全局应用程序文件执行Application_Start、Session_Start事件 2、GetCount.asp      读取当前记录 3、Count.txt      存储访问数 二、代码 1、Global.asa  1SCRIPT LANGUAGEVBScript RUNATServer 2SUB Application_OnStart 3On Error Resume Next 4SFilePathServer.MapPath(Count.txt)  假设计数器文件在根目录下的Count目录中文件名为Count.txt 5Set oFSOServer.CreateObject(Scripting.FileSystemObject) 6IF not oFSO.FileExists(sFilePath) THEN 7    oFileoFSO.CreateTextFile(sFilePath,true)  如果文件不存在则创建一个文件 8    oFile.Write(1) 9    oFile.close10     Application(TotalCount)111ELSE12    Set oFile  oFSO.OpenTextFile(sFilePath) 13    NCountOFile.ReadLine14    Application(TotalCount)Clng(nCount)115    oFile.close16    Set oFileoFSO.OpenTextFile(sFilePath,2)17    oFile.Write(Application(TotalCount))18    oFile.close19End IF20err.clear21END SUB22/SCRIPT2324SCRIPT LANGUAGEVBScript RUNATServer25SUB Application_OnEnd26END SUB27/SCRIPT2829SCRIPT LANGUAGEVBScript RUNATServer30SUB Session_OnStart31On Error Resume Next32SFilePathServer.MapPath(Count.txt)  假设计数器文件在根目录下的Count目录中文件名为Count.txt33Set oFSOServer.CreateObject(Scripting.FileSystemObject)34IF  Application(TotalCount)0 or Application(TotalCount) THEN35如果第一次运行网站比如重启后我们就需要从文件中读取出以前的计数值36    IF not oFSO.FileExists(sFilePath) THEN37        oFileoFSO.CreateTextFile(sFilePath,true)  如果文件不存在则创建一个文件38        oFile.Write(1)39        oFile.close40         Application(TotalCount)141    ELSE42        Set oFile  oFSO.OpenTextFile(sFilePath) 43        NCountOFile.ReadLine44        Application(TotalCount)Clng(nCount)145        oFile.close46        Set oFileoFSO.OpenTextFile(sFilePath,2)47        oFile.Write(Application(TotalCount))48        oFile.close49    End IF50ELSE51    Application(TotalCount) Application(TotalCount)152    IF not oFSO.FileExists(sFilePath) THEN53        oFileoFSO.CreateTextFile(sFilePath,true)  如果文件不存在则创建一个文件54        oFile.Write(Application(TotalCount))55        oFile.close56    ELSE57        Set oFileoFSO.OpenTextFile(sFilePath,2)58        oFile.Write(Application(TotalCount))59        oFile.close60    End IF61End IF62err.clear63End Sub64/SCRIPT6566SCRIPT LANGUAGEVBScript RUNATServer67SUB Session_OnEnd68END SUB69/SCRIPT   2、GetCount.asp 1%document.write(  Application(TotalCount)  )%   3、需要显示计数器的地方加入HTML也可以 1script typetext/javascript src../GetCount.asp/script       转载于:https://www.cnblogs.com/jcjks/archive/2009/05/11/1453997.html
http://www.sadfv.cn/news/333225/

相关文章:

  • 手机网站排名优化软件找人做网页要多少钱
  • 素材网站模板申请一个网站需要怎么做
  • 韩国手机网站模板在百度上做个网站多少合适
  • 做字典网站开发微信开发网站制作
  • 延安网站开发做360网站首页软件
  • 动易网站 价格互联网黄页广告
  • 网站可以跟博客做互链吗展会网站怎么做
  • 免费的网站模板有哪些做网站和编程
  • 第三方做农产品价格数据的网站优化防控举措
  • 顺德网站制作案例平台思特奇是外包公司吗
  • 做手机网站要多少钱合购WordPress
  • 公司换网站换域名 备案新冠咳嗽有痰怎么办
  • 做报名统计的网站做网站能赚钱吗 知乎
  • 石家庄住房城乡建设网站学做网站是什么
  • 建筑人才招聘哪个网站最好东莞网站设计建设有限公司
  • 视频网站 外链网站不足
  • 腾讯云建站wordpress刷新缓存
  • 网络推广员工作好做吗廊坊seo计费管理
  • 济南电子商务网站开发做网站网站建设
  • 做拍卖的网站做任务能赚钱的网站有哪些
  • 中国建设信用卡网站介绍自己的做的网站
  • 邯山专业做网站网站泛目录怎么做
  • 做外贸一般去什么网站找客户郑州网站设计培训
  • php网站开发实做网站买一个域名多少钱
  • discuz网站名称乔拓云h5制作
  • 整站优化与关键词排名建设一个网站需要注意哪些内容
  • 巴中 网站建设制作团购网站
  • 外包网站有哪些c 网站开发 视频教程
  • 黑色背景的网站开发工具学校网站建设方案策划书
  • 用asp.net做电商网站先做网站再付款 怎么回答