asp下實現(xiàn)UrlEncoding轉換編碼的代碼
更新時間：2007年09月01日 22:05:03 作者：
'==================================================
'函數(shù)名：UrlEncoding
'作 用：轉換編碼
'==================================================
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
'作 用：轉換編碼
'==================================================
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
相關文章
用asp實現(xiàn)網(wǎng)址和郵件地址的轉換函數(shù)
用asp實現(xiàn)網(wǎng)址和郵件地址的轉換函數(shù)...2007-11-11
ASP中過濾UBB和Html標簽...2006-09-09
asp取得數(shù)組中的最大值的方法...2007-11-11
.NET中至少有6種定時器,每一種定時器都有它的用途和特點,根據(jù)定時器的應用場景,可以分為UI相關的定時器和UI無關的定時器,本文將簡單介紹這6種定時器的基本用法和特點,感興趣的朋友一起看看吧2023-12-12
把字符串轉換成數(shù)據(jù)庫SQL語句格式...2006-10-10
Discuz!NT 論壇整合ASP的方法2009-06-06
asp com接口的調用代碼。 需要的朋友可以參考下。2009-10-10
使用AJAX實現(xiàn)UTF8編碼表單提交到GBK編碼腳本無亂碼的解決方法
這篇文章主要介紹了用AJAX實現(xiàn)，多個不同編碼的項目（GBK，UTF8）互相通過 POST/GET 匯總表單數(shù)據(jù)。最終實現(xiàn) 使用同一個頁面接收 不同編碼的 表單（GBK,UTF8），特別適合 JS 采集項目,需要的朋友可以參考下2020-09-09
ASP Crazy 模版操作類(最簡單的模板類、僅提供交流)
ASP Crazy 模版操作類 最簡單的模板類需要的朋友可以參考下。2009-10-10
今天在用asp增加一個多條件查詢，標題可以包括多個關鍵詞，這樣提高匹配，防止內容重復等2014-05-05