formatremoteurl功能的ASP实现格式化为当前网站的完整的URL，将相对

================================================
功能名称：formatremoteurl
效果：格式化当前网站的完整URL，将相对地址转换为绝对地址
参数：URL字符串
参数：当然currenturl、网站URL
返回值：格式化URL
================================================
公共功能formatremoteurl（ByVal URL，ByVal CurrentUrl）
模糊查询
如果Len（URL）255或Len（currenturl）＜2
formatremoteurl =：
退出功能
最后如果
currenturl =装饰（替换（替换（替换（替换（替换（currenturl，：，），
url =装饰（替换（替换（替换（替换（替换（网址：，），
如果仪器（9，currenturl， / ）= 0
currenturl查询=
其他的
查询=左（CurrentUrl仪器（9，currenturl， / ）- 1）
最后如果

如果查询：查询= =然后currenturl
选择离开（LCase（URL），6）
案例
formatremoteurl =网址
退出功能
最后选择

如果左（URL，1）=，那么
formatremoteurl =查询网址
退出功能
最后如果

如果左（URL，3）=，那么
昏暗的arrayurl
昏暗的arraycurrenturl
Dim ArrayTemp（）
昏暗的strtemp
朦胧的我
模糊C
n = 0
arraycurrenturl =分裂（currenturl， / ）
arrayurl =分裂（URL， / ）
C = UBound（arraycurrenturl）
L = UBound（arrayurl）+ 1

如果C + + 2然后
对于i = 0到
ReDim Preserve ArrayTemp（N）
ArrayTemp（n）= ArrayCurrentUrl（我）
n = n + 1
下一个
strtemp =加入（arraytemp， / ）
其他的
strtemp =查询
最后如果
替换（URL，）
formatremoteurl =strtemp / URL
退出功能
最后如果
查询=左（CurrentUrl，instrrev（currenturl， / ））
formatremoteurl =查询（网址，替换： / ）
退出功能
端功能