<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>test json parse huoshan video </title>
<style>
a.aaa{
display:block;
display:inline;
}
a.aaa img{
49%;
}
</style>
</head>
<body>
<script type="text/javascript">
function test(str){
}
</script>
<form method="get">
<p>user_id: <input type="text" name="user_id" valu="62463130220"/></p>
<input type="submit" value="Submit" />
</form>
<script language="jscript" runat="server">
Array.prototype.get = function(x) { return this[x]; };
function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }
</script>
<%
'"https://reflow.huoshan.com/share/load_videos/?offset=0&count=21&user_id=62463130220"
dim user_id
Dim xmlServerHttp
user_id=""& request("user_id")
if trim(user_id)="" then
response.end
end if
set xmlserverhttp = server.createobject("MSXML2.ServerXMLHTTP")
xmlServerHttp.open "GET", "https://reflow.huoshan.com/share/load_videos/?offset=0&count=21&user_id=" & user_id,false 'true'发起异步请求
xmlServerHttp.send
'response.write "Receiver Page: " & xmlServerHttp.responseText & "<br/>"
parsHTML(xmlServerHttp.responseText)
function parsHTML(json)
Dim obj
Set obj = parseJSON(json)
for i=0 to obj.data.items.length-1
Response.Write "<a class='aaa' href='" & obj.data.items.get(i).video.url_list.get(0) & "'><img src='" & obj.data.items.get(i).video.cover.url_list.get(0) & "'/></a>"
next
'{"status_code": 0, "data": {"items": [{"video": {"width": 720, "ratio": 1.78, "duration": 14.835, "url_list": ["http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200cfe0000bd89k15ds135d7v58jeg&line=0&app_id=1112", "http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200cfe0000bd89k15ds135d7v58jeg&line=1&app_id=1112"], "cover": {"url_list": ["http://p3.pstatp.com/large/9afd0003d4cdfb41ffb8.jpg", "http://pb9.pstatp.com/large/9afd0003d4cdfb41ffb8.jpg", "http://pb3.pstatp.com/large/9afd0003d4cdfb41ffb8.jpg"], "uri": "large/9afd0003d4cdfb41ffb8"}, "uri": "v0200cfe0000bd89k15ds135d7v58jeg", "height": 1280}, "id": "6579928818356587784"}, {"video": {"width": 720, "ratio": 1.78, "duration": 14.835, "url_list": ["http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0300c1a0000bd890g4hpahlrakkheh0&line=0&app_id=1112", "http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0300c1a0000bd890g4hpahlrakkheh0&line=1&app_id=1112"], "cover": {"url_list": ["http://p3.pstatp.com/large/9af600084bbc9b85f61a.jpg", "http://pb9.pstatp.com/large/9af600084bbc9b85f61a.jpg", "http://pb3.pstatp.com/large/9af600084bbc9b85f61a.jpg"], "uri": "large/9af600084bbc9b85f61a"}, "uri": "v0300c1a0000bd890g4hpahlrakkheh0", "height": 1280}, "id": "6579917988248423683"}, {"video": {"width": 720, "ratio": 1.78, "duration": 11.234, "url_list": ["http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0300c1f0000bd7am24hpahqkhi5tufg&line=0&app_id=1112", "http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0300c1f0000bd7am24hpahqkhi5tufg&line=1&app_id=1112"], "cover": {"url_list": ["http://p3.pstatp.com/large/9a8900026f71942557dd.jpg", "http://pb9.pstatp.com/large/9a8900026f71942557dd.jpg", "http://pb3.pstatp.com/large/9a8900026f71942557dd.jpg"], "uri": "large/9a8900026f71942557dd"}, "uri": "v0300c1f0000bd7am24hpahqkhi5tufg", "height": 1280}, "id": "6579385610274868494"}, {"video": {"width": 720, "ratio": 1.78, "duration": 14.703, "url_list": ["http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200c1f0000bd7887tqg5b9ehd4bas0&line=0&app_id=1112", "http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200c1f0000bd7887tqg5b9ehd4bas0&line=1&app_id=1112"], "cover": {"url_list": ["http://p3.pstatp.com/large/9a7f0011a3b63b5b4ba9.jpg", "http://pb9.pstatp.com/large/9a7f0011a3b63b5b4ba9.jpg", "http://pb3.pstatp.com/large/9a7f0011a3b63b5b4ba9.jpg"], "uri": "large/9a7f0011a3b63b5b4ba9"}, "uri": "v0200c1f0000bd7887tqg5b9ehd4bas0", "height": 1280}, "id": "6579344756453674247"}, {"video": {"width": 720, "ratio": 1.78, "duration": 14.702, "url_list": ["http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200c840000bd786tu4tqbi12hodsfg&line=0&app_id=1112", "http://hotsoon.snssdk.com/hotsoon/item/video/_playback/?video_id=v0200c840000bd786tu4tqbi12hods
Set obj = Nothing
end function
function parsHTML22222()
Dim json, obj
json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"
Set obj = parseJSON(json)
Response.Write "JSON原文为：<br>"
Response.Write json
Response.Write "<hr>"
Response.Write "a=" & obj.a & "<br />"
Response.Write "b=" & obj.b.name & "<br />"
Response.Write "c.length=" & obj.c.length & "<br />"
Response.Write "c.get(0)=" & obj.c.get(0) & "<br />"
Set obj = Nothing
end function
%>
</body>
</html>