Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\_mmServerScripts\MMHTTPDB.asp</i><br><form method=post action="edit.asp?action=save&dir=\_mmServerScripts&file=MMHTTPDB.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@LANGUAGE=&quot;VBScript&quot;%&gt;
&lt;%
currentSessionCodePage = Session.CodePage
svr = Request.ServerVariables(&quot;SERVER_SOFTWARE&quot;)
ix = Instr(svr, &quot;/&quot;)
verStr = right(svr, len(svr)-ix)
Dim verEnd
verEnd = len(verStr)
For i = 1 To len(verStr)
  char = Mid(verStr, i, 1)
  if char &gt;= &quot;0&quot; And char &lt;= &quot;9&quot; Then
    verEnd = i
  Else 
    Exit For
  End if
Next
verStr = Left(verStr, verEnd)
ver = CInt(verStr)
if ver &gt; 4 then
	Session.CodePage=65001
end if
%&gt;
&lt;HTML&gt;
&lt;!--#include file =&quot;MMHTTPDB.js&quot;--&gt;
&lt;%
On Error Resume Next
Set oConn = CreateMMConnection(Request(&quot;ConnectionString&quot;),Request(&quot;UserName&quot;),Request(&quot;Password&quot;),Request(&quot;Timeout&quot;))
Dim opCode
opCode = CStr(Request(&quot;opCode&quot;))
if (Len(opCode) AND (opCode &lt;&gt; &quot;undefined&quot;)) then
	if (opCode = &quot;GetODBCDSNs&quot;) then
		Response.Write(oConn.GetODBCDSNs())
	elseif (opCode = &quot;GetTables&quot;) then
		oConn.Open()
		Response.Write(oConn.GetTables(Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	elseif (opCode = &quot;GetViews&quot;) then
		oConn.Open()
		Response.Write(oConn.GetViews(Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	elseif (opCode = &quot;GetProcedures&quot;) then
		oConn.Open()
		Response.Write(oConn.GetProcedures(Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	elseif (opCode = &quot;GetColsOfTable&quot;) then
		oConn.Open()
		Response.Write(oConn.GetColumnsOfTable(Request(&quot;TableName&quot;),Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	elseif (opCode = &quot;GetParametersOfProcedure&quot;) then
		oConn.Open()
		Response.Write(MarshallRecordsetIntoHTML(oConn.GetParametersOfProcedure(Request(&quot;ProcName&quot;),Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;))))
	elseif (opCode = &quot;ExecuteSQL&quot;) then
		oConn.Open()
		Response.Write(oConn.ExecuteSQL(Request(&quot;SQL&quot;),Request(&quot;MaxRows&quot;)))
	elseif (opCode = &quot;ExecuteSP&quot;) then
		oConn.Open()
		Response.Write(oConn.ExecuteSP(Request(&quot;ExecProcName&quot;),0,Request(&quot;ExecProcParameters&quot;)))
	elseif (opCode = &quot;ReturnsResultset&quot;) then
		oConn.Open()
		Response.Write(oConn.ReturnsResultSet(Request(&quot;RRProcName&quot;),Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	elseif (opCode = &quot;SupportsProcedure&quot;) then
		oConn.Open()
		Response.Write(oConn.SupportsProcedure())
	elseif (opCode =  &quot;GetProviderTypes&quot;) then
		oConn.Open()
		Response.Write(oConn.GetProviderTypes())
	elseif (opCode = &quot;IsOpen&quot;) then
		oConn.Open()
		Response.Write(oConn.TestOpen())
	elseif (opCode = &quot;GetKeysOfTable&quot;) then
		oConn.Open()
		Response.Write(oConn.GetPrimaryKeysOfTable(Request(&quot;TableName&quot;),Request(&quot;Schema&quot;),Request(&quot;Catalog&quot;)))
	end if

	if Err then
		Response.Write(oConn.HandleExceptions())
	end if

	oConn.Close()
end if

Session.CodePage = currentSessionCodePage

%&gt;
&lt;/HTML&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5C%5FmmServerScripts">Íàçàä</a>]