推薦：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