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)文章
其實(shí)我這樣做的本意是為了防止盜鏈！大家?guī)兔匆幌峦ㄟ^代碼能夠根治盜鏈！2009-03-03
用ASP實(shí)現(xiàn)寫IIS日志的代碼...2007-11-11
最近發(fā)現(xiàn)很多同仁對我的網(wǎng)站比較青睞，同事幫我分析網(wǎng)站log時(shí)，驚訝的發(fā)現(xiàn)：2M的log居然有將近1M都是測試我網(wǎng)站的安全性的，其中至少0.5M的log來自WVS。2010-04-04
aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼
aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼...2007-08-08
FpHtmlEnCode 函數(shù)之標(biāo)題過濾特殊符號的代碼
FpHtmlEnCode 函數(shù)之標(biāo)題過濾特殊符號的代碼...2007-09-09
asp大小寫規(guī)范是個(gè)網(wǎng)頁轉(zhuǎn)換工具，實(shí)現(xiàn)asp中大小寫的替換，大家可以測試下2008-06-06
支持權(quán)重的無組件ASP廣告顯示代碼...2007-03-03
ASP開發(fā)中可能遇到的錯(cuò)誤信息中文說明大全（整理收集）
ASP開發(fā)中可能遇到的錯(cuò)誤信息中文說明大全（整理收集）...2007-03-03
使用模板實(shí)現(xiàn)ASP代碼與頁面分離...2006-08-08
本文主要介紹的是ASP使用MySQL數(shù)據(jù)庫的攻略，希望對你有幫助，一起來看。2015-10-10