Function UrlCheck(enterUrl)
if len(trim(enterUrl)) > 0 then
strLong = len(enterUrl) '趼睫揹酗
Dim i
i = 0
Dim A()
Dim B()
Redim A(strLong)
Redim B(strLong)
for i = 0 to strLong - 1
A(i) = mid(enterUrl, i + 1, 1)
''犖趼趼睫ASC硉 < 0
if asc(A(i)) < 0 or asc(A(i)) > 255 then
B(i) = server.URLEncode(A(i))
else
B(i) = A(i)
end if
next
UrlCheck = ""
for i = 0 to strLong
UrlCheck = UrlCheck & B(i)
next
end if
end Function