Asp文件操作函数集(2)_ASP教程

推荐：ASP使用FCKEditor的设置技巧
1、默认语言 打开fckconfig.js文件（相对FCKeditor文件夹，以下同），把自动检测语言改为不检测，把默认语言改为简体中文： 程序代码 FCKConfig.AutoDetectLanguage = false ; FCKConfig.DefaultLanguage = 'zh-cn' ; 2、字体列表 打开fckconfig.js文件，在字体列表中

return=false 
dim fstream,fileExt,stamp,i 
'得到文件后缀并转化为小写 
FileExt = LCase(GetFileExt(sFileName)) 
'如果文件后缀为 jpg,jpeg,bmp,gif,png 中的任一种 
'则执行真实图片判断 
If strInString(FileExt,"jpg|jpeg|bmp|gif|png")=true then 
Set fstream=Server.createobject("ADODB.Stream") 
fstream.Open 
fstream.Type=adTypeBinary 
fstream.LoadFromFile sFileName 
fstream.position=0 
select case LCase(FileExt) 
case "jpg","jpeg" 
stamp=fstream.read(2) 
for i=0 to 1 
If ascB(MidB(stamp,i+1,1))=jpg(i) then return=true else return=false 
next 
'http://www.cncms.com
case "gif" 
stamp=fstream.read(6) 
for i=0 to 5 
If ascB(MidB(stamp,i+1,1))=gif(i) then return=true else return=false 
next 
case "png" 
stamp=fstream.read(4) 
for i=0 to 3 
If ascB(MidB(stamp,i+1,1))=png(i) then return=true else return=false 
next 
case "bmp" 
stamp=fstream.read(2) 
for i=0 to 1 
If ascB(MidB(stamp,i+1,1))=bmp(i) then return=true else return=false 
next 
End select

fstream.Close 
Set fseteam=nothing 
If err.number<>0 then return = false 
else 
return = true 
End If 
IsImgFile = return 
End function 
'******************************************************* 
'作 用: 上传文件扩展名检测 
'函数名: CheckFileExt 
'参 数: sFileExt 上传文件夹的后缀 
'　　　  strExt　 允许或禁止上传文件夹的后缀,多个以"|"分隔 
'　　　  blnAllow 是允许还是禁止上传 strExt 中指定的后缀 
'返回值: 合法文件返回 True ,否则返回False 
'******************************************************* 
Function CheckFileExt(sFileExt,strExt,blnAllow) 
dim arrExt,return 
'= 禁止上传的文件列表 
'strExt = "EXE|JS|BAT|HTML|HTM|COM|ASP|ASA|DLL|php|jsp|CGI" 
sFileExt = UCase(sFileExt) 
strExt　 = UCase(strExt)　  
arrExt = split(strExt,"|") 
If blnAllow=true then　　　　 '只允许上传指定的文件 
return = false 
for i=0 to UBound(arrExt) 
If sFileExt=arrExt(i) then return=true 
next 
'response.write "Ext: "&sFileExt & " return: " & return & "　 " 
else　　　　　　　　　　　  '禁止上传指定的文件 
return = true 
for i=0 to UBound(arrExt) 
If sFileExt=arrExt(i) then return=false 
next 
End If 
CheckFileExt = return 
End Function 
'******************************************************* 
'作 用: 格式化显示文件大小 
'FileSize: 文件大小 
'******************************************************* 
Function FormatSize(FileSize) 
If FileSize<1024 then FormatSize = FileSize & " Byte" 
If FileSize/1024 <1024 And FileSize/1024 > 1 then 
FileSize = FileSize/1024 
FormatSize=round(FileSize*100)/100 & " KB" 
Elseif FileSize/(1024*1024) > 1 Then 
FileSize = FileSize/(1024*1024) 
FormatSize = round(FileSize*100)/100 & " MB" 
End If 
End function 
'******************************************************* 
'作用：下载文件。 
'函数名： DownFile(FileName) 
' FileName 
'******************************************************* 
Sub DownFile(FileName) 
fname = server.MapPath(fname) 
filename=split(fname,"\")

Set objAdoStream=Server.createObject("ADODB.Stream") 
objAdoStream.Type=1 
objAdoStream.open() 
objAdoStream.LoadFromFile(fname) 
strchar=objAdoStream.Read() 
fsize=objAdoStream.size 
objAdoStream.Close() 
Set objAdoStream=nothing

分享：asp版域名查询的数据库接口
% on error resume next PRivate d_exsit Dim Retrieval Dim Domain Dim TakenHTML Function GetURL(url) Set Retrieval = Server.CreateObject(Microsoft.xmlHTTP) With Retrieval .Open GET, url, False, , .Send GetURL = .ResponseText End With Set Retrieval = N