<% SUB pageUrl(pUrl)
Dim eUrl
txts = Request.ServerVariables("URL")
txts = left(txts,instrrev(txts,"/",len(txts))-1)
eUrl = "http://" & Request.ServerVariables("server_name") & txts
For i =1 to allpages
txt = ""
txt = "
"
txt = txt & ""
if i = Cint(Page) then txt = txt & ""
txt = txt & (i)
if i = Cint(Page) then txt = txt & ""
txt = txt & " ∥ "
Response.Write(txt)
Next
END sub %>
里面的txts = Request.ServerVariables("URL")是什么意思呀，
txts = left(txts,instrrev(txts,"/",len(txts))-1)也看不懂
