91成人在线播放_欧美一区二区视频在线观看_91精品国产高清久久久久久_国产精品久久亚洲不卡4k岛国


待發(fā)短信
在線客服
產(chǎn)品支持 短信寶客服
合作渠道 渠道合作
服務(wù)咨詢

4001-021-502

工作時間

9:00-21:00

API版本
v1

ASP示例

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
<% Sub sendsms(mobile,msg)
'多個手機號之間用“,”分隔
dim userid,password,status
dim xmlObj,httpsendurl
userid = "test" '企業(yè)ID，請聯(lián)系我們索取免費測試帳號
password = "test" 'ID密碼，要使用MD5加密為32位密文
password = LCASE(MD5(password)) httpsendurl="http://www.gjrencai.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
'遠程獲取函數(shù)
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
'轉(zhuǎn)換編碼函數(shù)
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
'儲存數(shù)據(jù)
Get_Obj2.Charset = "gb2312"'//轉(zhuǎn)換函數(shù)
Rewrite_XMLget = Get_Obj2.ReadText '
關(guān)閉組件
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
%>