Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\_mmServerScripts\MMHTTPDB.js</i><br><form method=post action="edit.asp?action=save&dir=\_mmServerScripts&file=MMHTTPDB.js"><textarea name='content' style='width: 700px;' rows=20 cols=70>// Copyright 2001, 2002, 2003, 2004, 2005 Macromedia, Inc. All rights reserved.
&lt;SCRIPT LANGUAGE=VBScript RUNAT=Server&gt;
function CreateVBArray(elem1,elem2,elem3,elem4)

	elem1 = &quot;&quot; + elem1
	elem2 = &quot;&quot; + elem2
	elem3 = &quot;&quot; + elem3
	elem4 = &quot;&quot; + elem4

	if (Len(elem1) = 0) then
		elem1 = Empty
	end if

	if (Len(elem2) = 0) then
		elem2 = Empty
	end if

	if (Len(elem3) = 0) then
		elem3 = Empty
	end if

	if (Len(elem4) = 0) then
		elem4 = Empty
	end if

	if (elem4 = &quot;PrimaryKeys&quot;) then
		CreateVBArray = Array(elem1,elem2,elem3)
	else
		CreateVBArray = Array(elem1,elem2,elem3,elem4)
	end if

end function

function CreateVBEmpty()
	CreateVBEmpty = Empty
end function

&lt;/SCRIPT&gt;


&lt;SCRIPT LANGUAGE=JavaScript RUNAT=Server&gt;

//define the variant array for openSchema call
//create a javascript array instead of vb variant
//to fix SP2
function CreateJSArray(elem1,elem2,elem3,elem4)
{
	var filterCriteriaArray = new Array();
		
	var filterParam1 = &quot;&quot; + elem1
	var filterParam2 = &quot;&quot; + elem2
	var filterParam3 = &quot;&quot; + elem3
	var filterParam4 = &quot;&quot; + elem4

	if (!((filterParam1.length &gt; 0) &amp;&amp; (filterParam1 != &quot;undefined&quot;)))
	{
		filterParam1 = CreateVBEmpty();
	}
	
	if (!((filterParam2.length &gt; 0) &amp;&amp; (filterParam2 != &quot;undefined&quot;)))
	{
		filterParam2 = CreateVBEmpty();
	}
	
	if (!((filterParam3.length &gt; 0) &amp;&amp; (filterParam3 != &quot;undefined&quot;)))
	{
		filterParam3 = CreateVBEmpty();
	}
	
	if (!((filterParam4.length &gt; 0) &amp;&amp; (filterParam4 != &quot;undefined&quot;)))
	{
		filterParam4 = CreateVBEmpty();
	}	
	
	if (filterParam4 == &quot;PrimaryKeys&quot;) 
	{
		filterCriteriaArray[0] = filterParam1;
		filterCriteriaArray[1] = filterParam2;
		filterCriteriaArray[2] = filterParam3;		
	}
	else
	{
		filterCriteriaArray[0] = filterParam1;
		filterCriteriaArray[1] = filterParam2;
		filterCriteriaArray[2] = filterParam3;			
		filterCriteriaArray[3] = filterParam4;			
	}			
	return filterCriteriaArray;
}

function CreateMMConnection(ConnectionString,UserName,Password,Timeout)
{
	var Object;
	Object = new MMConnection(ConnectionString,UserName,Password,Timeout);
	return Object;
}

function MMConnection(ConnectionString,UserName,Password,Timeout)
{
	MMConnReconnect(this);
	this.isOpen = false;
	this.ConnectionString = ConnectionString;
	this.UserName		  = String(UserName);
	this.Password		  = String(Password);
	this.Connection		  = Server.CreateObject(&quot;ADODB.Connection&quot;);
	this.Connection.ConnectionTimeout = Timeout;
}


function MMConnReconnect(Object)
{
	Object.GetODBCDSNs				= ConnGetODBCDSNs;
	Object.Open						= ConnOpen;
	Object.GetTables				= ConnGetTables;
	Object.GetViews					= ConnGetViews;
	Object.GetProcedures			= ConnGetProcedures;
	Object.GetColumnsOfTable		= ConnGetColumns;
	Object.GetPrimaryKeysOfTable	= ConnGetPrimaryKeys;
	Object.GetParametersOfProcedure = ConnGetParametersOfProcedure;
	Object.ExecuteSQL				= ConnExecuteSQL;
	Object.ExecuteSP				= ConnExecuteSP;
	Object.ReturnsResultSet			= ConnReturnsResultSet;
	Object.SupportsProcedure		= ConnSupportsProcedure;
	Object.GetProviderTypes			= ConnGetProviderTypes;
	Object.HandleExceptions			= ConnHandleExceptions;
	Object.TestOpen					= ConnIsOpen;
	Object.Close					= ConnClose;
}


function ConnOpen()
{
	var theConnectionString = new String(this.ConnectionString);

	//  ????????????? OBSOLETE: begin ????????????????????????????????
	if (this.UserName &amp;&amp; this.UserName.length)
	{
		theConnectionString = theConnectionString + &quot;;uid=&quot; + this.UserName;
	}
	if (this.Password &amp;&amp; this.Password.length)
	{
		theConnectionString = theConnectionString + &quot;;pwd=&quot; + this.Password;
	}
	//  ????????????? OBSOLETE: end ????????????????????????????????

	//  The given connection string may not be formatted for OLE DB.  It may, for example,
	//  be a SQL Server connection string.  In such cases we need to morph it into
	//  an OLE DB connection string so it can be digested by the ADODB.Connection that
	//  we're using.
	//
	//  For now, we are only dealing with morphing SQL Server connection strings.  In the
	//  future, this logic may have to be expanded to deal with Oracle, Informix, etc. as
	//  those vendors make their own ASP.Net drivers available for use (circumventing
	//  the current need to go through OLE DB to access those databases).

	var dbType = Request(&quot;DATABASETYPE&quot;);
	if (dbType != null)
	{
		var strDBtype = new String(dbType);
		if ((strDBtype.length &gt; 0) &amp;&amp; (strDBtype.toLowerCase() == &quot;sqlserver&quot;))
		{
			if (theConnectionString.charAt(0) == &quot;\&quot;&quot;)
			{
				theConnectionString = &quot;\&quot;Provider=SQLOLEDB;&quot; + theConnectionString.substring(1);
			}
			else
			{
				theConnectionString = &quot;Provider=SQLOLEDB;&quot; + theConnectionString;
			}
		}
	}

	var aConn = ConnEval(theConnectionString);
	this.Connection.Open(aConn);
	this.isOpen = (this.Connection.State == adStateOpen);
}

function ConnIsOpen()
{
	var xmlOutput = &quot;&quot;;

	if (this.isOpen)
	{
		xmlOutput = xmlOutput + &quot;&lt;TEST status=&quot;;
		xmlOutput = xmlOutput + this.isOpen;
		xmlOutput = xmlOutput + &quot;&gt;&lt;/TEST&gt;&quot;;
	}

	return xmlOutput;
}

function ConnClose()
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		this.Connection.Close();
	}
}

function ConnGetTables(SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,&quot;&quot;,&quot;TABLE&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,&quot;&quot;,&quot;TABLE&quot;);		
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaTables,JSVariant));
	}
	
	return null;
}

function ConnGetViews(SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,&quot;&quot;,&quot;VIEW&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,&quot;&quot;,&quot;VIEW&quot;);		
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaTables,JSVariant));
	}

	return null;
}

function ConnGetProcedures(SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,&quot;&quot;,&quot;&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,&quot;&quot;,&quot;&quot;);				
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaProcedures,JSVariant));
	}

	return null;
}

function ConnGetColumns(TableName,SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,TableName,&quot;&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,TableName,&quot;&quot;);				
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaColumns,JSVariant));
	}

	return null;
}

function ConnGetPrimaryKeys(TableName,SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,TableName,&quot;PrimaryKeys&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,TableName,&quot;PrimaryKeys&quot;);				
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaPrimaryKeys,JSVariant));
	}

	return null;
}


function ConnGetParametersOfProcedure(ProcedureName,SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant = new VBArray(CreateVBArray(CatalogName,SchemaName,ProcedureName,&quot;&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,ProcedureName,&quot;&quot;);				
		return this.Connection.OpenSchema(adSchemaProcedureParameters,JSVariant);
	}

	return null;
}

function ConnExecuteSQL(aStatement,MaxRows)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		var oRecordset = Server.CreateObject(&quot;ADODB.Recordset&quot;);
		if (oRecordset)
		{
			aStatement = &quot;&quot; + aStatement;
			oRecordset.MaxRecords = MaxRows;
			oRecordset.Open(aStatement,this.Connection);
			return MarshallRecordsetIntoHTML(oRecordset);
		}
	}

	return null;
}

function ConnGetProviderTypes()
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		return MarshallRecordsetIntoHTML(this.Connection.OpenSchema(adSchemaProviderTypes));
	}

	return null;
}

function ConnExecuteSP(aProcStatement,TimeOut,Parameters)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		var oCommand = Server.CreateObject(&quot;ADODB.Command&quot;);

		aProcStatement = &quot;&quot; + aProcStatement;
		oCommand.CommandTimeout = TimeOut;
		oCommand.CommandText = aProcStatement;
		oCommand.CommandType = adCmdStoredProc;
		oCommand.ActiveConnection = this.Connection;

		Parameters = &quot;&quot; + Parameters;

		if (!Parameters.length)
		{
			if (oCommand)
			{
				return MarshallRecordsetIntoHTML(oCommand.Execute());
			}
		}
		else
		{
			//Substitute Parameters.
			var Params = Parameters;
			var ParamArray = new Array();

			if (Params &amp;&amp; Params != &quot;undefined&quot;)
			{
				var cSize = 0;
				for (;;)
				{
					var index = Params.indexOf(&quot;,&quot;);
					if (index == -1)
					{
						index = Params.length;
					}

					var name = Params.substring(0,index);

					Params = Params.substring(index+1,Params.length);
					index = Params.indexOf(&quot;,&quot;);
					if (index == -1)
					{
						index = Params.length;
					}

					var value = Params.substring(0,index);

					var Pair = new Object();

					Pair.name = name;
					Pair.value = value;

					ParamArray[cSize] = Pair;
					cSize++;

					if (index &gt;= Params.length)
					{
						break;
					}

					Params = Params.substring(index+1,Params.length);
				}


				if (oCommand.Parameters.Count == -1)
				{
					//Create Parameters
					var oRecordset = ConnGetParametersOfProcedure(aProcStatement);
					if (oRecordset)
					{
						var pCount=0;
						while (!oRecordset.EOF)
						{
							var pName    = oRecordset.Fields.Item(&quot;PARAMETER_NAME&quot;).Value;
							var pOrdinal = oRecordset.Fields.Item(&quot;ORDINAL_POSITION&quot;).Value;
							var pType	 = oRecordset.Fields.Item(&quot;PARAMETER_TYPE&quot;).Value;
							var pDataType = oRecordset.Fields.Item(&quot;DATA_TYPE&quot;).Value;
							switch (pDataType)
							{
								case adBinary:
								case adBSTR:
								case adChar:
								case adLongVarBinary:
								case adLongVarChar:
								case adLongVarWChar:
								case adLongVarChar:
								case adVarBinary:
								case adVarChar:
								case adVarWChar:
								{
									var pSize = oRecordset.Fields.Item(&quot;CHARACTER_MAXIMUM_LENGTH&quot;).Value;
								}
								default:
								{
									var pSize = null;
								}
							}

							if ((pType == adParamInput) || (pType == adParamInputOutput))
							{
								var pValue = ParamArray[pName];
								//if we could not find parameter by name ..try to find 
								//parameter by index.
								if (!pValue)
								{
									//try the case when the parameter is set by index.
									pStrCount = &quot;&quot; + pCount;
									pValue = ParamArray[pStrCount];
								}
								oCommand.CreateParameter(pName,pDataType,pType,pSize,pValue);
							}
							else
							{
								var pValue = null;
								oCommand.CreateParameter(pName,pDataType,pType,pSize,pValue);
							}
							oRecordset.MoveNext();
							pCount++;
						}
					}	
				 }
				 else
				 {
					for (var i =0 ; i &lt; ParamArray.length ; i++)
					{
						Pair = ParamArray[i];

						if (Pair.value)
						{
							var pIndex = &quot;&quot; + parseInt(Pair.name);

							if (pIndex == Pair.name)
							{
								var aParameter = oCommand.Parameters(parseInt(Pair.name));
							}
							else
							{
								var aParameter = oCommand.Parameters(Pair.name);
							}

							if (aParameter)
							{
								if ((aParameter.Direction == adParamInput) || (aParameter.Direction == adParamInputOutput))
								{
									aParameter.Value = Pair.value;
								}
							}
						}
					}
					return MarshallRecordsetIntoHTML(oCommand.Execute());
				 }
			}
		}
	}

	return null;
}

function ConnReturnsResultSet(ProcedureName,SchemaName,CatalogName)
{
	if (this.Connection &amp;&amp; this.isOpen)
	{
		//var VBVariant =  new VBArray(CreateVBArray(CatalogName,SchemaName,ProcedureName,&quot;&quot;));
		var JSVariant = CreateJSArray(CatalogName,SchemaName,ProcedureName,&quot;&quot;);						
		var oRecordset = this.Connection.OpenSchema(adSchemaProcedureColumns,JSVariant);

		var status = &quot;true&quot;;
		if (oRecordset.EOF) 
		{
			status = &quot;false&quot;;
		}

		var xmlOutput = &quot;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;RETURNSRESULTSET status=&quot;;
		xmlOutput = xmlOutput + status;
		xmlOutput = xmlOutput + &quot;&gt;&lt;/RETURNSRESULTSET&gt;&quot;;
		return xmlOutput;
	}
}

function ConnSupportsProcedure()
{	
	if (this.Connection &amp;&amp; this.isOpen)
	{
		var aProvider = &quot;&quot; + this.Connection.Provider;

		var status = &quot;true&quot;;

		if (aProvider.indexOf(&quot;Microsoft.Jet&quot;) != -1)
		{
			status = &quot;false&quot;;
		}

		if (aProvider.indexOf(&quot;MSDASQL&quot;)!=-1)
		{
			var ProviderTypes = this.Connection.OpenSchema(adSchemaProviderTypes);

			if (ProviderTypes.Fields.Count &gt; 0)
			{
				//Access
				aProviderType = ProviderTypes.Fields(0).Value;
				aProviderType = aProviderType.toLowerCase();

				if (aProviderType == &quot;guid&quot;)
				{
					status = &quot;false&quot;;
				}//Paradox/DBaseIII.
				else if (aProviderType == &quot;short&quot;)
				{
					status = &quot;false&quot;;
				}
				else if (aProviderType == &quot;image&quot;)
				{
					status = &quot;false&quot;;
				}
				else if (aProviderType == &quot;logical&quot;)
				{
					status = &quot;false&quot;;
				} //For FoxPro
				else if (aProviderType == &quot;l&quot;)
				{
					status = &quot;false&quot;;
				} //For MySQL....
				else if (aProviderType == &quot;tinyint&quot;)
				{
					status = &quot;false&quot;;
				}
			}
		}

		var xmlOutput = &quot;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;SUPPORTSPROCEDURE status=&quot;;
		xmlOutput = xmlOutput + status;
		xmlOutput = xmlOutput + &quot;&gt;&lt;/SUPPORTSPROCEDURE&gt;&quot;;
		return xmlOutput;
	}
}

function ConnHandleExceptions()
{
	var xmlOutput = &quot;&quot;;

	xmlOutput = xmlOutput + &quot;&lt;ERRORS&gt;&quot;;
	if (this.Connection)
	{
		var Errors = this.Connection.Errors;

		for (var i =0 ; i &lt; Errors.Count ; i++)
		{ 
			xmlOutput = xmlOutput + &quot;&lt;ERROR&quot;;

			xmlOutput = xmlOutput + &quot; Identification=\&quot;&quot;
			xmlOutput = xmlOutput + Errors(i).Number;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; Source=\&quot;&quot;
			xmlOutput = xmlOutput + Errors(i).Source;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; HelpFile=\&quot;&quot;
			xmlOutput = xmlOutput + Errors(i).HelpFile;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; HelpContext=\&quot;&quot;
			xmlOutput = xmlOutput + Errors(i).HelpContext;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot;&gt;&lt;DESCRIPTION&gt;&quot;;
			xmlOutput = xmlOutput + HTMLEncode(Errors(i).Description);
			xmlOutput = xmlOutput + &quot;&lt;/DESCRIPTION&gt;&lt;/ERROR&gt;&quot;;
		}
	}
	xmlOutput = xmlOutput + &quot;&lt;/ERRORS&gt;&quot;;

	return xmlOutput;
}

function MarshallRecordsetIntoHTML(aResultSet)
{
	var xmlOutput = &quot;&quot;;
	if (aResultSet)
	{
		xmlOutput = xmlOutput + &quot;&lt;RESULTSET&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;FIELDS&gt;&quot;;

		for(var i=0 ;i &lt; aResultSet.Fields.Count ; i++)
		{
			xmlOutput = xmlOutput + &quot;&lt;FIELD&quot;;

			xmlOutput = xmlOutput + &quot; type=\&quot;&quot;;
			xmlOutput = xmlOutput + aResultSet.Fields(i).Type;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; definedSize=\&quot;&quot;;
			xmlOutput = xmlOutput + aResultSet.Fields(i).DefinedSize;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;


			xmlOutput = xmlOutput + &quot; actualsize=\&quot;&quot;;

			if (!aResultSet.EOF)
			{
				xmlOutput = xmlOutput + aResultSet.Fields(i).ActualSize;
			}
			else
			{
				xmlOutput = xmlOutput + &quot;-1&quot;;
			}

			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; precision=\&quot;&quot;;
			xmlOutput = xmlOutput + aResultSet.Fields(i).Precision;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot; scale=\&quot;&quot;;
			xmlOutput = xmlOutput + aResultSet.Fields(i).NumericScale;
			xmlOutput = xmlOutput + &quot;\&quot;&quot;;

			xmlOutput = xmlOutput + &quot;&gt;&quot;;

			xmlOutput = xmlOutput + &quot;&lt;NAME&gt;&quot;;
			xmlOutput = xmlOutput + HTMLEncode(aResultSet.Fields(i).Name);
			xmlOutput = xmlOutput + &quot;&lt;/NAME&gt;&quot;;
	
			xmlOutput = xmlOutput + &quot;&lt;/FIELD&gt;&quot;;

		}

		xmlOutput = xmlOutput + &quot;&lt;/FIELDS&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;ROWS&gt;&quot;;

		while (!aResultSet.EOF)
		{
			xmlOutput = xmlOutput + &quot;&lt;ROW&gt;&quot;;
			for(var i=0 ;i &lt; aResultSet.Fields.Count ; i++)
			{
				xmlOutput = xmlOutput + &quot;&lt;VALUE&gt;&quot;;
				var aValue = aResultSet.Fields(i).Value;
				if (aValue &amp;&amp; aValue.length)
				{
					xmlOutput = xmlOutput + HTMLEncode(aValue);
				}
				else
				{
					xmlOutput = xmlOutput + aResultSet.Fields(i).Value;
				}
				xmlOutput = xmlOutput + &quot;&lt;/VALUE&gt;&quot;;
			}
			xmlOutput = xmlOutput + &quot;&lt;/ROW&gt;&quot;;
			aResultSet.MoveNext()
		}

		xmlOutput = xmlOutput + &quot;&lt;/ROWS&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;/RESULTSET&gt;&quot;;
		aResultSet.Close();
	}
	return xmlOutput;
}

function ConnGetODBCDSNs()
{
   var fso = new ActiveXObject(&quot;Scripting.FileSystemObject&quot;);
   var dsnList=new Array();
   var OdbcIniFile = null;
   var odbcFileName = &quot;&quot;;
   var e = new Enumerator(fso.Drives);
   var xmlOutput=&quot;&quot;;
   for (; !e.atEnd(); e.moveNext())
   {
	  var x = e.item();

	  //Skip Drive that not ready...
	  if (!fso.DriveExists(x) || !x.IsReady || (x.DriveType==1))
	  {
		continue;
	  }

	  var driverLetter = x.DriveLetter;
	  var WinFolderName1 = driverLetter + &quot;:\\&quot; + &quot;Winnt&quot;;
	  var WinFolderName2 = driverLetter + &quot;:\\&quot; + &quot;Windows&quot;;
	  if (fso.FolderExists(WinFolderName1))
	  {
         //Get the ODBC FileName.
		odbcFileName = WinFolderName1 + &quot;\\&quot; + &quot;ODBC.INI&quot;;
		break;
	  }
	  else if (fso.FolderExists(WinFolderName2))
	  {
         //Get the ODBC FileName.
		odbcFileName = WinFolderName2 + &quot;\\&quot; + &quot;ODBC.INI&quot;;
		break;
	  }
   }

   if (odbcFileName.length &gt; 0)
   {
	  if (fso.FileExists(odbcFileName))
	  {
	     //  Don't use the FSO's OpenTextFile method because it hangs Windows XP.
		 //  Work around that Windows bug by using the equivalently functional Stream
		 //  object.

		 OdbcIniFile = Server.CreateObject(&quot;ADODB.Stream&quot;);
		 OdbcIniFile.Type = 2;

		 //  Initially, we will try to use the charset associated with the codepage
		 //  for this ASP session.  This should be the default charset for this
		 //  web site or for this server.  This helps in cases where the OS is in,
		 //  say, Japanese.  However, we have found (empiracally) that on some
		 //  computers this causes the stream to be unreadable.  So, we will
		 //  (below) test the stream.  If it looks bogus, we will default to using
		 //  &quot;ascii&quot; as the charset.

		 OdbcIniFile.Charset = getCharsetStringFromCodepageNumber(currentSessionCodePage);
		 OdbcIniFile.Open();
		 OdbcIniFile.LoadFromFile(odbcFileName);

		 if (OdbcIniFile &amp;&amp; (!OdbcIniFile.EOS))
		 {
			 //  Test to see if we can, in fact, read the stream.

			 var aLine = OdbcIniFile.ReadText(-2);

			 //  Reset the stream's position so if we can read it we haven't lost the test line
			 //  that we just read.

			 OdbcIniFile.Position = 0;

			 if (aLine == &quot;&quot;)
			 {
				 //  It appears that the stream is bogus.  Try reading it as ASCII.

				 OdbcIniFile.Close();
				 OdbcIniFile.Type = 2;
				 OdbcIniFile.Charset = &quot;ascii&quot;;
				 OdbcIniFile.Open();
				 OdbcIniFile.LoadFromFile(odbcFileName);
			 }
		 }
      }
   }

   if (OdbcIniFile)
   {
	 var i =0;
	 var odbcSection = -1;
	 while (!OdbcIniFile.EOS)
	 {
		 var aLine = OdbcIniFile.ReadText(-2);
		 var odbcSection = aLine.indexOf(&quot;[ODBC&quot;);
		 if (odbcSection != -1)
		 {
			break;
		 }
	 }
	 if (odbcSection != -1)
	 {
		 while (!OdbcIniFile.EOS)
		 {
			 var aLine = OdbcIniFile.ReadText(-2);
			 if (aLine.charAt(0) != &quot;[&quot;)
			 {
				 var anIndex = aLine.indexOf(&quot;=&quot;);
				 if (anIndex != -1)
				 {
					var dsnName = aLine.substring(0,anIndex);
					dsnList[dsnList.length]= dsnName;
				 }
			}
			else
			{
				break;
			}
		 }
	  }
	 OdbcIniFile.Close();
   }

   xmlOutput = &quot;&lt;RESULTSET&gt;&quot;;
   if (dsnList.length)
   {
		xmlOutput = xmlOutput + &quot;&lt;FIELDS&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;FIELD&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;NAME&gt;NAME&lt;/NAME&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;/FIELD&gt;&quot;;
		xmlOutput = xmlOutput + &quot;&lt;/FIELDS&gt;&quot;;

		xmlOutput = xmlOutput + &quot;&lt;ROWS&gt;&quot;;
		for (var i =0 ; i &lt; dsnList.length; i++)
		{
			xmlOutput = xmlOutput + &quot;&lt;ROW&gt;&quot;;
			xmlOutput = xmlOutput + &quot;&lt;VALUE&gt;&quot;;
			xmlOutput = xmlOutput + HTMLEncode(dsnList[i]);
			xmlOutput = xmlOutput + &quot;&lt;/VALUE&gt;&quot;;
			xmlOutput = xmlOutput + &quot;&lt;/ROW&gt;&quot;;
		}
		xmlOutput = xmlOutput + &quot;&lt;/ROWS&gt;&quot;;
   }
   xmlOutput = xmlOutput + &quot;&lt;/RESULTSET&gt;&quot;;
   return xmlOutput;
}

function ConnEval(ConnString)
{
	ConnString = &quot;&quot; + ConnString;
	if (ConnString.length)
	{
		var delimiter = (ConnString.indexOf(&quot;+&quot;) != -1) ? &quot;+&quot; : &quot;&amp;&quot;;
		var aConnString = &quot;&quot;;

		for (;;)
		{
			var index = ConnString.indexOf(delimiter);

			if (index == -1)
			{
				index = ConnString.length;
			}

			var aStringlet	= ConnString.substring(0,index);

			try
			{
				aConnString = aConnString + eval(aStringlet);
			}
			catch (e)
			{
				aConnString = ConnString;
				return aConnString;
			}

			if (index &gt;= ConnString.length)
			{
				break;
			}

			ConnString = ConnString.substring(index+1,ConnString.length);
		}

		return aConnString;
	}

	return ConnString;
}

function HTMLEncode(TheString)
{
	if ( Session.CodePage == 65001 )
	{
		return TheString;
	}
	else
	{
		return Server.HTMLEncode(TheString);
	}
}

function getCharsetStringFromCodepageNumber(nCodePage)
{
	var strCharSet = &quot;ascii&quot;;

	switch (nCodePage)
	{
		case 20106: strCharSet = &quot;DIN_66003&quot;; break;
		case 20108: strCharSet = &quot;NS_4551-1&quot;; break;
		case 20107: strCharSet = &quot;SEN_850200_B&quot;; break;
		case 50932: strCharSet = &quot;_autodetect&quot;; break;
		case 50949: strCharSet = &quot;_autodetect_kr&quot;; break;
		case 950: strCharSet = &quot;big5&quot;; break;
		case 50221: strCharSet = &quot;csISO2022JP&quot;; break;
		case 51949: strCharSet = &quot;euc-kr&quot;; break;
		case 936: strCharSet = &quot;gb2312&quot;; break;
		case 52936: strCharSet = &quot;hz-gb-2312&quot;; break;
		case 852: strCharSet = &quot;ibm852&quot;; break;
		case 866: strCharSet = &quot;ibm866&quot;; break;
		case 20105: strCharSet = &quot;irv&quot;; break;
		case 50220: strCharSet = &quot;iso-2022-jp&quot;; break;
		case 50222: strCharSet = &quot;iso-2022-jp&quot;; break;
		case 50225: strCharSet = &quot;iso-2022-kr&quot;; break;
		case 1252: strCharSet = &quot;iso-8859-1&quot;; break;
		case 28591: strCharSet = &quot;iso-8859-1&quot;; break;
		case 28592: strCharSet = &quot;iso-8859-2&quot;; break;
		case 28593: strCharSet = &quot;iso-8859-3&quot;; break;
		case 28594: strCharSet = &quot;iso-8859-4&quot;; break;
		case 28595: strCharSet = &quot;iso-8859-5&quot;; break;
		case 28596: strCharSet = &quot;iso-8859-6&quot;; break;
		case 28597: strCharSet = &quot;iso-8859-7&quot;; break;
		case 28598: strCharSet = &quot;iso-8859-8&quot;; break;
		case 20866: strCharSet = &quot;koi8-r&quot;; break;
		case 949: strCharSet = &quot;ks_c_5601&quot;; break;
		case 932: strCharSet = &quot;shift-jis&quot;; break;
		case 1200: strCharSet = &quot;unicode&quot;; break;
		case 1201: strCharSet = &quot;unicodeFEFF&quot;; break;
		case 65000: strCharSet = &quot;utf-7&quot;; break;
		case 65001: strCharSet = &quot;utf-8&quot;; break;
		case 1250: strCharSet = &quot;windows-1250&quot;; break;
		case 1251: strCharSet = &quot;windows-1251&quot;; break;
		case 1252: strCharSet = &quot;windows-1252&quot;; break;
		case 1253: strCharSet = &quot;windows-1253&quot;; break;
		case 1254: strCharSet = &quot;windows-1254&quot;; break;
		case 1255: strCharSet = &quot;windows-1255&quot;; break;
		case 1256: strCharSet = &quot;windows-1256&quot;; break;
		case 1257: strCharSet = &quot;windows-1257&quot;; break;
		case 1258: strCharSet = &quot;windows-1258&quot;; break;
		case 874: strCharSet = &quot;windows-874&quot;; break;
		case 51932: strCharSet = &quot;x-euc&quot;; break;
		case 50000: strCharSet = &quot;x-user-defined&quot;; break;
	}

	return strCharSet;
}

&lt;/SCRIPT&gt;

&lt;SCRIPT LANGUAGE=JavaScript RUNAT=Server&gt;

//---- ObjectStateEnum Values ----
var adStateClosed = 0x00000000;
var adStateOpen = 0x00000001;
var adStateConnecting = 0x00000002;
var adStateExecuting = 0x00000004;
var adStateFetching = 0x00000008;

//---- DataTypeEnum Values ----
var adEmpty = 0;
var adTinyInt = 16;
var adSmallInt = 2;
var adInteger = 3;
var adBigInt = 20;
var adUnsignedTinyInt = 17;
var adUnsignedSmallInt = 18;
var adUnsignedInt = 19;
var adUnsignedBigInt = 21;
var adSingle = 4;
var adDouble = 5;
var adCurrency = 6;
var adDecimal = 14;
var adNumeric = 131;
var adBoolean = 11;
var adError = 10;
var adUserDefined = 132;
var adVariant = 12;
var adIDispatch = 9;
var adIUnknown = 13;
var adGUID = 72;
var adDate = 7;
var adDBDate = 133;
var adDBTime = 134;
var adDBTimeStamp = 135;
var adBSTR = 8;
var adChar = 129;
var adVarChar = 200;
var adLongVarChar = 201;
var adWChar = 130;
var adVarWChar = 202;
var adLongVarWChar = 203;
var adBinary = 128;
var adVarBinary = 204;
var adLongVarBinary = 205;
var adChapter = 136;
var adFileTime = 64;
var adDBFileTime = 137;
var adPropVariant = 138;
var adVarNumeric = 139;

//---- PositionEnum Values ----
var adPosUnknown = -1;
var adPosBOF = -2;
var adPosEOF = -3;

//---- ParameterDirectionEnum Values ----
var adParamUnknown = 0x0000;
var adParamInput = 0x0001;
var adParamOutput = 0x0002;
var adParamInputOutput = 0x0003;
var adParamReturnValue = 0x0004;

//---- CommandTypeEnum Values ----
var adCmdUnknown = 0x0008;
var adCmdText = 0x0001;
var adCmdTable = 0x0002;
var adCmdStoredProc = 0x0004;
var adCmdFile = 0x0100;
var adCmdTableDirect = 0x0200;


//---- SchemaEnum Values ----
var adSchemaProviderSpecific = -1;
var adSchemaAsserts = 0;
var adSchemaCatalogs = 1;
var adSchemaCharacterSets = 2;
var adSchemaCollations = 3;
var adSchemaColumns = 4;
var adSchemaCheckConstraints = 5;
var adSchemaConstraintColumnUsage = 6;
var adSchemaConstraintTableUsage = 7;
var adSchemaKeyColumnUsage = 8;
var adSchemaReferentialConstraints = 9;
var adSchemaTableConstraints = 10;
var adSchemaColumnsDomainUsage = 11;
var adSchemaIndexes = 12;
var adSchemaColumnPrivileges = 13;
var adSchemaTablePrivileges = 14;
var adSchemaUsagePrivileges = 15;
var adSchemaProcedures = 16;
var adSchemaSchemata = 17;
var adSchemaSQLLanguages = 18;
var adSchemaStatistics = 19;
var adSchemaTables = 20;
var adSchemaTranslations = 21;
var adSchemaProviderTypes = 22;
var adSchemaViews = 23;
var adSchemaViewColumnUsage = 24;
var adSchemaViewTableUsage = 25;
var adSchemaProcedureParameters = 26;
var adSchemaForeignKeys = 27;
var adSchemaPrimaryKeys = 28;
var adSchemaProcedureColumns = 29;
var adSchemaDBInfoKeywords = 30;
var adSchemaDBInfoLiterals = 31;
var adSchemaCubes = 32;
var adSchemaDimensions = 33;
var adSchemaHierarchies = 34;
var adSchemaLevels = 35;
var adSchemaMeasures = 36;
var adSchemaProperties = 37;
var adSchemaMembers = 38;
&lt;/SCRIPT&gt;


</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5C%5FmmServerScripts">Íàçàä</a>]