API版本
ASP示例

							<% Sub sendsms(mobile,msg)

							'多個手機號之間用“,”分隔

							dim userid,password,status

							dim xmlObj,httpsendurl

							userid = "test" '企業ID，請聯系我們索取免費測試帳號

							password = "test" 'ID密碼，要使用MD5加密為32位密文

							password = LCASE(MD5(password)) httpsendurl="http://www.980247.com/sms?u="&userid&"&p="&password&"&m="&mobile&"&c="&UrlEncode_GBToUtf8_V2(msg)

							status = Rewrite_XMLget(httpsendurl)

							response.write msg&"

							" response.write status

							End sub

							'遠程獲取函數

							Function Rewrite_XMLget(SourceUrl)

							if SourceUrl="" then

							Rewrite_XMLget="路徑為空"

							exit function

							end if

							dim Get_Obj1

							'遠程獲取

							Set Get_Obj1=Server.CreateObject("Microsoft.XMLHTTP")

							On Error Resume Next

							Get_Obj1.Open "GET",SourceUrl,False

							Get_Obj1.send()

							if Err then

							set Get_Obj1=nothing

							Err.Clear

							Rewrite_XMLget= False

							set Get_Obj1=nothing

							exit function

							End if

							'轉換編碼函數

							dim Get_Obj2

							Set Get_Obj2 = Server.CreateObject("adodb.stream")

							Get_Obj2.Type = 1

							Get_Obj2.Mode =3

							Get_Obj2.Open Get_Obj2.Write Get_Obj1.responseBody

							Get_Obj2.Position = 0

							Get_Obj2.Type = 2

							'儲存數據

							Get_Obj2.Charset = "gb2312"'//轉換函數

							Rewrite_XMLget = Get_Obj2.ReadText '

							關閉組件

							Get_Obj2.Close

							set Get_Obj2 = nothing

							set Get_Obj1=nothing

							End Function

							Private Function UrlEncode_GBToUtf8_V2(szInput)

							Dim wch, uch, szRet

							Dim x

							Dim nAsc, nAsc2, nAsc3

							If szInput = "" Then

							UrlEncode_GBToUtf8_V2= szInput

							Exit Function

							End If

							For x = 1 To Len(szInput)

							wch = Mid(szInput, x, 1)

							nAsc = AscW(wch)

							If nAsc < 0 Then

							nAsc = nAsc + 65536

							If wch = "+" then

							szRet = szRet & "%2B"

							ElseIf wch = "%" then

							szRet = szRet & "%25"

							ElseIf (nAsc And &HFF80) = 0 Then

							szRet = szRet & wch

							Else If (nAsc And &HF000) = 0

							Then uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)

							szRet = szRet & uch

							Else uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _ Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _ Hex(nAsc And &H3F Or &H80)

							szRet = szRet & uch

							End If

							End If

							Next

							UrlEncode_GBToUtf8_V2= szRet End Function

							%>
點擊下載ASP示例代碼
精品深夜福利视频,日本中文字幕不卡,久久久久国产,av综合电影网站

開發文檔

ASP示例
