<% 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" -->
<script>
function checkAll(){
for (i=0;i<document.forms[1].length;i++){
if (document.forms[1][i].tagName= ......
用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当 ......
