Рекомендуется: ASP+SQL2000 Хранилированная процедура пример страниц. 1. Вернуть хранимую процедуру общего количества наборов записей: создать процедуру dbo.recordCount (@TablEname nvarchar (100),-датабаза таблица @strwhere nvarchar (500),-Состояние query @count int output --- Выходное значение, общее количество записей) как Declare @sql
- <%
- '----------------------------------------------------------------
- Введение программы: заполните добавление, удаление, модификацию и просмотр указанного текста узла в документе XML на языке ASP
- 'Параметры входа: нет
- 'Экспортные параметры: нет
- '------------------------------------------------
- 'Имя функции: connectxml ()
- 'Параметры Entermination: имя файла требует подключения или открытия имени файла XML
- 'Экспортные параметры: нет
- «Возвращение значения: connectxml = 0, Xmlmorntekdocument - это объект, который успешно загружает XML -документы.
- 'ConnectXml <> 0, сообщение об ошибке печати Strerror
- '------------------------------------------------
- Dimxmlmorntekdocument
- functionConnectxml (имя файла)
- DimStrsourcefile
- strsourcefile = server.mappath (имя файла)
- Setxmlmorntekdocument = server.createObject (microsoft.xmldom)
- Xmlmorntekdocument.async = false
- Xmlmorntekdocument.load (strsourcefile)
- ConnectXML = xmlmorntekdocument.parseerror.errorcode
- ifxmlmorntekdocument.parseerror.errorcode <> 0then
- strerror = <h2> error & xmlmorntekdocument.parseerror.errorcode & </h2>
- strerrorsrrorrorsrorrorsrrorrorror = strerror & xmlmorntekdocument.parseerror.reess & <br>
- strerrorsrrorsrrorsrrorrorror = strerror & xmlmorntekdocument.parseerror.url & <br>
- strerrorsrrorrorsrorrorsrrorrorror = strerror & xmlmorntekdocument.parseerror.line & <br>
- strerrorsrrorsrrorrorsrrorrorror = strerror & xmlmorntekdocument.parseerror.filepos & <br>
- strerrorsrrorsrrorsrrorrorror = strerror & xmlmorntekdocument.parseerror.srctext & <br>
- response.writestrror
- эндиф
- конечная функция
- '------------------------------------------------
- 'Имя функции: closexml ()
- 'Параметры входа: нет
- 'Экспортные параметры: нет
- '------------------------------------------------
- functionClosexml (xmlmorntekdocument)
- ifisobject (xmlmorntekdocument), затем
- setxmlmorntekdocument = ничего
- эндиф
- конечная функция
- '------------------------------------------------
- 'Имя функции: selectxmlneTextext (elementName)
- 'Параметр входа: имя элемента ElementName
- 'Экспортные параметры: нет
- '------------------------------------------------
- functionSelectxmlNodeText (elementName)
- elementName = // & elementName
- temp = xmlmorntekdocument.selectsinglenode (elementName) .Text
- selectxmlneText = server.htmlencode (temp)
- конечная функция
- '------------------------------------------------
- 'Имя функции: insertxmlneTextext (befelementName, elementName, elementText)
- 'Параметр ввода: имя элемента, вставленного Ementname
- 'befelementName вставьте элемент перед именем этого элемента
- 'elementText Text вставленного элемента
- 'Экспортные параметры: нет
- '------------------------------------------------
- functionInsertXmlNeTextext (befelementName, elementName, elementText)
- Dimbefelement, элемент
- setBefelement = xmlmorntekdocument.selectsinglenode (// & befelementname)
- setelement = xmlmorntekdocument.createElement (elementName)
- ошибка.insertbeforelement, befelement.firstchild
- element.text = elementText
- конечная функция
- '------------------------------------------------
- 'Имя функции: updatexmlneTextext (elementName, newElementText)
- 'Параметр входа: имя элемента ElementName
- 'Новый текст элемента NewElementText Text
- 'Экспортные параметры: нет
- '------------------------------------------------
- functionupdatexmlneTextext (elementName, newElementText)
- Дамэлем
- setelement = xmlmorntekdocument.selectsinglenode (// & elementName)
- element.Text = newElementText
- конечная функция
- '------------------------------------------------
- 'Имя функции: deletexmlneTextext (elementName)
- 'Параметр входа: имя элемента ElementName
- 'Экспортные параметры: нет
- '------------------------------------------------
- functionDeletexmlNeTextext (elementName)
- Xmlmorntekdocument.selectsinglenode (// & elementName) .Text =
- конечная функция
- %>
Поделиться: ASP Нажмите, чтобы обновить код экземпляра кода проверки Большинство кодов проверки на веб -сайте являются кодами проверки изображений, как и указание ниже http://dwww.cn/books.asp. Пользователи могут оставаться на странице в течение длительного времени, и код проверки может истекать, когда последняя подача окончательно будет представлена. Таким образом, вам нужно добавить функцию обновления. Проверка кода: входное имя = 'проверка' type = 'text' class = 'input' id = 'ce