以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML源码及示例(仅原创和转载) 』  (http://bbs.xml.org.cn/list.asp?boardid=32)
----  哪位大哥帮帮忙啊,帮我看看这哪里错了啊!!!!!!!!!!!!!!!!!!!!!!  (http://bbs.xml.org.cn/dispbbs.asp?boardid=32&rootid=&id=49394)

--  作者：chupz
--  发布时间：7/4/2007 11:11:00 AM

--  哪位大哥帮帮忙啊,帮我看看这哪里错了啊!!!!!!!!!!!!!!!!!!!!!!
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 行
这个该如何解决,帮帮忙啊!!!!!!!!!!!!!!!!!!!!!着急等待中....................

--  作者：hello_21
--  发布时间：7/12/2007 6:25:00 PM

--  
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''

支持不支持 xm哦

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 6,843.750ms