Использование текстовых редакторов может быть прослежено до Java, но многие люди не были заинтересованы в текстовых редакторах в то время. Сегодняшняя статья о файлах редактирования EditPlus. Давайте узнаем об этом с редактором неправильного нового технологического канала!
#Title = общий синтаксис и функции ASP
#ИНФОРМАЦИЯ
Некоторые обычно используемые синтаксисы и пользовательские функции в ASP
#Sort = n
#T = === Общий синтаксис для ASP ===
#T ================================================================
#T = база данных
#T = подключить к базе данных доступа
<%
Dim dbname, Conn
Dbname "^!" 'Определите путь и имя базы данных
Установить conn = server.createObject ("adodb.connection")
Conn.open "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath (dbname)
%>
#T = подключиться к базе данных MS SQL
<%
Dim Conn
Установить conn = server.createObject ("adodb.connection")
Conn.open "provider = sqloledb; data source = sql server name или IP -адрес; uid = chound
%>
#T = создать набор записей
Set ^! = Server.createObject ("AdoDB.RecordSet")
#T = выполнить команды SQL
Rs.open SQL, Conn, 1,1
#T = выполнить команды SQL
Conn.execute ("^!")
#T = RS напрямую выполняет команды SQL
Установить rs = conn.execute ("^!")
#T = закрыть набор записей
Rs.close
Установить RS = ничего
#T = закройте базу данных
Conn.close
Установить conn = ничего
#T ================================================================
#T = ServerVariables связан
#T = получить адрес предыдущей страницы
Request.servervariables ("http_referer")
#T = взять имя сервера 1
Request.servervariables ("server_name")
#T = взять имя сервера 2
Request.servervariables ("http_host")
#T = получить сервер IP
Request.servervariables ("local_addr")
#T = получить пользователь IP
Request.servervariables ("remote_host")
#T = получить настоящий IP1 пользователя
Request.servervariables ("remote_addr")
#T = получить реальную IP -функцию пользователя
Функция getRealip ()
GetRealip = request.servervariables ("http_x_forwarded_for")
If (getRealip = ""), тогда getRealip = request.servervariables ("remote_addr")
Конечная функция
#T = получить порт сервера
Request.servervariables ("server_port")
#T = получить операционную систему сервера
Request.servervariables ("OS")
#T = Получить абсолютный путь к серверу
Request.servervariables ("appl_physical_path")
#T = пройдите абсолютный путь 1 этого файла
Rectet.servervariables ("path_translated")
#T = пройдите абсолютный путь 2 этого файла
Server.mappath (request.servervariables ("script_name"))))
#T = пройдите относительный путь 1 этого файла
Request.servervariables ("url")
#T = пройдите относительный путь 2 этого файла
Request.servervariables ("script_name")
#T = пройдите относительный путь 3 этого файла
Request.servervariables ("path_info")
#T = параметры после адресной панели
Request.servervariables ("Query_string")
#T = получить информацию о системе сервера
Request.servervariables ("http_user_agent")
#T = обнаружение компонентов сервера
<%
Функция isobjinstalled (strclassstring)
При ошибке резюме следующим
Isobjinstalled = false
Err = 0
Dim Xtestobj
Установить xtestobj = server.createObject (strClassString)
If (0 = err) then isobjinstalled = true
Установить xtestobj = ничего
Err = 0
Конечная функция
'If (isobjinstalled ("persits.upload") = true) тогда
'Response.write "Поддержка компонентов Aspupload"
'ЕЩЕ
'Response.write "Компонент Aspupload не поддерживается"
'End if
%>
#T = получить локаль клиента
^! Request.servervariables ("http_accept_language")
#T = получить информацию клиента: http_user_agent
^! Request.servervariables ("http_user_agent")
#T = получить значение элемента значения формы
Request.form ("^!")
#T = получить значение, переданное URL
Request.QueryString ("^!")
#T = получить полный адрес URL -адреса
Функция getUrl ()
Geturl = "http: //" & request.servervariables ("server_n ... .servervariables (" url ")
If (request.servervariables ("Query_string") <> ""), затем geturl = geturl & "?" & Request.servervariables ("Query_string")
Конечная функция
#T ================================================================
#T = пользовательские функции
#T = фильтр HTML -символы
<%
'Filter HTML -функция
Функция htmlencode (str)
If (str <> "") тогда
str = reply (str, "&", "&")
str = reply (str, ">", ">")
str = reply (str, "<", "<")
str = reply (str, chr (32), "")
str = reply (str, chr (9), "")
str = reply (str, chr (34), "" ")
str = reply (str, chr (39), "'")
str = заменить (str, chr (13), "")
str = reply (str, chr (10) и chr (10), "
")
str = заменить (str, chr (10), "
")
str = reply (str, chr (255), "")
Конец, если
Htmlencode = str
Конечная функция
%>
#T = проверить, отправлена ли предыдущая страница с этого сайта
<%
'Проверьте, была ли предыдущая страница, была отправлена с этого сайта
'Return: true, ложь
'========================================================================================
Функция isselfrefer ()
Dim SHTTP_REFERER, SSERVER_NAME
shttp_referer = cstr (request.servervariables ("http_referer")))
sserver_name = cstr (request.servervariables ("server_name"))
If (mid (shttp_referer, 8, len (sserver_name)) = sserver_name) тогда
Isselfrefer = true
ЕЩЕ
Isselfrefer = false
Конец, если
Конечная функция
%>
#T = очистить все теги HTML
<%
'Очистить теги HTML
Function Striphtml (htmlstr)
Dim Regex
Set regex = new Regexp
regex.ignorecase = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = replace (htmlstr, "<", "<")
htmlstr = replace (htmlstr, ">", ">")
htmlstr = replace (htmlstr, chr (10), "")
htmlstr = replace (htmlstr, chr (13), "")
Striphtml = htmlstr
Установить regex = ничего
Конечная функция
%>
#T = взять длину строки
<%
'Найти функцию длины строки
Функция getLength (str)
Тусклость длина
Для i = 1 до Лена (Str)
If (asc (mid (str, i, 1)) <0 или asc (mid (str, i, 1))> 256) затем
Длина = длина+2
ЕЩЕ
Длина = длина+1
Конец, если
Следующий
GetLength = длина
Конечная функция
%>
#T = перехват строку указанной длины
<%
'Перехватите строку указанной длины и используйте дополнительный вместо ...
Функция strleft (str, strlen)
If (str = "") затем
Strleft = ""
Выходная функция
Конец, если
Dim L, T, C, i
str = reply (reply (reply (reply (str (str, "," ")," ")," "", chr (34)), ">", ">"), "<", "<", "<")
l = Len (str)
t = 0
Для i = 1 до l
c = ABS (ASC (Mid (Str, I, 1))))))
If (c> 255) тогда
t = t+2
ЕЩЕ
t = t+1
Конец, если
If (t> strlen) тогда
Strleft = left (str, i) & "..."
Выход для
ЕЩЕ
Strleft = str
Конец, если
Следующий
Strleft = reply (reply (reply (reply (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
Конечная функция
%>
#T = получить параметры безопасного подчинения
<%
'========================================================================================
Проверка инъекции SQL
'Функция функции: фильтровать отдельные кавычки в параметрах символов, числовые параметры судьи, если он не является числовым типом, то назначьте 0
'Параметр Значение: str ---- Параметры, которые должны быть отфильтрованы
'strtype --- тип параметра, разделен на тип символа и числовой тип, тип символа «S», а числовое тип-«I»
'========================================================================================
Функция Checkstr (Strtype)
Dim Strtmp
strtmp = ""
If (strtype = "s") тогда
strtmp = replace (trim (str), "" "," '' ")
Elseif (strtype = "i") тогда
If (isNumeric (str) = false), то STR = false
strtmp = str
ЕЩЕ
strtmp = str
Конец, если
Checkstr = strtmp
Конечная функция
%>
#T = Filter Bad символы (Badword)
<%
'Filter Bad символы (Badwords)
Функция chkbadwords (fstring)
Dim Badwords, bwords, я
Badwords = "Я трахаюсь | Трахни тебя | Трахни его | Черт | Трах | собака | Ублюдок | Пизда | Дик | Черепаха | изнасилование | Секс | Дева | Земин | Фалунь | Фалунь | Хонгжи | Мода"
Если (не (isnull (badwords) или isnull (fstring)))
bwords = split (Badwords, "|")
Для i = 0 до ubound (bwords)
FSTRING = replace (fstring, bwords (i), String (len (bwords (i)), "*"))
Следующий
Chkbadwords = fstring
Конец, если
Конечная функция
%>
#T = генерировать случайный пароль на пользовательскую длину
<%
'Сгенерировать случайный пароль по индивидуальной длине
Функция MakePassword (maxlen)
Dim Strnewpass
Dim WhatsNext, Upper, Lower, Intcounter
Рандомизировать
Для Intcounter = 1 до maxlen
WhatsNext = int ((1 - 0 + 1) * rnd + 0)
If (whatsNext = 0) тогда
'характер
Верхний = 90
ниже = 65
ЕЩЕ
Верхний = 57
ниже = 48
Конец, если
strnewpass = strnewpass & chr (int ((верхний - нижний + 1) * rnd + нижний)))
Следующий
MakePassword = strnewPass
Конечная функция
'Response.write MakePassword (8)
%>
#T = сохранить формат inhtml при заполнении Textarea
<%
'========================================================================================
'Удалите формат HTML, используемый для удаления значения из базы данных и заполнить окно ввода
Примечание: значение = "?" Это должно быть двойные цитаты здесь
'========================================================================================
Функция inhtml (str)
Dim Stemp
Stemp = str
inhtml = ""
Если isnull (stemp) = true, тогда
Выходная функция
Конец, если
Stemp = reply (Stemp, "&", "&")
Stemp = заменить (Stemp, "
", Chr (13))
Stemp = reply (Stemp, "<", "<")
Stemp = reply (Stemp, ">", ">")
Stemp = reply (Stemp, "" ", Chr (34))
inhtml = stemp
Конечная функция
%>
#T = регулярная функция проверки выражения таблицы
<%
'Регулярная функция проверки экспрессии в таблице патрина-регулярная экспрессия strng-strng для проверки
'========================================================================================
Функция regexptest (patrn, strng)
Dim Regex, RETVAL 'Создать переменную.
Установить regex = new Regexp 'Создать регулярное выражение.
regex.pattern = Set Patrn 'Режим.
regex.ignorecase = false 'Установите, чувствителен к случаю.
retval = regex.test (strng) 'выполнить поисковый тест.
Regexptest = retval 'возвратное значение, если оно не соответствует, он возвращает false, если он соответствует, это правда
Установить regex = ничего
Конечная функция
%>
#T = генерировать случайные строки
<%
'Generate случайные строки
Функция rndcode ()
Dim CodeSet, суммы
CodeSet = "0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
Сумматован = 62 'Количество текстов
Рандомизировать
Dim Vcode (10), Vcodes, i
Для i = 0 до 9
vcode (i) = int (rnd * суммы)
vcodes = vcodes & mid (codeset, vcode (i) + 1, 1)
Следующий
Rndcode = vcodes
Конечная функция
%>
#T ================================================================
#T = FSO-связанные операции
#T = определить, существует ли каталог
<%
Функция isfloderexist (strfoldername)
SET FSO = server.createObject ("scripting.filesystemobject")
If (fso.folderexists (strfoldername)) тогда
Isfloderexist = true
ЕЩЕ
Isfloderexist = false
Конец, если
Установить FSO = ничего
Конечная функция
%>
#T = Create Directory
<%
Функция CreateFolder (strFolderName)
SET FSO = server.createObject ("scripting.filesystemobject")
If (fso.folderexists (strfoldername) = false) then
Fso.createfolder (strfoldername)
Конец, если
Установить FSO = ничего
Конечная функция
%>
#T = DELETE DIRECTORY
<%
Функция deleteFolder (strfoldername)
SET FSO = server.createObject ("scripting.filesystemobject")
If (fso.folderexists (strfoldername)) тогда
Fso.deletefolder (strfoldername)
Конец, если
Установить FSO = ничего
Конечная функция
%>
#T = определить, существует ли файл
<%
Функция Isfilexist (strfilename)
SET FSO = server.createObject ("scripting.filesystemobject")
If (fso.fileexists (strfilename)) тогда
Isfilexist = true
ЕЩЕ
Isfilexist = false
Конец, если
Установить FSO = ничего
Конечная функция
%>
#T = DELETE FILE
<%
Функция deletefile (strfilename)
SET FSO = server.createObject ("scripting.filesystemobject")
If (fso.fileexists (strfilename)) тогда
Fso.deletefile (strfilename)
Конец, если
Установить FSO = ничего
Конечная функция
%>
#T ================================================================
#T = несколько функций, обычно используемых ворами ASP
<%
Функция BytetoStr (VIN)
Dim Strreturn, I, ThisChode, InnerCode, Hight8, Low8, NextCharcode
strreturn = ""
Для i = 1 к Lenb (VIN)
ThisChode = ASCB (MIDB (VIN, I, 1))
If (thisChode <& H80) тогда
strreturn = strreturn & chr (this charcode)
ЕЩЕ
NextChode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thisChode) * & h100 + cint (nextcharcode))
i = i + 1
Конец, если
Следующий
BytetoStr = strreturn
Конечная функция
Функция gethttppageContent (url, метод, sendstr)
Тусклый поиск
Set retliveval = server.createObject ("microsoft.xmlhttp")
С поиском
.Open Метод, URL, false, "", "" "
.setRequestheader "Content-Type", "Application/X-WWW-Form-UrlencoDed"
.Send (sendstr)
Gethttppagecontent =. -Responsebody
Закончить с
Установить поиск = ничего
Gethttppagecontent = bytetostr (gethttppagecontent)
Конечная функция
Функция regexptext (strng, regstr)
Dim Regex, Match, Matches, Retstr
Set regex = new Regexp
regex.pattern = Regstr
regex.ignorecase = true
regex.global = true
Set matches = regex.execute (strng)
Для каждого матча в матчах
Retstr = retstr & regex.replace (match.value, "$ 1") и ","
Следующий
Regexptext = retstr
Установить regex = ничего
Конечная функция
Function StreambyTestobstr (strbody, codebase)
Dim objstream
Установить objstream = server.createObject ("adodb.stream")
С Objstream
.Type = 1
.Mode = 3
.Открыть
.Write Strbody
.Position = 0
.Type = 2
.CHARSET = CODEBASE
StreamByTestObstr = .ReadText
.Закрывать
Закончить с
Установить objstream = ничего
Конечная функция
%>
Через файл редактирования об EditPlus, представленный редактором нового технологического канала, я считаю, что у каждого есть определенное понимание. Если вы хотите узнать больше технического контента, пожалуйста, продолжайте обращать внимание на 未分 New Technology Channel!