В ASP кусок кода с возвращаемым значением называется функцией. Мы можем написать кусок кода, чтобы вычислить, является ли естественное число основным числом, а затем вернуться к вызовной программе. Сегодня новый технологический канал поделится с вами, каковы обычно используемые функции ASP? Редактор объяснит это вам подробно.
<%
Dim DB
db = "dbms.mdb"
'***************************************************
'Выполните оператор SQL без возврата значения. Лучшее заявление SQL заключается в следующем:
'Имя таблицы обновлений Установите имя поля = значение, имя поля = значение, где поля имя = значение
'Удалить из имени таблицы, где поля имя = значение
'Вставьте в имя таблицы (имя поля, имя поля) значения (значение, значение)
'***************************************************
Sub Noresult (SQL)
Dim Conn
Dim Connstr
Установить conn = server.createObject ("adodb.connection")
connstr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.Open Connstr
Conn.Execute SQL
Conn.close
установить conn = ничего
Конец суб
'***************************************************************
'Выполните оператор SELECT и верните объект записи. Этот объект только для чтения. То есть это не может быть обновлено
'***************************************************************
Результат функции (SQL)
Dim Conn
Dim Connstr
Dim RCS
Установить conn = server.createObject ("adodb.connection")
connstr = "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("" & db & "")
Conn.Open Connstr
Установить rcs = server.createObject ("adodb.recordset")
RCS.Open SQL, Conn, 1,1
Установить результат = RCS
Конечная функция
'***************************************************************
'Диалоговое окно появляется
'***************************************************************
Sub Alert (сообщение)
Сообщение = заменить (сообщение, "'", "/'")
Response.write ("<cript> alert ('" & message & "') </script>")
Конец суб
'***************************************************************
'Вернитесь на предыдущую страницу, обычно используемой после оценки того, полностью ли представлена информация
'***************************************************************
Unficeback ()
Response.write ("<script> inistory.go (-1) </script>")
Конец суб
'***************************************************************
'Перенаправить другое соединение
'***************************************************************
Sub Go (URL)
Response.write ("<script> location.href ('" & url & "') </script>")
Конец суб
'***************************************************************
'Замените тег HTML
'***************************************************************
функция htmlencode2 (str)
Тусклый результат
тусклый
Если isnull (str), то
htmlencode2 = ""
Выходная функция
конец, если
l = Len (str)
result = ""
DIM I.
для i = 1 до l
Выберите Case Mid (Str, I, 1)
дело "<"
Результат = Результат+"<"
случай ">"
Результат = Результат+">"
Случай chr (13)
Результат = Результат+"<br>"
Случай ChR (34)
Результат = Результат+"" "
случай "&"
Результат = Результат+"&"
Случай ChR (32)
'result = result+""
Если i+1 <= l и i-1> 0, тогда
Если Mid (str, i+1,1) = Chr (32) или Mid (str, i+1,1) = chr (9) или mid (str, i-1,1) = chr (32) или mid (str, i-1,1) = ch (9)
Результат = Результат+""
еще
Результат = Результат+""
конец, если
еще
Результат = Результат+""
конец, если
Случай chr (9)
Результат = Результат+""
случай еще
РЕЗУЛЬТАТ = РЕЗУЛЬТАТ+MID (STR, I, 1)
конец выбора
следующий
htmlencode2 = результат
конечная функция
'***************************************************************
'Проверьте, есть ли отдельные кавычки в строке SQL, и если есть, преобразовать это
'***************************************************************
Функция Checkstr (Str)
Dim TSTR, L, I, Ch
str = trim (str)
l = Len (str)
для i = 1 до l
ch = mid (str, i, 1)
Если ch = "'" Тогда
tstr = tstr+"'"
конец, если
TSTR = TSTR+CH
следующий
Checkstr = tstr
конечная функция
%>
Какие общие функции используются в ASP, представленные новым технологическим каналом в сегодняшней статье? Я считаю, что благодаря введению выше все это тщательно узнали, но все еще нужно просмотреть его для консолидации этих знаний.