|
<%@Language="VBScript" CodePage="65001" %>
<%Option Explicit %>
<script language="JScript" runat="server" src='javascript/json2.js'></script>
<!-- #include file="include/JSON_2.0.4.asp" -->
<%
Dim Action
Action = Request("Action")
Select Case Action
Case "Load" Load()
Case "Save" Save()
Case Else Response.Write("Unknown Request")
End Select
Sub Load()
Dim ID
Dim JSONData
Set JSONData = jsObject()
'Replace these lines with database access code
JSONData("firstname") = Session("FirstName")
JSONData("lastname") = Session("LastName")
Response.Write(JSONData.jsString())
End Sub
Sub Save()
Dim JSONData
Set JSONData = JSON.Parse(Request.Form("JSON"))
'Replace these lines with database access code
Session("FirstName") = JSONData.firstname
Session("LastName") = JSONData.lastname
End Sub
%>
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
Cayen Systems develops online data management software for non-profit and education organizations with a team of experienced and dedicated individuals located in Milwaukee, Wisconsin. We provide the most comprehensive software solutions for information management, tracking and data reporting available today. Specializing in developing easy to use and efficient solutions, we consistently help our clients increase their productivity and reduce the costs of program management.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.