Рекомендуется: ASP Настройки для использования fckeditor 1. Откройте файл fckconfig.js на языке по умолчанию (по сравнению с папкой fckeditor, то же самое ниже), изменить язык автоматического обнаружения на не обнаружение и изменить язык по умолчанию на упрощенный китайский: программа fckconfig.autodetectlanguage = false; Fckconfig.defaultlanguage = 'zh-cn'; 2. Откройте файл fckconfig.js в списке шрифтов, в списке шрифтов
<% '=======================================================================
'Составлено: Zhang Hui
'Код программиста: WJ008
«Время компиляции: 1 июня 2008 г.
«Следуйте адресу: www.wj008.net
'Все файловые адреса, используемые функциями, используют абсолютные адреса
'===========================================================================================================
'LoadFile (File Byval) загружает существующий файл и генерирует строку для возврата содержимого файла.
'Savetofile (Byval Strbody, Byval File) Сохранить измененный файл, Strbody - это новая строка
'Delfile (File Byval) Удалить существующие файлы
'Загрузите существующий файл, файл - это путь файла
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Функция загрузки (файл byval)
Dim objstream
При ошибке резюме следующим
Установить objstream = server.createObject (adodb.stream)
Если err.number = -2147221005 тогда
Response.write К сожалению, ваш хост не поддерживает Adodb.stream и не может использовать эту программу
Err.clear
Response.end
Конец, если
С Objstream
.Type = 2
.Mode = 3
.Открыть
. Загрузить файл
Если err.number <> 0, тогда
Response.write file & file и не может быть открыт, пожалуйста, проверьте, существует ли он!
Err.clear
Response.end
Конец, если
.CHARSET = GB2312
.Position = 2
LoadFile = .ReadText
.Закрывать
Закончить с
Установить objstream = ничего
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Функция Savetofile (Byval Strbody, Byval File) 'Сохранить файл Open, файл - это сохраненный путь файла, Strebody - это сохраненный контент
Dim objstream
При ошибке резюме следующим
Установить objstream = server.createObject (adodb.stream)
Если err.number = -2147221005 тогда
Response.write <div Align = 'Center'> К сожалению, ваш хост не поддерживает Adodb.stream, и вы не можете использовать эту программу </div>
Err.clear
Response.end
Конец, если
С Objstream
.Type = 2
.Открыть
.CHARSET = GB2312
.Position = objstream.size
.WriteText = strbody
.Savetofile файл, 2
.Закрывать
Закончить с
Установить objstream = ничего
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Функция Delfile (File Byval)
Dim objfilesys
При ошибке резюме следующим
Установить objfilesys = server.createObject (scripting.filesystemobject)
Если objfilesys.fileexists (файл), то «Если файл существует, удалите его файл в качестве пути файла
objfilesys.deletefile файл
Конец, если
Если err.number <> 0, тогда
Response.write file & file и не может быть удален, файл может использоваться системой!
Err.clear
Response.end
Конец, если
Установить objfilesys = ничего
Конечная функция
'Проверьте, существует ли файл
Function Checkfile (sfilename)
CheckFile = false
Dim objfilesys
При ошибке резюме следующим
Установить objfilesys = server.createObject (scripting.filesystemobject)
Если objfilesys.fileexists (sfilename), то «Если файл существует, удалите его файл в качестве пути файла
CHECKFILE = TRUE
Конец, если
Установить objfilesys = ничего
Конечная функция
'Проверьте, существует ли папка
Function Checkfolder (chk_path)
Установить fso = server.createObject (scripting.filesystemobject)
Если fso.folderexists (chk_path) = false then
CheckFolder = false
еще
Checkfolder = true
конец, если
Конечная функция
'Получите имя суффикса файла
function getFileext (sfilename)
GetFileext = ucase (mid (sfilename, instrrev (sfilename ,.)+1)))
Конечная функция
'************************************************************
'Функция: ASP загрузка уязвимости/0 защита
'Имя функции: truestr (filetreue)
'Параметры: имя файла Sfilename
'Return Value: return true для юридического файла, в противном случае вернуть ложь
'************************************************************
Функция IstrueFilename (sfilename)
Dim str_len, pos
str_len = len (sfilename)
pos = instr (sfilename, chr (0))
Если pos = 0 или pos = str_len, тогда
ISTRUEFILENAME = TRUE
еще
ISTRUEFILENAME = false
Конец, если
Конечная функция
'************************************************************
Функция: обнаружение, является ли загруженный файл изображения (JPEG, GIF, BMP, PNG) действительно изображением
'Имя функции: truestr (filetreue)
'Параметры: имя файла sfilename (здесь имя файла является физическим полным путем папки)
'Возвращаемое значение: если это действительно файл изображения, оно вернет true, иначе оно вернется false
'************************************************************
Функция 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).
при ошибке резюме следующим
Поделиться: интерфейс базы данных для доменного имени Query ASP версия % при ошибке резюме следующее частное d_exsit dim -поиск dim domain dim topenhtml функция geturl (url) set retlieval = server.createObject (microsoft.xmlhttp) с поиском. Open Get, url, false,.
3 страницы в общей сложности предыдущей страницы 123 Следующая страница