- 浏览: 387646 次
- 性别:
- 来自: 广州
文章分类
最新评论
-
July01:
最近了解到一款StratoIO打印控件,功能如下:1、Html ...
只打印网页上JS指定的区域 -
qjw9004:
收下以后有空再看,朋友最好是将所有文件打包上传,好上我这些初 ...
在ASP中将从数据库中获取的数据写入已设计好的EXCEL模板中 -
fiction:
不错呀,总结得很好.......
代表广大学习人民,谢谢您 ...
PHP常用代码大全 -
shuxiang:
弃暗投明,呵呵~~
2010年开始研究PHP
'**************************************************
'函数名:FSOFileRead
'作 用:使用FSO读取文件内容的函数
'参 数:filename ----文件名称
'返回值:文件内容
'**************************************************
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
'**************************************************
'函数名:FSOlinedit
'作 用:使用FSO读取文件某一行的函数
'参 数:filename ----文件名称
' lineNum ----行数
'返回值:文件该行内容
'**************************************************
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function
'**************************************************
'函数名:FSOlinewrite
'作 用:使用FSO写文件某一行的函数
'参 数:filename ----文件名称
' lineNum ----行数
' Linecontent ----内容
'返回值:无
'**************************************************
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function
发表评论
-
ASP这钟连接ACCESS数据库,需在IIS应用池中开启32位
2020-04-10 21:33 282On Error Resume Next Set conn ... -
ASP调用W3JMail发送电子邮件
2015-04-18 09:10 862<% response.Charset=" ... -
用ASP代码解决跨域访问微信企业号接口的问题
2015-03-25 11:59 2811研究了好几天也没研究出用AJAX跨域访问微信企业号接 ... -
在WIN2008R2中注册VB6编译的32位DLL并让ASP成功调用
2013-09-11 22:41 42901、把hbwlAspDll.dll复制到C:\Windows ... -
在ASP中用replace只替换一次的写法
2013-09-04 17:24 2153格式:Replace("原字符",&qu ... -
随机从ACCESS数据库中抽取N条记录的SQL语句
2013-08-17 16:36 851Randomize sql="select t ... -
用回溯算法实现从题库中随机抽取一题或多题组成规定分数的试卷
2013-05-17 11:11 1130<%@LANGUAGE="VBSCRIPT ... -
在ASP中如何获取SQL新增ID
2012-12-09 22:04 2667conn.Execute("insert into ... -
在Netbox中防止乱码的方法
2012-11-28 09:35 1188只需在页面的第一行加上如下代码就行了 <%Respon ... -
用VBS实现JS的escape和unescape功能
2012-08-20 21:16 1381Function vbsEscape(str) dim ... -
Ajax跨域代理访问网络资源
2012-07-08 00:22 1086解决Ajax跨域访问报“没有权限”的错误。代码下载地址: h ... -
Jmail发邮件代码
2012-07-08 00:07 955按照下面的说明调用SendMail函数! Jmail 4.4. ... -
用upload_5xsoft上传中文文件名乱码的解决方式
2012-02-11 17:48 1931查找upload_5xsoft.inc文件 tStream.C ... -
ASP调用服务器端EXE程序编译运行PAS程序的代码
2011-12-01 09:45 2261程序编译的参照代码: FilePath=UploadPath ... -
ASP创建真正的EXCEL文件
2011-09-30 11:38 1742<% on error resume next Di ... -
Server.CreateObject("Excel.Application")的权限问题
2011-09-30 11:37 3151由于ASP功能的限制,在使用的时候,常常要用到让ASP去调用一 ... -
ASP连接数据库的11种方法
2011-09-30 10:54 10501.Access数据库的DSN-less连接方法:set ad ... -
ASP读取TXT
2011-09-21 23:45 1358<% dim ss(20) set fs=serve ... -
采集他人网站新闻的ASP代码
2011-03-03 23:59 1275下面的代码是采集人民网基础教育的前10条新闻 <%@L ... -
在ASP中解决相同cookies变量名的最简单方法
2010-10-09 21:18 1164在一个网站中,若每页都使用了同一个cookies变量名,而又不 ...
相关推荐
DataGrid导出EXCEL的几个方法(WebControl).txt DataGrid的打印预览和打印.txt GridView排序.txt GRID控件删除之前确认.txt javascript小技巧.doc MVC在Web系统中的模式与应用.doc NET中各种数据库连接大全.doc ...
90.如何用ASP读取Excel文件 91.怎样将数据从Excel导入到SQL Server中 92.怎样将数据从Access导入到SQL Server中 94.如何对Access数据库进行压缩 96.如何使用ASP实现Web数据统计和报表 97.如何在查询结果中搜索 第6...
以前说到BUTTON控件CausesValidation=true/false来设置按钮提交的表单是不是被检验也就是这里的几个检验控件,如果CausesValidation=true的话按下按钮就会首先检测是不是都通过了检验控件的检验。 下面再说两点: ...
可以节省服务器资源,一般采集程序就几个文件,所有网页内容都是来自其他网站。缺点有:不稳定,如果目标网站出错,程序也会出错,而且,如果目标网站进行升级维护,那么采集程序也要进行相应修改;速度,因为是远程...
使用.ashx文件处理IHttpHandler实现发送文本及二进制数据的方法 制作一个简单的多页Tab功能 一完美的关于请求的目录不存在而需要url重写的解决方案! 在C#中实现MSN消息框的功能 XmlHttp实现无刷新三联动ListBox 鼠标...
Java读写文本文件的示例代码 1个目标文件。 java俄罗斯方块 一个目标文件。 Java非对称加密源码实例 1个目标文件 摘要:Java源码,算法相关,非对称加密 Java非对称加密源程序代码实例,本例中使用RSA加密技术,...
可以节省服务器资源,一般采集程序就几个文件,所有网页内容都是来自其他网站。缺点有:不稳定,如果目标网站出错,程序也会出错,而且,如果目标网站进行升级维护,那么采集程序也要进行相应修改;速度,因为是远程...
Java读写文本文件的示例代码 1个目标文件。 java俄罗斯方块 一个目标文件。 Java非对称加密源码实例 1个目标文件 摘要:Java源码,算法相关,非对称加密 Java非对称加密源程序代码实例,本例中使用RSA加密技术,...
我们必须用JavaScript调用ASP.NET服务器端函数,利用得到的数据来绘制Google Map。简单吧?其实,对于我来说并非如此。因此,我决定开发一个用户控件来处理JavaScript代码,这样,我就能集中精力于服务器端函数了。...
委托可以理解为指向一个函数的引用。 是,是一种特殊的委托 5.override与重载的区别 答 : override 与重载的区别。重载是方法的名称相同。参数或参数类型不同,进行多次重载以适应不同的需要 Override 是进行...
ASP.NET常用代码 1. 打开新的窗口并传送参数: 传送参数: response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"')</script>") 接收参数: string a = Request....
4.生成的缓存文件加入和%>字符的编码,防止因配置内容含asp代码而造成程序出错 5.读取文件加入对0字节文件的错误判断处理 2013年01月11日 V2.7升级包 ★更新方式:admin文件夹改成你后台目录名,然后补丁包里的...
生成HTML方法主要步骤只有两个: 一、获取要生成的html文件的内容 二、将获取的html文件内容保存为html文件 我在这里主要说明的只是第一步:如何获取要生成的html文件的内容: 目前常用获取html文件的内容的方法...
103 <br>0167 锁定文本框内的文本 103 <br>0168 使用Message.Show输出用户信息 104 <br>5.3 图片数据处理技巧 104 <br>0169 如何将图片存入数据库 104 <br>0170 如何将图片从数据库中读取...
演示了OpenG的使用方法,内含几个实例,一个实例就3个文件。 p2p vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求...
9.2.6 读取文本文件 371 9.2.7 读写二进制文件 372 9.2.8 文件复制、移动、删除 374 9.3 文件夹目录操作 375 9.4 读写INI文件 376 9.5 读写注册表 379 本章常见技术面试题 381 常见面试技巧之经典问题巧回答 381 本...
9.2.6 读取文本文件 371 9.2.7 读写二进制文件 372 9.2.8 文件复制、移动、删除 374 9.3 文件夹目录操作 375 9.4 读写INI文件 376 9.5 读写注册表 379 本章常见技术面试题 381 常见面试技巧之经典问题巧回答 381 本...