1,502
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xuqi92188 2003-11-04
- 打赏
- 举报
不行
subzero 2003-10-21
- 打赏
- 举报
urlencode=s
end function
end function
subzero 2003-10-21
- 打赏
- 举报
下面这个大概可用，试试吧
function urlencode(byval str as string) as string
dim i as long
dim s as string
for i=1 to lenb(str)
if ascb(midb(str,i,1))>=48 and ascb(midb(str,i,1))<=122 then
s=s & strconv(midb(str,i,1),vbunicode)
else
s=s & "%" & cstr(ascb(midb(str,i,1)))
end if
next
end function
function urlencode(byval str as string) as string
dim i as long
dim s as string
for i=1 to lenb(str)
if ascb(midb(str,i,1))>=48 and ascb(midb(str,i,1))<=122 then
s=s & strconv(midb(str,i,1),vbunicode)
else
s=s & "%" & cstr(ascb(midb(str,i,1)))
end if
next
end function
xuqi92188 2003-10-20
- 打赏
- 举报
我编的不是asp的，是浏览器。server我试过，server不能生成实列的
subzero 2003-10-17
- 打赏
- 举报
server.urlencode(str)
