Json to SQL ASP经典

问题描述：

无法弄清楚如何使用ASP Classic解决此问题，外部服务器会向我发送一些Json到我的网站前任. www.mypage.com/getjson.asp

Can´t figure out how to solve this with ASP Classic, an external server will send me some Json to my site ex. www.mypage.com/getjson.asp

{"Userid":"112233","Member":Tom}

我该如何获取并检查Userid是否已存在，否则将其放入SQL

How can I fetch this and check if the Userid already exist, otherwise put it in the SQL

如果该用户名存在，我只需要回答

If the userid exist I just have to answer

response.Write "{""Userid"": true}"

我可以将其转换"为查询字符串或其他内容吗?

Can I "convert" it to a querystring or somthing ?

感谢您提供的所有帮助，但我无法与该主题中的技巧一起使用但是我设法用这段代码得到了整个字符串

Thanks for all help, but I coundn´t get it to work with the tips in this thread But I managed to get the whole string whit this code

bytecount = Request.TotalBytes
bytes = Request.BinaryRead(bytecount)

Set stream = Server.CreateObject("ADODB.Stream")
    stream.Type = 1              
    stream.Open()                                   
        stream.Write(bytes)
        stream.Position = 0                             
        stream.Type = 2                 
        stream.Charset = "utf-8"                      
        s = stream.ReadText()               
    stream.Close()
Set stream = nothing
Response.Write =(s)

但是现在我需要弄清楚如何清理和拆分它，请注意，会员没有qoutes

But now I need to figure put how to cleanup and split this, note that Member don´t have qoutes

{"Userid":"00004547552009","Member":1,"id":"0060a80040d9"}

答

如何使用我的实用程序类: https://github.com/rcdmk/aspJSON

And what about use my utility class: https://github.com/rcdmk/aspJSON

自述文件中的一些示例:

Some examples from the README:

' instantiate the class
Dim oJSON = New JSON

' add properties
oJSON.Add "prop1", "someString"
oJSON.Add "prop2", 12.3
oJSON.Add "prop3", Array(1, 2, "three")

' change some values
oJSON.Change "prop1", "someOtherString"
oJSON.Change "prop4", "thisWillBeCreated" ' this property doen't exists and will be created automagically

' get the values
Response.Write oJSON("prop1") & "<br>"
Response.Write oJSON("prop2") & "<br>"
Response.Write oJSON("prop3") & "<br>"
Response.Write oJSON("prop4") & "<br>"

' get the JSON formatted output
Dim jsonSting
jsonString = oJSON.Serialize() ' this will contain the string representation of the JSON object

oJSON.Write() ' this will write the output to the Response - equivalent to: Response.Write oJSON.Serialize()

' load and parse some JSON formatted string
jsonString = "{ ""strings"" : ""valorTexto"", ""numbers"": 123.456, ""arrays"": [1, ""2"", 3.4, [5, 6, [7, 8]]], ""objects"": { ""prop1"": ""outroTexto"", ""prop2"": [ { ""id"": 1, ""name"": ""item1"" }, { ""id"": 2, ""name"": ""item2"", ""teste"": { ""maisum"": [1, 2, 3] } } ] } }" ' double quotes here because of the VBScript quote scaping

oJSON.Parse(jsonString) ' set this to a variable if your string to load can be an Array, since the function returns the parsed object and arrays are parsed to JSONarray objects
' if the string represents an object, the current object is returned so there is not need to set the return to a new variable

oJSON.Write()

一段时间前，我已经添加了一些方法来加载记录集和二维数组.这可以帮助从数据库编写JSON:

I've added methods to load recordsets and bidimensional arrays some time ago. This can help a lot in writing JSON from the database:

' load records from an ADODB.Recordset
dim cn, rs
set cn = CreateObject("ADODB.Connection")
cn.Open "yourConnectionStringGoesHere"

set rs = cn.execute("SELECT id, nome, valor FROM pedidos ORDER BY id ASC")
' this could also be:
' set rs = CreateObject("ADODB.Recordset")
' rs.Open "SELECT id, nome, valor FROM pedidos ORDER BY id ASC", cn 

JSON.LoadRecordset rs
JSONarr.LoadRecordset rs

rs.Close
cn.Close
set rs = Nothing
set cn = Nothing

JSON.Write()        ' outputs: {"data":[{"id":1,"nome":"nome 1","valor":10.99},{"id":2,"nome":"nome 2","valor":19.1}]}
JSONarr.Write()     ' outputs: [{"id":1,"nome":"nome 1","valor":10.99},{"id":2,"nome":"nome 2","valor":19.1}]

相关推荐