日期:2014-05-16 浏览次数:21170 次
v=cstr(request.form)
response.wrrie v
sJSPath = sPrjPath & "web\js\jsonparser.js"
Set oFS = CreateObject("Scripting.FileSystemObject")
If oFS.FileExists(sJSPath) Then
Set oFile = oFS.OpenTextFile(sJSPath, 1, False, 0)
sJSText = oFile.ReadAll()
oFile.Close
Set oFile = Nothing
End If
Set oHost = CreateObject("newObjects.Scphost.ScpMan2")
With oHost
.LoadEngine "JScript"
.AddText sJSText
.Run()
Set oDic = .script.getDic(sJSON)
End With
Set oHost = Nothing
function getDic(s){
var obj = eval("(" + s + ")");
var dic = new ActiveXObject("newobjects.utilctls.VarDictionary");
with(dic){
allowUnnamedValues = true;
allowDuplicateNames = true;