Jscript ---> VBscript - "översättning"

4 svar · 226 visningar · startad av solbulle 7 mars 2002

solbulleMedlem sedan mars 20015 287 inlägg

Trådstart7 mars 2002 20:23#1

Skulle man kunna få hjälp med att skriva om detta till vbscript (?) om det över huvud taget är möjligt?


<%@ language="JScript" %>
<%
function BinToText(varBinData, intDataSizeInBytes){
  var adFldLong = 0X00000080
  var adVarChar = 200
  var objRS = Server.CreateObject("ADODB.Recordset");
  
  objRS.Fields.Append("txt", adVarChar, intDataSizeInBytes, adFldLong);
  objRS.Open();
  
  objRS.AddNew()
  objRS.Fields("txt").AppendChunk(varBinData);
  var tmp = objRS("txt").Value
  objRS.Close();
  delete objRS;
  return tmp;
}
%>

solbulleMedlem sedan mars 20015 287 inlägg

7 mars 2002 21:05#2

Inte riktigt aktuellt längre, om ingen anser sig svänga ihop en lösning lite så där jätte-enkelt.

Tack för visat intresse.

LarsGMedlem sedan dec. 200012 464 inlägg

7 mars 2002 21:48#3

<%
function BinToText(varBinData, intDataSizeInBytes)
  const adFldLong = 128
  const adVarChar = 200
  set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  objRS.Open
  
  objRS.AddNew
  objRS.Fields("txt").AppendChunk(varBinData)
  tmp = objRS("txt").Value
  objRS.Close
  BinToText = tmp
end function
%>

PaceMedlem sedan juni 20019 024 inlägg

7 mars 2002 21:49#4

Hmm, är inte så hemma på ADO.Recordset så det får du nog ändra ... direktöversatt och inte testat.

Function BinToText(strBinData, intDataSizeInBytes)
  Dim tmp, adFldLong, adVarChar, objRS

  adFldLong = "0X00000080"
  adVarChar = 200
  Set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Open SQL, objConnection, 3, 3, 1

  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  
  objRS.AddNew()
  objRS.Fields("txt").AppendChunk(strBinData)
  Set tmp = objRS("txt").Value
  objRS.Close()
  Set objRS = nothing

  BinToText = tmp
End Function

solbulleMedlem sedan mars 20015 287 inlägg

7 mars 2002 22:04#5

Jag bugar och bockar, LarsG's variant fungerade klockrent.

Som synes är det inte mycket som skiljer de två "översättningarna" åt.

Tackar, tackar.