首页 > 其他分享 >读写文本文件

读写文本文件

时间:2024-02-20 15:57:11浏览次数:22  
标签:count Set 读写 文本文件 Nothing oFSO

<%
Const fileName = "counter.txt"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim oFSO, oFile, sFileContent

filePath=Server.MapPath(fileName)
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
If Not oFSO.FileExists(filePath) Then
    oFSO.CreateTextFile filePath,True,True
    Set oFile=oFSO.OpenTextFile(filePath,ForWriting)
    oFile.Write 0
    oFile.Close()
    Set oFile=Nothing
End If

Set oFile=oFSO.OpenTextFile(filePath,ForReading)
count=oFile.ReadLine
oFile.Close()
Set oFile=Nothing

If (IsNull(count) or IsEmpty(count)) Then
    count=0
Else
    count=count+1
    Application.Lock '利用Application特性防止并发写入
    Set oFile=oFSO.OpenTextFile(filePath,ForWriting)
    oFile.Write count
    oFile.Close()
    Set oFile = Nothing
    Application.UnLock
End If
response.write "<div style='text-align: center; font-size: 50px;'>已随机访问【"&count&"】次</div>"
Set oFSO = Nothing
%>

 

标签:count,Set,读写,文本文件,Nothing,oFSO
From: https://www.cnblogs.com/jnmcok/p/18023292

相关文章

  • 文件读写
    1.文件读写操作(重点)1.回顾C语言的文件读写1.按照字符读写文件fgetc、fputcintfputc(intch,FILE*stream);//写intfgetc(FILE*stream);//读2.按照行读写文件fgets、fputs//可bit读写intfputs(constchar*str,FILE*stream);//写char*fgets(char*str,int......
  • 分布式下的数据拆分,读写分离,分库分离相关问题
    一、为什么要用分库分表当不使用分库分表的情况下,系统的性能瓶颈主要体现在:当面临高并发场景的时候,为了避免Mysql崩溃(MySql性能一般的服务器建议2000/s读写并发以下),只能使用消息队列来削峰。受制于单机限制。数据库磁盘容量吃紧。数据库单表数据量太大,sql越跑越慢而分库分......
  • mysql 一主一从 读写分离
    schema.xml配置  主从balance策略 读写分离首先需要配置主从复制 ,主从复制请查看  主库备库需要创建 itcast数据库 目前读写分离是使用的mycat 需要配置 /usr/local/mycat/conf/schema.xml (注意格式缩进)<?xmlversion="1.0"?><!DOCTYPEmycat:sch......
  • 7.读写配置文件和添加缓存
    感觉没什么好总结的,直接上代码吧:配置文件:1添加一个枚举///<summary>///配置键名///</summary>publicenumConfigKey{///<summary>///系统配置///</summary>SystemConfig,///<summary>......
  • Etcd读写性能测试
    单节点etcd集群,etcd版本是3.4.9。编译etcdbenchmarkgitclonehttps://github.com/etcd-io/etcd.gitcdetcd/gitcheckoutv3.4.9rm-rfvendorgoinstall-v./tools/benchmarkgolist-f"{{.Target}}"./tools/benchmark写入测试KeyENDPOINTS=https://192.168.3.14:2......
  • C++之INI配置文件读写/注释库 inicpp 介绍【简单易用-包含inicpp.hpp头文件即可】
    一个头文件(header-file-only)搞定INI文件读写、甚至进行注释。跨平台,并且用法极其简单。MITlicense,从此配置INI文件就像喝水。【注:对您有帮助的话,Star或Issues为项目维护提供动力,感谢。】-byofficalofJN-inicppproject.一、库下载https://github.com/dujingning/inicpp......
  • Golang 向已关闭的chan读写数据会怎样
    1.向已关闭的chan写会直接panic,报sendtoclosechannel错误packagemainfuncmain(){ //创建缓冲区为4的字符串chan schoolChan:=make(chanstring,4) //放入3个值 schoolChan<-"国防科大" schoolChan<-"北京大学" schoolChan<-"湖南大学" //......
  • linux c++读写ini文件,不是用boost
    摘自:https://linuxcpp.0voice.com/?id=65276可以使用标准库中的fstream和string类来读写ini文件。以下是一个示例代码:#include<iostream>#include<fstream>#include<sstream>#include<map>usingnamespacestd;//解析ini文件,返回一个键值对的mapmap<string,string......
  • STM32CubeMX教程29 USB_HOST - 使用FatFs文件系统读写U盘
    1、准备材料正点原子stm32f407探索者开发板V2.4STM32CubeMX软件(Version6.10.0)keilµVision5IDE(MDK-Arm)ST-LINK/V2驱动野火DAP仿真器XCOMV2.6串口助手2、实验目标使用STM32CubeMX软件配置STM32F407开发板USB_OTG_FS为工作在MassStorageHostClass(大容量存储主机类)模......
  • 【Qt】Qt-文本文件读写
     读取文本文件(编码UTF8)QStringfilename="";QFilefile(filename);if(!file.open(QIODevice::Text|QIODevice::ReadOnly)){  log("Openfilefailed!");  return;}QTextStreamin(&file);in.setCodec("UTF-8");QStringline=in.re......