asp下實(shí)現(xiàn)UrlEncoding轉(zhuǎn)換編碼的代碼
更新時(shí)間：2007年09月01日 22:05:03 作者：
'==================================================
'函數(shù)名：UrlEncoding
'作 用：轉(zhuǎn)換編碼
'==================================================
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
'函數(shù)名：UrlEncoding
'作 用：轉(zhuǎn)換編碼
'==================================================
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
相關(guān)文章
用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)
用asp實(shí)現(xiàn)網(wǎng)址和郵件地址的轉(zhuǎn)換函數(shù)...2007-11-11
ASP中過(guò)濾UBB和Html標(biāo)簽...2006-09-09
asp取得數(shù)組中的最大值的方法...2007-11-11
.NET中的6種定時(shí)器的基本用法和特點(diǎn)
.NET中至少有6種定時(shí)器,每一種定時(shí)器都有它的用途和特點(diǎn),根據(jù)定時(shí)器的應(yīng)用場(chǎng)景,可以分為UI相關(guān)的定時(shí)器和UI無(wú)關(guān)的定時(shí)器,本文將簡(jiǎn)單介紹這6種定時(shí)器的基本用法和特點(diǎn),感興趣的朋友一起看看吧2023-12-12
把字符串轉(zhuǎn)換成數(shù)據(jù)庫(kù)SQL語(yǔ)句格式
把字符串轉(zhuǎn)換成數(shù)據(jù)庫(kù)SQL語(yǔ)句格式...2006-10-10
Discuz!NT 論壇整合ASP的方法2009-06-06
asp com接口的調(diào)用代碼。 需要的朋友可以參考下。2009-10-10
使用AJAX實(shí)現(xiàn)UTF8編碼表單提交到GBK編碼腳本無(wú)亂碼的解決方法
這篇文章主要介紹了用AJAX實(shí)現(xiàn)，多個(gè)不同編碼的項(xiàng)目（GBK，UTF8）互相通過(guò) POST/GET 匯總表單數(shù)據(jù)。最終實(shí)現(xiàn) 使用同一個(gè)頁(yè)面接收 不同編碼的 表單（GBK,UTF8），特別適合 JS 采集項(xiàng)目,需要的朋友可以參考下2020-09-09
ASP Crazy 模版操作類(lèi)(最簡(jiǎn)單的模板類(lèi)、僅提供交流)
ASP Crazy 模版操作類(lèi) 最簡(jiǎn)單的模板類(lèi)需要的朋友可以參考下。2009-10-10
ASP多條件查詢(xún)功能實(shí)現(xiàn)代碼(多關(guān)鍵詞查詢(xún))
今天在用asp增加一個(gè)多條件查詢(xún)，標(biāo)題可以包括多個(gè)關(guān)鍵詞，這樣提高匹配，防止內(nèi)容重復(fù)等2014-05-05