asp文件操作常用函数(from fisker)

原创 2007年09月12日 11:39:00
1, openDB
Access数据库连接
用法:openDB

2, closeDB
断开数据库连接
用法:closeDB

3, print
简化输出
用法:print "fisker"

4, endPrint
结束输出
用法:endPrint

5, ReadFile
使用adodb.stream读取文本文件
用法:ReadFile("fisker.txt")

6, SaveFile
保存文本文件
用法:SaveFile("I Love fisker. www.x2y2.com","fisker.txt")

7, FileExists
判断文件是否存在
用法:FileExists("i_love_fisker/yes_i_do.txt")

8, FolderExists
判断文件夹是否存在

9, CreateFolder
创建文件夹(今天特地写了下多级目录的创建)
用法:FolderExists("x2y2.com/fisker")

10, deleteFile
删除文件
用法:deleteFile("i_hate_fisker.txt")

11, deleteFolder
删除文件夹
用法:deleteFolder("i_hate_fisker/x2y2/com")


<%
Option Explicit        '强制对该文件中的所有变量进行显式声明
'-----------------------
'常用函数
'by fisker
'-----------------------
Dim conn,rs,i
Dim db:db="fisker.mdb"
'********************
'连接数据库
'********************
Sub openDB
    For i=0 To 4    '子目录下获得数据库地址,一般设置4足够了
        If FileExists(db) Then Exit For Else db="../"&db
    Next
    on error resume next
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
    set rs = Server.CreateObject("adodb.recordset")
End Sub
连sql数据库

//第一种写法:
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 

//第二种写法:(DSN连接)

MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3  // 3,3是修改、删除、增加开关!

//第三种写法:

MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own

'********************
'关闭数据库
'********************
Sub closeDB
    on error resume next
    set rs = nothing
    conn.close
    set conn = Nothing
End Sub

'********************
'简化输出
'********************
Sub print(outputString)
    Response.write outputString
End Sub

'********************
'结束输出
'********************
Sub endPrint
    Response.End
End Sub

'********************
'读取文件
'********************
Function ReadFile(fileName)
    If Not FileExists(fileName) Then ReadFile = "" : Exit Function
    on error resume next
    dim objStream,temphtml
    set objStream = Server.CreateObject("adodb.stream")
    objStream.Type = 2 '以本模式读取
    objStream.mode = 3
    objStream.charset = "utf-8"
    objStream.open
    objStream.loadfromfile server.MapPath(fileName)
    temphtml = objStream.readtext
    objStream.Close
    set objStream = Nothing
    if err>0 then 
        err.clear
        ReadFile = ""
    else
        ReadFile = temphtml
    end If
    set objStream = nothing    
end Function

'********************
'保存文件
'********************
Function SaveFile(writeString,fileName)
    on error resume Next
    dim objStream
    set objStream = Server.CreateObject("adodb.stream")
    objStream.Type = 2 '以本模式读取
    objStream.mode = 3
    objStream.charset = "utf-8"
    objStream.open

    objStream.WriteText writeString
    objStream.SaveToFile server.MapPath(fileName),2    
    objStream.flush
    objStream.Close
    if err>0 then 
        err.clear
        SaveFile = False
    else 
        SaveFile = True
    end if 
    set objStream = nothing
end Function

'********************
'文件是否存在
'********************
Function FileExists(fileName)
    on error resume Next
    dim objFso
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    If objFso.FileExists(Server.MapPath(fileName)) Then
        FileExists = True
    Else
        FileExists = False
    End If
    if err>0 then err.clear
    Set objFso = Nothing 
end Function

'********************
'文件夹是否存在
'********************
Function FolderExits(folderName)
    on error resume Next
    dim objFso
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    IF objFso.FolderExists(Server.MapPath(folderName)) Then
        FolderExits = True
    Else
        FolderExits = False
    End IF 
    if err>0 then err.clear
    Set objFso = Nothing
End Function

'********************
'创建文件夹
'********************
Function CreateFolder(folderName)
    If FolderExits(folderName) Then CreateFolder = True : Exit Function
    folderName=Replace(folderName,"/","/")
    on error resume Next
    dim objFso
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")

    If InStr(folderName,"/")>0 Then
        folderNames=Split(folderName,"/")
        folderLevel=UBound(folderNames)
        For nowLevel=0 To folderLevel
        If nowLevel=0 Then nowFolderName=folderNames(nowLevel) Else nowFolderName=nowFolderName&"/"&folderNames(nowLevel)
        If Not FolderExits(nowFolderName) Then objFso.CreateFolder(Server.Mappath(nowFolderName))
        If Not FolderExits(nowFolderName) Then CreateFolder = False : Exit Function
        Next
    Else
        objFso.CreateFolder(Server.Mappath(folderName))
    End If

    if err>0 then err.clear
    CreateFolder = FolderExits(folderName)
    Set objFso = Nothing
End function

'********************
'删除文件
'********************
Function deleteFile(fileName)
    If Not FileExists(fileName) Then deleteFile = True : Exit Function
    on error resume next 
    fileName = Server.MapPath(fileName)
    dim objFso
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    if objFso.FileExists(fileName) then 
        objFso.deleteFile fileName,true
    end if
    if err>0 then 
        err.clear
        deleteFile = True
    else 
        deleteFile = True
    end if 
    Set objFso = Nothing
end function 

'********************
'删除文件夹
'********************
function deleteFolder(folderName)
    If Not FolderExits(folderName) Then deleteFolder = True : Exit Function
    on error resume next 
    folderName = server.MapPath(folderName)
    dim objFso
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    if objFso.FolderExists(folderName) then 
    objFso.deletefolder folderName,true
    end if
    if err>0 then 
        err.clear
        deletefolder = 0
    else 
        deletefolder = 1
    end if 
    Set objFso = Nothing
End Function
%>



测试一下

<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta http-equiv="Content-Language" content="UTF-8" />
<%
'********************
'测试
'********************

If FileExists("test.txt") Then print "文件 <u>test.txt</u> 存在。<hr />" Else print "文件 <u>test.txt</u> 不存在。<hr />"
If deleteFile("test.txt") Then print "<u>test.txt</u>已经被删除。<hr />" Else print "删除<u>test.txt</u>时出错。<hr />"
If SaveFile("我是内容。","test.txt") Then print "已经将测试文本写入<u>test.txt</u>。<hr />" Else print "将测试文本写入<u>test.txt</u>时出错。测试终止<hr />":endprint
If ReadFile("test.txt")="" Then print "读取<u>test.txt</u>失败或者<u>test.txt</u>的内容为空。<hr />" Else print "<u>test.txt</u>中的文本内容:<u>"&ReadFile("test.txt")&"</u><hr />"
If FolderExits("1") Then print "<u>1</u>存在.<hr />" Else print "<u>1</u>不存在.<hr />"
If deleteFolder("1") Then print "<u>1</u>已经删除.<hr />" Else print "删除<u>1</u>失败.<hr />"
If CreateFolder("1") Then print "创建<u>1</u>存在.<hr />"
If CreateFolder("1/2/3/4/5/6") Then print "<u>1/2/3/4/5/6</u>已经创建.<hr />" Else print "创建<u>1/2/3/4/5/6</u>失败.<hr />"
If SaveFile(ReadFile("test.txt")&"2","1/2/3/4/5/6/new_test.txt") Then print "<u>1/2/3/4/5/6/new_test.txt</u>的内容:<u>"&ReadFile("1/2/3/4/5/6/new_test.txt")&"</u><hr />"
If deleteFile("1/2/3/4/5/6/new_test.txt") Then print "<u>1/2/3/4/5/6/new_test.txt</u>已经删除.<hr />" Else print "删除<u>1/2/3/4/5/6/new_test.txt</u>失败.<hr />"
If deleteFile("test.txt") Then print "<u>test.txt</u>已经删除.<hr />" Else print "删除<u>test.txt</u>失败.<hr />"
If deleteFolder("1") Then print "<u>1</u>已经删除.<hr />" Else print "删除<u>1</u>失败.<hr />"
openDB
closeDB
%>
 

相关文章推荐

ASP中最常用的22个FSO文件操作函数12-22

12.FSO返回文件夹目录空间大小Function GetFolderSize(FolderName)   ’//功能:取目录大小   ’//形参:目录名   ’//返回值:成功为目录大小,失败为-1...

常用C语言文件操作函数大全

  • 2016年09月05日 21:38
  • 63KB
  • 下载

常用C语言文件操作函数大全

  • 2014年09月22日 15:58
  • 66KB
  • 下载

c/c++ 文件操作相关的常用函数

文件操作相关的常用函数标签:c/c++ 删除文件 DeleteFileBOOL DeleteFile( LPCTSTR lpFileName // 文件名指针 );功能说明 删除一个存在的...

常用C语言文件操作函数大全.doc

  • 2015年07月04日 21:33
  • 74KB
  • 下载

ASP文件操作函数

  • 2007年08月11日 16:32
  • 1KB
  • 下载

PHP常用文件操作函数

使用心得,希望对有帮助 1. basename()返回路径的文件名部分 $path='C:\AppServ\www\test\test.php'; echo basename($path); /...
  • Dailoge
  • Dailoge
  • 2016年08月08日 11:59
  • 150

PHP常用的文件操作函数集锦

以下是个人总结的PHP文件操作函数。当然,这只是部分,还有很多,我没有列出来。 一 、解析路径: 1 获得文件名: basename(); 给出一个包含有指向一个文件的全路径的字符串,本函数返...

Delphi7文件操作常用函数一

1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);:给文件变量连接一个外部文件名。这里需要注...
  • kimifdw
  • kimifdw
  • 2013年02月21日 11:32
  • 6207
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp文件操作常用函数(from fisker)
举报原因:
原因补充:

(最多只允许输入30个字)