`

Send Http Request For Asp with json

阅读更多
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<% Response.CodePage=65001%> 
<% Response.Charset="UTF-8" %> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <title>Asp Http Post Request</title>
    <meta http-equiv="description" content="this is my page">
    <meta http-equiv="content-type" content="text/html; charset=UTF-8">
  </head>  
  <body>

<script language="JScript" runat="Server">
	function toObject(json) {
		eval("var o=" + json);
		return o;
	}
</script>

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

<%
	Function GetHttpPage(url, charset) 
		Dim http 
		Set http = Server.createobject("Microsoft.XMLHTTP")
		http.Open "GET", url, false
		http.Send() 
		If http.readystate<>4 Then
			Exit Function 
		End If 
		GetHttpPage = BytesToStr(http.ResponseBody, charset)
		Set http = Nothing
	End Function
	
	Function PostHttpRequest(url,params,charset)
		Dim xmlHttp 
		Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
		xmlHttp.open "POST ", url, False 

		xmlHttp.setRequestHeader "Content-Type", "application/json"
		xmlHttp.setRequestHeader "User-Agent", "User-Agent:Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.14) Gecko/200804" 
		xmlHttp.setRequestHeader "Connection", "keep-alive" 

		xmlHttp.send params 
		
		If xmlHttp.readystate<>4 Then
			Exit Function 
		End If 
			PostHttpRequest = BytesToStr(xmlHttp.ResponseBody, charset)
		Set xmlHttp = Nothing
	End Function

	Function BytesToStr(body, charset)
		Dim objStream
		Set objStream = Server.CreateObject("Adodb.Stream")
		objStream.Type = 1
		objStream.Mode = 3
		objStream.Open
		objStream.Write body
		objStream.Position = 0
		objStream.Type = 2
		objStream.Charset = charset
		BytesToStr = objStream.ReadText 
		objStream.Close
		Set objStream = Nothing
	End Function

%>


<%
	Dim reqUrl 
		reqUrl = "http://www.baidu.com"
	Dim reqCharset  
		reqCharset = "UTF-8"
	
	If code <> "" Then 
		Dim jString
		jString = PostHttpRequest(reqUrl,"{}",reqCharset)
		Dim jsonval
		Set jsonval = toObject(jString)
%>

<%
	End If
%>

<font  size="2" color="red"> <br/>
	<br/>
	<br/>
	<br/>
	-----------------------运行本程序前确保以下组件存在------------------- <br/>
		Adodb.Stream (ADO 数据流对象, 常见被用在无组件上传程序中) √  <br/>
		Microsoft.XMLHTTP (Http 组件, 常在采集系统中用到) √  <br/>
		服务器脚本引擎 VBScript/5.8.23141 , JScript/5.8.23259 √ <br/>
	----------------------------------------------------------------------------------------- <br/>
</font>

  </body>
</html>


  

提供一个测试asp发送http request(get/post),并且可以将数据发送并接收的例子。传输的数据格式使用json。附件中有完整代码。

分享到:
评论

相关推荐

    Ajax+Json 基于Mootools一些常用的小插件实例集.zip

    new Request.JSON({ url: 'your_server_endpoint', method: 'get', onSuccess: function(response) { // 处理返回的JSON数据 console.log(response); } }).send(); ``` 其次,JSON(JavaScript Object ...

    基于ASP的天气预报插件源码 v1.0.zip

    requestObject.Send Dim responseText As String responseText = requestObject.responseText ``` 这段代码首先创建了一个XMLHTTP对象,向指定的天气API发送GET请求,然后接收并储存响应数据。 【数据解析与显示...

    Asp+ajax提交表单实例

    在这个例子中,Asp接收到来自Ajax请求的表单数据,并以JSON格式返回。客户端的`xhr.onreadystatechange`回调函数会捕获到这个响应,并进行相应的处理。 3. 完整的Asp+Ajax提交表单实例: 结合上面的前端和后端代码...

    基于ASP的通过ip获取所在地理位置.zip

    在ASP中,获取IP地址通常涉及到HTTP请求对象,如Request对象。Request对象提供了多种方法和属性,其中Request.ServerVariables可以用来获取服务器上的各种变量,包括客户端的IP地址。例如,`Request.ServerVariables...

    ASP实例开发源码-喜木asp天气预报查询系统.zip

    ASP的内置对象如`Server`和`Request`可以协助完成这项任务。 在ASP中,可以使用`Server.CreateObject`方法创建一个`MSXML2.XMLHTTP`对象,这个对象可以发起HTTP请求。例如: ```vbscript Dim http Set http = ...

    ASP和Ajax结合,实现无刷新操作数据库

    可以使用VBScript或JScript编写ASP代码,通过Request对象获取发送的参数,然后使用ADODB连接对象与数据库交互。 4. **返回响应**:ASP处理完请求后,将结果编码为JSON、XML或其他格式,然后通过Response对象写回给...

    js分页实例asp服务端

    var page = request.querystring("page") || 1; var pageSize = 10; // 每页显示的数据条数 var startIndex = (page - 1) * pageSize; // 假设我们有一个名为getData的函数,从数据库中获取数据 var data = ...

    asp Ajax无刷新文件上传(带进度条,无组件)

    3. ASP服务器端处理:接收到POST请求后,通过Request对象获取上传的文件,将其保存到服务器指定位置。同时,可以返回一个包含上传状态的JSON字符串,供前端更新反馈信息。 4. 更新进度条:在XMLHttpRequest对象的...

    flash 与 asp交互简单实例AS3-ASP.NET

    实际应用中,可能需要处理更复杂的数据,例如使用POST请求发送JSON或XML格式的数据,或者使用服务端控件如Web Service或WCF来实现更灵活的交互。 总的来说,AS3与ASP.NET的交互涉及前端与后端的协同工作,通过HTTP...

    ASP中Text的联想输入功能

    这段代码使用了AJAX异步请求,向`fetchSuggestions.asp`发送用户输入的关键词,并期望得到JSON格式的建议数据。 3. **ASP后端处理**:在服务器端,我们需要一个`.asp`文件(如`fetchSuggestions.asp`)来处理请求...

    使用Select控件实现联动效果的ASP实例 安徽机电职业技术学院陈伟

    在服务器端的`get_cities.asp`文件中,我们需要查询数据库,找出与`provinceId`匹配的所有城市,并将结果返回为JSON格式: ```vbscript Dim conn, rs, sql, provinceId, cities Set conn = Server.CreateObject...

    ASP.NET短信发送接口以及实例

    request.ContentType = "application/json"; // 构建请求体 var body = new { PhoneNumber = phoneNumber, Message = message }; var requestBody = JsonConvert.SerializeObject(body); // 发送请求 using ...

    A自己写的ASP程序Ajax的一个实例

    1. **接收数据**:ASP可以使用`Request`对象来获取POST或GET请求中的数据。对于POST请求,`Request.Form("参数名")`可以获取表单数据;对于GET请求,`Request.QueryString("参数名")`用于获取URL查询字符串中的数据...

    基于ASP的Ajax无刷新上传(ASP)最简单的调用方法11.28.zip

    ASP通过Request对象获取客户端发送的数据,如文件流、文件名等,并可以进行必要的验证和存储操作。 3. **文件上传**:在Ajax上传中,通常需要将文件转换为二进制数据或Base64编码,然后通过POST方式发送到服务器。...

    Ajax与ASP网页交互动态添加删除数据一例

    在现代Web开发中,Ajax(Asynchronous JavaScript and XML)技术和ASP(Active Server Pages)结合,为创建高度交互和响应式的网页提供了强大支持。本示例将深入探讨如何利用Ajax和ASP实现网页上的动态数据添加与...

    asp.net手写ajax调用后台方法

    xhr.send(JSON.stringify({ param1: "value1", param2: "value2" })); ``` 在后台,ASP.NET提供了多种服务模型来处理AJAX请求,如Web Forms中的PageMethods,或者Web Services(ASMX)、WCF服务、Web API等。 3....

    ASP源码—AJAX+ASP实现输入框提示.zip

    ASP(Active Server Pages)是一种微软开发的服务器端脚本环境,用于创建动态交互式网页。在本案例中,"ASP源码—AJAX+ASP实现输入框提示.zip" 是一个包含利用ASP技术与AJAX(Asynchronous JavaScript and XML)进行...

    源代码-Ajax无刷新上传(ASP)最简单的调用方法11.28.zip

    3. **服务器端处理**:在ASP中,接收到Ajax请求后,可以使用Request对象获取POST过来的数据。对于文件上传,可能需要使用Request.Files集合来访问上传的文件。处理完文件后,服务器端通常会返回一个JSON或XML格式的...

    基于ASP的基于WEB2.0的Ajax简单留言板 v1.0.zip

    在ASP中,常见的内置对象包括Request、Response、Session、Application等。Request对象用于获取客户端发送的数据,如表单数据、URL参数等;Response对象则负责向客户端发送响应,如HTML代码、文件等;Session对象...

Global site tag (gtag.js) - Google Analytics