asp源码微信公众号拍照或从手机相册中选图接口上传jdk上传代码

'设置参数值
Public Sub setParameter(parameter, parameterValue)
If parameters.Exists(parameter) = True Then
parameters.Remove(parameter)
End If
parameters.Add parameter, parameterValue
End Sub

'Microsoft.XMLHTTP
'Get/Post方法请求url,获取请求内容
Public Function RequestUrl(url,method,data)
Set XmlObj = Server.CreateObject(“Msxml2.ServerXMLHTTP.3.0”)
XmlObj.open method,url, false
XmlObj.send(data)
If XmlObj.Readystate=4 Then
RequestUrl = XmlObj.responseText
Else
Response.Write(“xmlhttp请求超时！”)
Response.End()
End If
Set XmlObj = nothing
End Function