Web服務＆經典Asp

Question

我有一個工作任務，使用Web服務，使基於經典Asp的網站之間的通信基於Android平臺的應用程序，以創建函數與參數日期，從中提供數據BD，我沒有任何想法如何開始，你可以給我一個例子或教程遵循？

Answer 1

你最簡單的選擇是生產JSON（它可以很容易地通過了android側被消耗）是這樣的：

ASP「服務」

<!-- 
this is one example of a library of json helpers that you can use. 
You can get it from this page 
http://www.webdevbros.net/2007/04/26/generate-json-from-asp-datatypes/ 
http://www.webdevbros.net/wp-content/uploads/2008/07/json151.zip 
save the downloaded json.asp file in the same folder as your .asp 
--> 

<!--#include file="json.asp" --> 

<% 
    REM 1. Create and populate ADO Recordset from database 
    REM Note: I am providing just an example and you might 
    REM ant to look into using a more appropriate command type 
    REM or cursor type when populating your recordset   

    Set conn = Server.CreateObject("ADODB.Connection") 
    conn.Open "put your connection string here" 
    Set cmd = Server.CreateObject("ADODB.Command") 
    cmd.CommandType = adCmdText 'note must have this constant defined in scope' 
    Set cmdTemp.ActiveConnection = conn 

    cmd.CommandText = "put your SQL here; be careful to protect against SQL injections" 

    Set rs = Server.CreateObject("ADODB.Recordset") 

    rs.Open cmd, ,adOpenForwardOnly,adLockReadOnly 'note make sure these constants are defined in scope' 

    REM 2. Prepare json 
    Dim jsonObject 

    Set jsonObject = New JSON 'JSON class is in the include file json.asp' 
    jsonResult = jsonObject.toJSON(Empty, rs, False) 'You may have to play with the parameters here, if the way json is formatted does not suit you' 
                'check the documentation of json.asp library' 

    REM 3. stream json to client 
    Response.ContentType = "application/json" 
    Response.Write jsonResult 
%> 

你可以找到更多的圖書館，幫助格式的值或結構轉換爲JSON：只需在SO或Google上搜索「經典ASP」+ JSON即可。 Here's one library需要vbscript/ASP結構並以JSON格式輸出。看看SQL示例。

檢查這個SO thread更多的「經典」的ASP和JSON