asp 後台傳送utf8轉碼簡訊

2021-05-25 09:31:31 字數 1708 閱讀 3827

set b1=read_odb("xh,sms_num,sms_code,user_tel,bz,parent_xh","sms_send where parent_lx=0 and lx=0 and state=0")

do while not b1.eof

b2="srcmobile="&ecid&"&password="&pass&"&objmobile="&b1(3)&"&smsid="&b1(2)&"&smstext="&utf8encodeuri(b1(4))

b4=b1(0)

url=url&"?"&b2

call send_message(b2,b4,url)

'''b3=send_post("get",url,false,host,"",b2)

b1.movenext

loop

b1.close

close_odb()

function send_message(v0,v1,v2)   ''''傳送簡訊並且對返回值處理

if snum>b5 then

b3=send_post("get",v2,false,host,"",v0)

b5=b5+1

end if

if((b3=1)and(snum>b5))then

call send_message(b2,b4)

elseif(b3=0)then ''''傳送成功,修改sms_send表狀態位

call update_odb("state=1 where xh="&v1&"","sms_send")

b5=0

else

b5=0

end if

end function

function utf8encodeuri(szinput)  '''''''進行utf8轉碼

dim wch, uch, szret

dim x

dim nasc, nasc2, nasc3

if szinput = "" then

utf8encodeuri = 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 (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

utf8encodeuri = szret

end function

%>

《轉》亂碼UTF8和UTF 8網頁編碼

曾經被字符集間複雜的轉換搞怕了,正好新專案要求國際化,需要能夠顯示多種語言,於是一開始就規定統統使用 utf 8 編碼。所有 檔案使用 utf 8 編碼存檔 mysql資料庫所有表,所有字段設定 collation 中文翻譯為 整理 屬性為 utf8 general ci 所有頁面輸出 即便是這樣,...

java gbk轉utf 8亂碼問題

最近在做乙個反饋功能,把資料反饋到對方公司 我公司是gbk編碼,對方公司是utf 8編碼。因此,我需要將gbk編碼資料轉換成utf 8編碼資料,這樣對方 才不會亂碼。最簡單的方法是將httpclient的contentcharset設定為utf 8 如果contentcharset是gbk並且又不想...

ascii 多檔案轉utf 8

一般轉換編碼都是用iconv命令來轉換,命令格式如下 iconv f gb18030 t utf 8 file1.txt file2.txt 說實話這個命令不好使,一方面容易重複轉換,另一方面不支援萬用字元,無法成批轉換,檔案少了還好說,要是一大堆檔案豈不是要累死?於是在google上 淘得乙個更好...