Recomendado: ASP+SQL2000 Storled Procedure Pagination Exemplo 1. Retorne o procedimento armazenado do número total de conjuntos de registros: Crie procedimento dbo.recordCount (@tablename nvarchar (100),--database tabela nome @stringwhere nvarchar (500),-@coury @count int --- valor de saída, número total de registros) como declara @sqlstchar nver (1), número total de registros) como declara @sqlstchar nvchar (1).
- <%
- '----------------------------------------------------------------
- 'Introdução ao programa: complete a adição, exclusão, modificação e visualização do texto do nó especificado no documento XML pelo idioma ASP
- Parâmetros de entrada: nenhum
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- 'Nome da função: Connectxml ()
- 'Parâmetros de entrada: o nome do arquivo requer conexão ou abertura do nome do arquivo xml
- Parâmetros de exportação: nenhum
- 'Valor de retorno: Connectxml = 0, xmlmorntekdocument é um objeto que carrega com sucesso os documentos XML.
- 'Connectxml <> 0, Imprimir mensagem de erro Strerror
- '------------------------------------------------
- DimxmlMornteKDocument
- functionConnectxml (nome do arquivo)
- DIMSTRSOURCEFILE
- strsourcefile = server.mappath (nome do arquivo)
- Setxmlmorntekdocument = server.createObject (microsoft.xmldom)
- Xmlmorntekdocument.async = false
- Xmlmorntekdocument.load (strsourcefile)
- Connectxml = xmlmorntekdocument.parseerror.errorcode
- ifxmlmorntekdocument.parseerror.errorcode <> 0then
- strerror = <H2> Erro e xmlmorntekdocument.parseerror.errorcode & </h2>
- strerrorrRerRorrRERRORSTRERRORERROR = STRERROR & XMLMORNTEKDOCUMENT.PARSEERROR.RESA & <BR>
- strerrorrRerRorrRERRORSTRERRORROR = STRERROR & XMLMORNTEKDOCUMENT.PARSEERROR.URL & <br>
- strerrorrRerRorrRERRORSTRERRORERROR = STRERROR & XMLMORNTEKDOCUMENT.PARSEERROR.LINE & <BR>
- strerrorrRerRorrRERRORSTRERRORERROR = STRERROR & XMLMORNTEKDOCUMENT.PARSEERROR.Filepos & <br>
- strerrorrRerRorrRERRORSTRERRORERROR = STRERROR & XMLMORNTEKDOCUMENT.PARSEERROR.SRCTEXT & <br>
- Response.WriteSTERROR
- endif
- Função final
- '------------------------------------------------
- 'Nome da função: Closexml ()
- Parâmetros de entrada: nenhum
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- functionClosexml (xmlmorntekdocument)
- ifisObject (xmlmorntekdocument) Então
- setxmlmorntekdocument = nada
- endif
- Função final
- '------------------------------------------------
- 'Nome da função: selectxmlnodeText (elementName)
- Parâmetro de entrada: o nome do elemento elemento
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- funções
- ElementName = // & ElementName
- temp = xmlmorntekdocument.SelectSingleNode (elementName) .Text
- SelectxmlnodeText = server.htmlencode (temp)
- Função final
- '------------------------------------------------
- 'Nome da função: insertxmlNodeText (BefElementName, elementName, elementText)
- 'Parâmetro de entrada: o nome do elemento inserido pelo elemento nome
- 'ALAFELEMENTNAME INSERT ELEMENT antes do nome deste elemento
- 'ElementText texto do elemento inserido
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- FunctionInsertxmlNodeText (BefElementName, ElementName, ElementText)
- DimbefElement, elemento
- setbefElement = xmlmorntekdocument.selectsinglenode (// & befElementName)
- setElement = xmlmorntekdocument.createElement (elementName)
- errag.InsertBeforElement, infelement.FirstChild
- element.Text = elementText
- Função final
- '------------------------------------------------
- 'Nome da função: updatexmlnodetext (elementName, newElementText)
- Parâmetro de entrada: o nome do elemento elemento
- 'Novo texto do elemento NewElementText
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- functionUpdatexmlnodeText (elementName, newElementText)
- dimelement
- setElement = xmlmorntekdocument.selectsinglenode (// & elementName)
- Element.Text = newElementText
- Função final
- '------------------------------------------------
- 'Nome da função: DeletexmlNodeText (elementName)
- Parâmetro de entrada: o nome do elemento elemento
- Parâmetros de exportação: nenhum
- '------------------------------------------------
- functionDeletexmlNodeText (elementName)
- Xmlmorntekdocument.SelectSinglenode (// & elementName) .Text =
- Função final
- %>
Compartilhar: Asp Clique para atualizar o código da instância do código de verificação A maioria dos códigos de verificação no site são códigos de verificação de imagens, assim como o abaixo http://dwww.cn/books.asp. Os usuários podem permanecer na página por um longo tempo, e o código de verificação pode expirar quando o último envio for finalmente enviado. Então você precisa adicionar uma função de atualização. Código de verificação: nome de entrada = 'checkImg' type = 'text' class = 'input' id = 'Che