ASP应用之FSO组件之文件操作大全
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
使用FSO写文件某一行的函数
'使用FSO写文件某一行的函数
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 = jo& #105;n(temparray,Chr(13)&Chr(10))
Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true)
f.Write tempcnt
End If
f.Close
Set f = Nothing
End Function
FSO替换指定文件的字符
Function FSOLineEdit(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
'Response.Write FSOLineEdit("test.txt","世界","明天是一个好天去")
使用FSO读取文件内容的函数
Function FSOFileRead(filename)
Dim objFSO,objCou
相关文档：
前几天在自己的笔记本上安装了OFFICE2007。今天做了一个百度友情链接检查的工具， 在连接ACCESS2007数据库的时候，使用的驱动代码为："provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") 。确发现提示：
Microsoft JET Database Engine 错误 ''80004005''
不可识别的数据库格式
但 ......
VBS里，超出Integer类型的取值范围，该类型的取值范围为-32,768 到 32,767 之间的整数。
出错的根源：
在ASP里，有时候为了仿止注入，所以在接收参数的时候直接使用Cint函数把接过来的参数转换为Integer（数字）类型，这就存在一个潜在问题，当页面接收的某个参数（Request("xxx")）超过取值范围时（可简单理解为5位数字� ......
最近帮别人处理下数据,发现添加数据时,就提示"ASP 不能更新。数据库或对象为只读。",从网上找了,也没有解决我的问题.
1、服务器的数据目录mdb文件所在的目录，是只读的
2、数据库在本地的权限，去只读权限，再上传
3、有可能你是从只读目录移动到可读目录的，所以一定不能这么用，先下到本地，再上传，可解决此类问 ......
Try
Dim Path As String = Server.MapPath("~/Download/") '文件路径
Path = Path & "file.txt" '文件的名称
......
