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上 淘得乙個更好...