推薦：ASP使用FCKEditor的設置技巧1、默認語言打開fckconfig.js文件（相對FCKeditor文件夾，以下同），把自動檢測語言改為不檢測，把默認語言改為簡體中文： 程序代碼FCKConfig.AutoDetectLanguage = false ; FCKConfig.DefaultLanguage = 'zh-cn' ; 2、字體列表打開fckconfig.js文件，在字體列表中
<% '===============asp 文件操作函數集1.0版本=========================
' 整理作者： 張輝
' 程序員代號：WJ008
' 整理時間：2008年6 月1 日
' 關注地址：www.wj008.net
' 所有函數使用的文件地址全部使用絕對地址
'====================================================================
'LoadFile(ByVal File) 加載已經有的文件，並把文件的內容生成一個字符串返回
'SaveToFile(ByVal strBody,ByVal File) 把更改的文件保存，strBody為新的字符串
'DelFile(ByVal File) 刪除已有的文件
'加載已經有的文件，File為文件路徑
'-------------------------------------------------------------------
Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject(ADODB.Stream)
If Err.Number=-2147221005 Then
Response.Write 非常遺憾,您的主機不支持ADODB.Stream,不能使用本程序
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile File
If Err.Number<>0 Then
Response.Write 文件&File&無法被打開，請檢查是否存在!
Err.Clear
Response.End
End If
.Charset = GB2312
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function
'-------------------------------------------------------------------
Function SaveToFile(ByVal strBody,ByVal File) '保存打開的文件，File為保存的文件路徑，strBody為保存的內容
Dim objStream
On Error Resume Next
Set objStream = Server.CreateObject(ADODB.Stream)
If Err.Number=-2147221005 Then
Response.Write <div align='center'>非常遺憾,您的主機不支持ADODB.Stream,不能使用本程序</div>
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Open
.Charset = GB2312
.Position = objStream.Size
.WriteText = strBody
.SaveToFile File,2
.Close
End With
Set objStream = Nothing
End Function
'-------------------------------------------------------------------
Function DelFile(ByVal File)
Dim objFilesys
On Error Resume Next
Set objFilesys=server.createobject(scripting.filesystemobject)
If objFilesys.FILEExists(File) then '如果文件存在著刪除它FILE為文件路徑
objFilesys.deleteFILE File
End if
If Err.Number<>0 Then
Response.Write 文件&File&無法被刪除，可能文件正在被系統使用中!
Err.Clear
Response.End
End If
Set objFilesys=nothing
End Function
'檢查文件是否存在
Function CheckFile(sFileName)
CheckFile=false
Dim objFilesys
On Error Resume Next
Set objFilesys=server.createobject(scripting.filesystemobject)
If objFilesys.FILEExists(sFileName) then '如果文件存在著刪除它FILE為文件路徑
CheckFile=true
End if
Set objFilesys=nothing
End function
'檢查文件夾是否存在
Function CheckFolder(Chk_Path)
set fso = server.createobject(scripting.filesystemobject)
if fso.FolderExists(Chk_Path)=false then
CheckFolder=false
else
CheckFolder=true
end if
End function
'得到文件後綴名
function GetFileExt(sFileName)
GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, .)+1))
End function
'*******************************************************
'作用: ASP上傳漏洞/0 防範
'函數名: TrueStr(fileTrue)
'參數: sFileName 文件名
'返回值: 合法文件返回True ,否則返回False
'*******************************************************
function IsTrueFileName(sFileName)
dim str_len,pos
str_len=len(sFileName)
pos=Instr(sFileName,chr(0))
If pos=0 or pos=str_len then
IsTrueFileName = true
else
IsTrueFileName = false
End If
End function
'*******************************************************
'作用: 檢測上傳的圖片文件(jpeg,gif,bmp,png)是否真的為圖片
'函數名: TrueStr(fileTrue)
'參數: sFileName 文件名(此處文件名是文件夾的物理全路徑)
'返回值: 確實為圖片文件則返回True ,否則返回False
'*******************************************************
Function IsImgFile(sFileName)
const adTypeBinary=1
dim return
dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)
dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)
dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)
dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)
on error resume next
分享：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
共3頁上一頁123下一頁