在Kesion.CommonCls中也设置成IIS5了,还是不行。
'iis5创建对象方法Server.CreateObject(ObjectName);
'iis6创建对象方法CreateObject(ObjectName);
'默认为iis6,如果在iis5中使用,需要改为Server.CreateObject(str);
Set InitialObject=Server.CreateObject(str)
73行代码如下:
Public Sub GetSetting()
Dim RSObj:Set RSObj=Server.CreateObject("ADODB.RECORDSET")
RSObj.Open "SELECT top 1 Setting,TbSetting,SpaceSetting,JobSetting,AskSetting,WapSetting from [KS_Config]",conn,1,1
Dim i,node,xml,j,DataArray,rs
Set xml = Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
xml.appendChild(xml.createElement("xml"))
If Not RSObj.EOF Then
DataArray=RSObj.GetRows(1)
For i=0 To UBound(DataArray,2)
Set Node=xml.createNode(1,"config","")
j=0
For Each rs in RSObj.Fields
node.attributes.setNamedItem(xml.createNode(2,LCase(rs.name),"")).text= Replace(DataArray(j,i),vbcrlf,"$br$")& ""
j=j+1
Next
xml.documentElement.appendChild(Node)
Next
End If
DataArray=Null
Set Application(SiteSN&"_Config")=Xml
RSObj.Close:Set RSObj=Nothing
End Sub