asp自動生成json,asp生成excel

本文目錄一覽：

• 1、用asp怎麼將查詢結果轉化為json
• 2、asp.net 生成json文件
• 3、ASP怎樣生成json格式?

用asp怎麼將查詢結果轉化為json

你說的是ASP VBS嗎？

我這裡有一個json編碼函數

‘Json編碼 by Shirne

‘支持數組，Dictionary,Recordset等對象直接編碼，支持數組中　key”:”value格式

Function JsonEncode(json)

Dim i, l, key, str

str = “”

If IsArray(json) Then

l = UBound(json)

If TypeName(json(0))=”String” Then

If InStr(json(0),”:”)0 Then

str = str  “{“

For i=0 To l

str = str  “”””  Left(json(i),InStr(json(i),”:”)-1) “””:”

str = str  “”””  EncodeJSON(Mid(json(i),InStr(json(i),”:”)+1)) “”””

If il Then str = str  “,”

Next

str = str  “}”

JsonEncode = str

Exit Function

End If

End If

str = str  “[“

For i=0 To l

str = str  JsonEncode(json(i))

If il Then str = str  “,”

Next

str = str  “]”

ElseIf TypeName(json)=”Dictionary” Then

l = json.Count

i = 0

str = str  “{“

For Each key In json

i = i + 1

str = str  “”””  key “””:”

str = str  JsonEncode(json(key))

If il Then str = str  “,”

Next

str = str  “}”

ElseIf TypeName(json)=”Recordset” Then

Dim Field

l = json.Fields.Count

str = str  “[“

Do Until json.EOF

i = 0

str = str  “{“

For Each Field In json.Fields

i = i + 1

str = str  “”””  LCase(Field.Name) “””:”

‘If UCase(Field.Name)=”IP” Then

‘ str = str  JsonEncode(IPMask(Field.Value))

‘Else

str = str  JsonEncode(Field.Value)

‘End If

If il Then str = str  “,”

Next

str = str  “}”

json.MoveNext

If Not json.EOF Then str = str  “,”

Loop

str = str  “]”

Else

Select Case VarType(json)

Case 2,3,4,5,6

str = str  json

Case Else

str = str  “”””  EncodeJSON(json””) “”””

End Select

End If

JsonEncode = str

End Function

用法:

Response.Write JsonEncode(Array(“state:”stat, “message:”msg, “url:”param))

//或

Response.Write JsonEncode(dictionaryObject)

asp.net 生成json文件

json有自己的格式，你就按照這個格式寫出字符串 然後response出去個文件流 名字是xx.json就可以

ASP怎樣生成json格式?

{

“box”: {

“name”: “%=name%”, ‘讀取數據庫記錄里的name值

“value”:%=value%”‘ 讀取數據庫記錄里的value值

}

讀到數據後輸出到頁面里就好了