function.asp

完美政府版,正版网站解决方案

<%
Function FSOWriteFile(FilePath,Str)
dim fso,fout
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    Set fout = fso.CreateTextFile(Server.Mappath(FilePath),True) 
    fout.Write Str 
    fout.close 
    set fout=nothing 
    set fso=nothing 
    'FSOWriteFile = "生成成功！"
End Function

Function getXMLDOM
	On Error Resume Next
	Dim Temp
	getXMLDOM="Microsoft.XMLDOM"
	Err = 0
	Dim TmpObj
	Set TmpObj = Server.CreateObject(getXMLDOM)
	Temp = Err
    IF Temp = 1 OR Temp = -2147221005 Then
		getXMLDOM="Msxml2.DOMDocument.5.0"
	End IF
	Err.Clear
	Set TmpObj = Nothing
	Err = 0
end function

Function CheckObject(ObjectName)
	On Error Resume Next
	Dim Temp
	Err = 0
	Dim TmpObj
	Set TmpObj = Server.CreateObject(ObjectName)
	Temp = Err
	IF Temp = 0 OR Temp = -2147221477 Then
		CheckObject=true
	ElseIF Temp = 1 OR Temp = -2147221005 Then
		CheckObject=false
	End IF
	Err.Clear
	Set TmpObj = Nothing
	Err = 0
End Function

function getPathList(pathName) '获得路径的文件信息
dim FSO,ServerFolder,getInfo,getInfos,tempS
 getInfo=""
        Set FSO=Server.CreateObject("Scripting.FileSystemObject")
        Set ServerFolder=FSO.GetFolder(Server.MapPath(pathName))
            Dim ServerFolderList,ServerFolderEvery
            Set ServerFolderList=ServerFolder.SubFolders
            tempS=""
            For Each ServerFolderEvery IN ServerFolderList
                getInfo=getInfo&tempS&ServerFolderEvery.Name
                tempS="*"
            Next
            getInfo=getInfo&"|"
            Dim ServerFileList,ServerFileEvery
            Set ServerFileList=ServerFolder.Files
            tempS=""
            For Each ServerFileEvery IN ServerFileList
                getInfo=getInfo&tempS&ServerFileEvery.Name
                tempS="*"
            Next
    Set FSO=Nothing
    getInfos=split(getInfo,"|")
    getPathList=getInfos
end function

Class XmlClass
  Public XmlPath
  Private errorcode
  Private XMLMorntekDocument

  Private Sub Class_Initialize()
   errorcode=-1
  end sub
  
  Private Sub Class_Terminate()

  end sub
  

  Public function Open()
  'on error resume next
     dim strSourceFile,strError
     Set XMLMorntekDocument = Server.CreateObject(getXMLDOM)
       If Err Then
	    errorcode=-18239123
	    Err.clear
	    exit function
	   end if
     XMLMorntekDocument.async = false  
     strSourceFile = Server.MapPath(XmlPath) 
     XMLMorntekDocument.load(strSourceFile) 
     errorcode=XMLMorntekDocument.parseerror.errorcode
  end function 



'获得错误
  Public function getError()
   getError=errorcode
  end function 
  

  Public function CloseXml() 
   if IsObject(XMLMorntekDocument) then 
   set XMLMorntekDocument=nothing 
   end if 
  end function 
  
  
  Public function SelectXmlNodeText(elementname)  
      on error resume next
      dim temp
      temp=XMLMorntekDocument.getElementsByTagName(elementname).item(0).text
      selectXmlNodeText= temp
      if err then selectXmlNodeText=0
  end function
  

  Public function SelectXmlNode(elementname,itemID) 
      dim temp
      set temp=XMLMorntekDocument.getElementsByTagName(elementname).item(itemID)
      set SelectXmlNode= temp
  end function
  
  '检测是否存在元素 

  Public function IsXmlNode(elementname)
   dim Temp
   IsXmlNode=true
   on error resume next
   Temp=XMLMorntekDocument.getElementsByTagName(elementname).item(0).text
   if err>0 then
    err.clear
    IsXmlNode=false
   end if
  end function
end Class

%>