Function URLEncoding(ByVal vstrIn As String)
Dim strReturn As String
strReturn = ""
Dim i As IntegerDim ThisChr As StringDim innerCode, Hight8, Low8 As IntegerFor i = 1 To vstrIn.LengthThisChr = Mid(vstrIn, i, 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不胜感谢
Dim strReturn As String
strReturn = ""
Dim i As IntegerDim ThisChr As StringDim innerCode, Hight8, Low8 As IntegerFor i = 1 To vstrIn.LengthThisChr = Mid(vstrIn, i, 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.net中用户控件中引用css样式失效的问题
- 将字符串分解为数组
- 问题:ListView内嵌ListView实现分层显示数据
- detailsview 中字段值的获取和设置的问题
- 怎样只保留两位小数?
- 怎么读出数据库字段的长度??
- asp.net程序的入口在哪?是默认页面?如果是,默认页面在哪设置?程序执行过程中,如何切换到其他页面?
- 跪求:.NET 用程序实现数据的新增、修改、删除、查询,要求界面与逻辑代码相分离
- 求一个正则表达式 要求内容为中文,字母,数字组成,数字不能开头,长度为4-16,一个汉字等于两个字符
- 如何在页面加载后延迟一段时间再执行代码?
- 急求sql
- 高手们请进来看看,关于在gridview模板列的问题!!!急啊
{
string strReturn;
strReturn = "";
string ThisChr;
int innerCode,Hight8,Low8;
for(int i=1;i<vstrIn.Length;i++)
{
ThisChr = Mid(vstrIn,i,1)
if(Abs(Asc(ThisChr))<&HFF)
{
strReturn = strReturn && ThisChr
}
else
{
innerCode = Asc(ThisChr)
if(innerCode < 0)
{
innerCode=innerCode + &H10000
}
Hight8=(innerCode && &HFF00)\&HFF
Low8 = innerCode && &HFF
strReturn = strReturn + "%" + Hex(Hight8) + "%" + Hex(Low8)
}
}
URLEncoding = strReturn
}