ASP對XML文檔中文本的增加、刪除、修改、查看_ASP教程

推薦：asp+sql2000存儲過程分頁實例
1.返回記錄集總數存儲過程： CREATE procedure dbo.recordCount ( @TableName nvarchar(100),--數據庫表名 @strWhere nvarchar(500),--查詢條件 @count int output---輸出值，記錄集總數 ) as declare @sqlStr nvarchar(1000) if @strWhere != '' set @sqlSt

<%   
'----------------------------------------------------------------   
'程序簡介: 完成asp語言對XML文檔中指定節點文本的增加、刪除、修改、查看   
'入口參數: 無   
'出口參數: 無   
'------------------------------------------------   
'函數名字：ConnectXml()   
'入口參數: filename 需要連接或打開的xml文件名   
'出口參數: 無   
'返回值 ：ConnectXml=0，XMLMorntekDocument就是一個成功裝載XML文檔的對象了。   
' ConnectXml<>0,則打印錯誤信息strError   
'------------------------------------------------   
dim XMLMorntekDocument  
  
function ConnectXml(filename)   
dim strSourceFile   
strSourceFile = Server.MapPath(filename)   
Set XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")   
XMLMorntekDocument.async = false   
XMLMorntekDocument.load(strSourceFile)   
ConnectXml=XMLMorntekDocument.parseerror.errorcode   
if XMLMorntekDocument.parseerror.errorcode<>0 then   
strError="<h2>error"&XMLMorntekDocument.parseerror.errorcode&"</h2>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.reason&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.url&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.line&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.filepos&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.srcText&"<br>"   
response.write strError   
end if   
end function  
  
'------------------------------------------------   
'函數名字：CloseXml()   
'入口參數: 無   
'出口參數: 無   
'------------------------------------------------   
function CloseXml(XMLMorntekDocument)   
if IsObject(XMLMorntekDocument) then   
set XMLMorntekDocument=nothing   
end if   
end function  
  
  
'------------------------------------------------   
'函數名字：SelectXmlNodeText(elementname)   
'入口參數: elementname 元素的名字   
'出口參數: 無   
'------------------------------------------------   
function SelectXmlNodeText(elementname)   
elementname="//"&elementname   
temp=XMLMorntekDocument.selectSingleNode(elementname).text   
selectXmlNodeText= server.htmlencode(temp)  
  
end function    
  
'------------------------------------------------   
'函數名字：InsertXmlNodeText(befelementname,elementname,elementtext)   
'入口參數: elementname 插入的元素的名字   
' befelementname在此元素的名字前面插入元素   
' elementtext 插入的元素的文本   
'出口參數: 無   
'------------------------------------------------   
function InsertXmlNodeText(befelementname,elementname,elementtext)   
dim befelement,element   
set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)   
set element= XMLMorntekDocument.createelement(elementname)   
befelement.insertBefore element,befelement.firstchild   
element.text=elementtext   
end function  
  
'------------------------------------------------   
  
'函數名字：UpdateXmlNodeText(elementname,newelementtext)   
'入口參數: elementname 元素的名字   
' newelementtext元素的新文本   
'出口參數: 無   
'------------------------------------------------   
function UpdateXmlNodeText(elementname,newelementtext)   
dim element   
set element=XMLMorntekDocument.selectSingleNode("//"&elementname)   
element.text=newelementtext   
end function  
  
'------------------------------------------------   
'函數名字：DeleteXmlNodeText(elementname)   
'入口參數: elementname 元素的名字   
'出口參數: 無   
'------------------------------------------------   
function DeleteXmlNodeText(elementname)   
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""   
end function   
%>  

分享：ASP點擊刷新驗證碼實例代碼
現在網站上大部分的驗證碼都是圖片驗證碼，就跟 http://dwww.cn/Books.asp 下邊的一樣。 用戶可能長時間的停留在頁面上，等到最后提交的時候，驗證碼就可能過期了。所以要加個刷新的功能。 驗證碼：input name='checkimg' type='text' class='input' id='che