书签 分享 收藏 举报 版权申诉 / 22

类型自助友情链接系统.docx

  • 文档编号:3228785
  • 上传时间:2022-11-20
  • 格式:DOCX
  • 页数:22
  • 大小:221.10KB

  • 最新留言
  • 友情链接
  • <%IfSession("Passed")=TrueThen%>

    action=quit">退出管理<%else%>

    action=login">审核管理<%endif%>

xml自助友情链接

如有意与本站交换友情链接,请先在贵网站上添加本站链接。

<%

adminPassword="111111"'管理员密码

dimXMLMorntekDocument

'建立连接函数

functionConnectXml(filename)

dimstrSourceFile

'将虚拟路径转化为物理路径

strSourceFile=Server.MapPath(filename)

'建立一个XMLDOM对象XMLMorntekDocument

SetXMLMorntekDocument=Server.CreateObject("Microsoft.XMLDOM")

'同步加载strSourceFile

XMLMorntekDocument.async=false

XMLMorntekDocument.load(strSourceFile)

'如果连接失败,显示错误情况

ConnectXml=XMLMorntekDocument.parseerror.errorcode

ifXMLMorntekDocument.parseerror.errorcode<>0then

strError="

error"&XMLMorntekDocument.parseerror.errorcode&"

"

strError=strError&XMLMorntekDocument.parseerror.reason&"
"

strError=strError&XMLMorntekDocument.parseerror.url&"
"

strError=strError&XMLMorntekDocument.parseerror.line&"
"

strError=strError&XMLMorntekDocument.parseerror.filepos&"
"

strError=strError&XMLMorntekDocument.parseerror.srcText&"
"

response.writestrError

endif

endfunction

'完成asp语言对XML文档中指定节点文本的增加、删除、修改、查看

functionCloseXml(XMLMorntekDocument)

ifIsObject(XMLMorntekDocument)then

setXMLMorntekDocument=nothing

endif

endfunction

'查询一个节点里的文本内容,函数名SelectXmlNodeText(节点名称)

FunctionSelectXmlNodeText(ByValnNode)

SelectXmlNodeText=objsite.childNodes.item(StarNodes).childNodes.item(nNode).text

EndFunction

'添加文本节点

FunctionAddXmlNodeText()

SetoListNode=XMLMorntekDocument.documentElement.selectSingleNode("site").AppendChild(XMLMorntekDocument.createElement("item"))

SetoDetailsNode=oListNode.appendChild(XMLMorntekDocument.createElement("id"))

oDetailsNode.Text=id

SetoDetailsNode=oListNode.appendChild(XMLMorntekDocument.createElement("title"))

oDetailsNode.Text=title

SetoDetailsNode=oListNode.appendChild(XMLMorntekDocument.createElement("link"))

oDetailsNode.Text=link

SetoDetailsNode=oListNode.appendChi

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
自助 友情链接 系统
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:自助友情链接系统.docx
链接地址:https://www.bdocx.com/doc/3228785.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开