Обычно используемые функции 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 (<script> 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)
Результат =
DIM I.
для i = 1 до l
Выберите Case Mid (Str, I, 1)
случай <
Результат = Результат+<
Дело>
Результат = Результат+>
Случай chr (13)