XML 文件
<?xml version="1.0" encoding="UTF-8"?>
<config>
<upload>
<max_size>2024</max_size>
<up_module>0</up_module>
<img_module>999</img_module>
<small_width>120</small_width>
<small_height>80</small_height>
<small_gz>1</small_gz>
<watermark_config>1</watermark_config>
<watermark_font>
WWW.HX66.NET</watermark_font>
<watermark_font_size>12</watermark_font_size>
<watermark_font_color>#FFFFFF</watermark_font_color>
<watermark_font_name>Arial Black</watermark_font_name>
<watermark_font_b>0</watermark_font_b>
<watermark_img_path>img/sy2.gif</watermark_img_path>
<watermark_img_alpha>0.6</watermark_img_alpha>
<watermark_img_delbg>#000000</watermark_img_delbg>
<watermark_width>150</watermark_width>
<watermark_height>32</watermark_height>
<watermark_img_xy>4</watermark_img_xy>
</upload>
</config>
ASP文档
<%
if mode="upload" then
strSourceFile = Server.MapPath("inc/config.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
If objXML.parseError.ErrorCode <> 0 Then
objXML.loadXML "<?xml version=""1.0"" encoding=""utf-8"" ?>"
End If
++++++set objemail = objXML.documentElement.SelectSingleNode("email")
++++++set objupload = objXML.documentElement.SelectSingleNode("upload")
If objupload.SelectSingleNode("watermark_config").text="1" Then
DrawInfo = objupload.SelectSingleNode("watermark_font").text
ElseIf objupload.SelectSingleNode("watermark_config").text="2" Then
DrawInfo = objupload.SelectSingleNode("watermark_img_path").text
Else
DrawInfo = ""
End If
If DrawInfo = "0" Then
DrawInfo = ""
objupload.SelectSingleNode("watermark_config").text= 0
End If
加号那句老是提示缺少对象...
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/fh/admin_config.xml.asp, 第 124 行
这个该如何解决,帮帮忙啊!!!!!!!!!!!!!!!!!!!!!着急等待中....................
[返回] W3CHINA.ORG讨论区 - 语义网·描述逻辑·本体·RDF·OWL →
XML.ORG.CN讨论区 - XML技术 → 『 XML源码及示例(仅原创和转载) 』 → 哪位大哥帮帮忙啊,帮我看看这哪里错了啊!!!!!!!!!!!!!!!!!!!!!!
(订阅本版)
2007/7/4 11:11:00
新浪微博
哪位大哥帮帮忙啊,帮我看看这哪里错了啊!!!!!!!!!!!!!!!!!!!!!!
