asp原始碼微信公眾號拍照或從手機相簿中選圖介面上傳jdk上傳程式碼
阿新 • • 發佈：2018-12-21
'設定引數值 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