asp 操作xml
<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
xml.load(server.mappath("style.xml"))
if xml.parseError.errorCode <> 0 then
Response.Write "xml.parseError.errorCode = " &xml.parseError.errorCode
Response.Write "xml.parseError.reason = " &xml.parseError.reason
Response.Write "xml.parseError.line = " &xml.parseError.line
Response.End
end if
' '查找一个节点对象
' Set Root = xml.documentElement
' set allitem=Root.selectNodes( "//style ")
' nodeCount = allitem.length
'For i=0 to nodeCount-1
' response.write ( allitem(i).selectSingleNode( "S_ID ").text& " <br> ")
'next
'
'
'set objtofind=xml.documentElement.SelectSingleNode("//style/S_ID")
''取出这个节点对象的 节点名,节点值,某个属性值,和全部的xml
'nodename=objtofind.nodename
'nodevalue=objtofind.text
'response.Write(nodename)
'response.Write(nodevalue)
'response.Write("<br>")
'取出一个属性节点对象
set objattrtofind=xml.documentElement.SelectSingleNode("//style").GetAttributeNode("name")
'取出这个节点的属性名,属性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.text
response.Write(nodeattrname)
response.Write(nodeattrvalue)
dim objNodes
Set objNodes = xml.selectSingleNode("//style[@name=
相关文档:
很多时候,我们采用原始的方法来解决一行内循环3张图片,如果上传者只上传了2张图片,那么2张图片间的距离会很大,因为缺少了一个<td> </td>.
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = Server.CreateObject("adodb.recordset")
sqltext="sel ......
'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
function checkAll(){
&nbs ......
'--------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<script>
function checkAll(){
for (i=0;i<document.forms[1].length;i++){
if (document.forms[1][i].tagName= ......
在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的 IP 地址,但如果客户端是使用代理服务
器来访问,那取到的就是代理服务器的 IP 地址,而不是真正的客户端 IP 地址。要想透过代理服务器取得客户端的真实
IP 地址,就要使用& ......
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from 表”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......