ASP对XML文档中文本的增加、删除、修改、查看

推荐：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
'------------------------------------------------
dimXMLMorntekDocument
functionConnectXml(filename)
dimstrSourceFile
strSourceFile=Server.MapPath(filename)
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>
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.writestrError
endif
endfunction
'------------------------------------------------
'函数名字：CloseXml()
'入口参数:无
'出口参数:无
'------------------------------------------------
functionCloseXml(XMLMorntekDocument)
ifIsObject(XMLMorntekDocument)then
setXMLMorntekDocument=nothing
endif
endfunction
'------------------------------------------------
'函数名字：SelectXmlNodeText(elementname)
'入口参数:elementname元素的名字
'出口参数:无
'------------------------------------------------
functionSelectXmlNodeText(elementname)
elementname=//&elementname
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText=server.htmlencode(temp)
endfunction
'------------------------------------------------
'函数名字：InsertXmlNodeText(befelementname,elementname,elementtext)
'入口参数:elementname插入的元素的名字
'befelementname在此元素的名字前面插入元素
'elementtext插入的元素的文本
'出口参数:无
'------------------------------------------------
functionInsertXmlNodeText(befelementname,elementname,elementtext)
dimbefelement,element
setbefelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
setelement=XMLMorntekDocument.createelement(elementname)
befelement.insertBeforeelement,befelement.firstchild
element.text=elementtext
endfunction
'------------------------------------------------
'函数名字：UpdateXmlNodeText(elementname,newelementtext)
'入口参数:elementname元素的名字
'newelementtext元素的新文本
'出口参数:无
'------------------------------------------------
functionUpdateXmlNodeText(elementname,newelementtext)
dimelement
setelement=XMLMorntekDocument.selectSingleNode(//&elementname)
element.text=newelementtext
endfunction
'------------------------------------------------
'函数名字：DeleteXmlNodeText(elementname)
'入口参数:elementname元素的名字
'出口参数:无
'------------------------------------------------
functionDeleteXmlNodeText(elementname)
XMLMorntekDocument.selectSingleNode(//&elementname).text=
endfunction
%>

分享：ASP点击刷新验证码实例代码
现在网站上大部分的验证码都是图片验证码，就跟 http://dwww.cn/Books.asp 下边的一样。 用户可能长时间的停留在页面上，等到最后提交的时候，验证码就可能过期了。所以要加个刷新的功能。 验证码：input name='checkimg' type='text' class='input' id='che