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