-
<
创建文件夹函数
CreateFolder（strfolder）功能的参数是相对路径
您要建立的文件夹是否已经存在
昏暗的strtestfolder，objfso
strtestfolder = Mappath（strfolder）服务器。
集objfso = CreateObject（脚本。FileSystemObject ）
检查文件夹是否存在
如果不objfso.folderexists（strtestfolder）然后
如果没有，则设置一个文件夹。
ObjFSO.CreateFolder（strtestfolder）
最后如果
集objfso =没有
端功能
删除文件夹
功能删除文件夹（strfolder）的参数是相对路径
strtestfolder = Mappath（strfolder）服务器。
集objfso = CreateObject（脚本。FileSystemObject ）
检查文件夹是否存在
如果objfso.folderexists（strtestfolder）然后
ObjFSO.DeleteFolder（strtestfolder）
最后如果
集objfso =没有
端功能
创建文本文件
该函数创建文本文件（FileURL，filecontent）的参数是相对路径，将内容写入文件
Set objFSO = Server.CreateObject (ｓｃｒｉｐｔing.FileSystemObject)
集的FOUT = objfso.createtextfile（server.mappath（FileURL））
fout.writeline filecontent
fout.close
集objfso =没有
端功能
删除文件（适合所有文件）
功能deltextfile（FileURL）的参数是相对路径
集objfso = CreateObject（脚本。FileSystemObject ）
FileURL = server.mappath（FileURL）
是否objfso.fileexists（FileURL）然后检查文件是否存在
objfso.deletefile（server.mappath（FileURL））
最后如果
集objfso =没有
端功能
创建图片文件并保存图片数据流
函数的Createimage（FileURL，内容）的参数是相对路径和文件的内容
集objstream = server.createobject（ADODB。流）创建ADODB。流对象，必须超过2.5的ADO
objstream。类型= 1以二进制模式打开
objstream。开放
objstream.write内容写入字符串缓冲区的内容
objstream.savetofile server.mappath（FileURL）、2'-写缓冲文件的内容
objstream密切（）关闭对象。
集objstream =没有
端功能
远程访问文件数据
功能gethttppage（URL）
下次继续出错
昏暗的HTTP
设置HTTP = server.createobject（微软。XMLHTTP ）
http.open
Http.send（）
如果HTTP。readyState <> 4
退出功能
最后如果
gethttppage = bytestobstr（http.responsebody，GB2312）
设置http
如果错误，数字＜0，然后
gethttppage =服务器获取文件内容的错误
呃。清晰
最后如果
端功能
函数的BytesToBstr（身体，CSET）
昏暗的objstream
集objstream = server.createobject（ADODB。流）
objstream类型= 1。
objstream模式= 3。
objstream。开放
objstream写体。
objstream位置= 0。
objstream类型= 2。
objstream字符集= CSET。
bytestobstr = objstream.readtext
objstream。关闭
集objstream =没有
端功能
获取图片数据流
功能getpic（URL）
下次继续出错
昏暗的HTTP
设置HTTP = server.createobject（MSXML2. XMLHTTP ）使用XMLHTTP方法获取图片的内容
http.open
Http.send（）
如果HTTP。readyState <> 4
退出功能
最后如果
getpic = http.responsebody
设置http
如果错误，数字＜0，然后
getpic =服务器获取文件内容的错误
呃。清晰
最后如果
端功能
打开文件（文本格式）
函数的使用（FileURL）的文件的相对路径
昏暗的文件名，所以，hndfile
文件名= FileURL
文件名= server.mappath（文件名）
集objfso = CreateObject（脚本。FileSystemObject ）
如果objfso.fileexists（文件名）然后
集hndfile = objfso.opentextfile（文件名）
使用= hndfile.readall
其他的
使用=文件读取错误
最后如果
集hndfile =没有
集objfso =没有
端功能
获取文件后缀名
功能getfileextname（文件名）
昏暗的POS
POS = instrrev（filename，，）
如果POS > 0然后
getfileextname =中（filename，POS机+ 1）
其他的
getfileextname =
最后如果
端功能
%>