[code]if isnumeric(id)=false then exit sub strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&id&"/adv.xml") Set objXML =Server.CreateObject("Microsoft.XMLDOM")  ’创建一个XML对像  objXML.load(strSourceFile)  ...