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文件操作(FSO)详解

ASP文件操作(FSO)详解 实例一:写入文件  语法  object.CreateTextFile([要建立的文件],[如存在,是否替代])  Set fs  ...
  • wkj001
  • wkj001
  • 2016年11月26日 11:08
  • 317

asp 中常用的文件处理函数

asp 中常用的文件处理函数 asp 中处理文件上传以及删除时常用的自定义函数 ''''''''''''''''''''''''''''''''''''''''''''''''...
  • u014739765
  • u014739765
  • 2014年04月23日 16:51
  • 254

Python OS 文件操作模块常用函数

我们经常会与文件和目录打交道,对于这些操作python提供了一个os模块,里面包含了很多操作文件和目录的函数。全部函数可以用help(os)或是dir(os)查看其用法。 常用的函数如下: ...
  • greenapple_shan
  • greenapple_shan
  • 2016年03月19日 22:47
  • 593

【文件/文件夹操作】php文件夹/文件目录操作函数

PHP中常见的文件夹操作以及文件操作函数
  • jiandanokok
  • jiandanokok
  • 2016年11月20日 13:07
  • 1354

linux 常用(二)常用文件操作命令

linux 常用命令(二)常用文件操作命令
  • xiaohai798
  • xiaohai798
  • 2015年08月01日 16:22
  • 911

ASP 的文件操作

.mydiv { position:relative; left:400px; top:-200px; } .read { position:relative; top=-40px; ...
  • yuanyunfeng3
  • yuanyunfeng3
  • 2014年11月23日 00:05
  • 227

对数据库操作的常用函数大全

using System;using System.Reflection;using System.Data;using System.Configuration;using HZAllview.Co...
  • cnLiou
  • cnLiou
  • 2013年06月15日 07:05
  • 1796

常用的一些文件操作函数

C语言中没有输入输出语句,所有的输入输出功能都用 ANSI C提供的一组标准库函数来实现。文件操作标准库函数有:      文件的打开操作 fopen 打开一个文件      文件的关闭操作 fclo...
  • u012692780
  • u012692780
  • 2015年08月07日 20:37
  • 137

opengl常用函数解释

1.glAccum–操作在多重缓冲区中进行; 2.glAlphaFunc–指定Alpha测试函数; 3.glBegin–开始操纵一组点进行画图; 4.glBitmap–再设备上画一指定属性的位图...
  • wcl0617
  • wcl0617
  • 2015年12月22日 15:48
  • 1131

对文件操作系列函数详解

个人最文件操作做了如下的总结:方法一:用fopen打开,然后用文件那一类操作函数(fopen,fclose,fsacnf,fprintf,fseek,fread,fwirte,fgets)来改变其中的...
  • qq_21792169
  • qq_21792169
  • 2016年05月17日 16:00
  • 4367
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp文件操作常用函数(from fisker)
举报原因:
原因补充:

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