jsonSubmit.html

1)能过 javascript函数驱动请求页

<!DOCTYPE html>
<html>
<head>
	<title>把js的json 传递给asp文件接收并打印</title>
	<meta charset="utf-8">
</head>
<body>
	<h3 onclick="queryStudent()">请求学生</h3>	
	<script type="text/javascript">
		function queryStudent() {
			// body...
		var student = { name:"张三同学",  age:18, city:"江苏宿迁" };
		var myJSON =  JSON.stringify(student);
　　　　　　　　　　//设置接收上传json文件路径
		 window.location="http://localhost:8078/test/jsonPrint.asp?student="+myJSON
		}
		
	</script>
</body>
</html>

 2)jsonPrint.asp

 接收JSON并解析打印出来对印子项

<!DOCTYPE html>
<%
    dim student
    student=request("student") 
%>
<html>
<head>
    <title>json return</title>
    <meta charset="utf-8">
</head>
<body>
<%
 '实现读取解析方法自定义函数
Dim scriptCtrl  
Function parseJSON(str)  
    If Not IsObject(scriptCtrl) Then  
        Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")  
        scriptCtrl.Language = "JScript"  
        scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"  
    End If  
    scriptCtrl.ExecuteStatement "result = " & str & ";"  
    Set parseJSON = scriptCtrl.CodeObject.result  
End Function  
%>
<%
    set stuJSON=parseJSON(student)
    Response.Write("</h2>学生json原文:"+student+"</h2><br/>")
    response.Write("<h2>学生姓名:"+stuJSON.name+"</h2>")
    response.Write("<h2>学生姓名:"+stuJSON.name+"</h2>")
    response.Write("<h2>学生姓名:"+stuJSON.name+"</h2>")
    set stuJSON=nothing
%>
</body>
</html>