蚁族列传

strPath=request.serverVariables("script_name")
currentAspFileFullName=lcase(mid(strPath,instrRev(strPath,"/")+1))
if request.ServerVariables("QUERY_STRING")<>"" then
  currentAspFileFullName=currentAspFileFullName&"?"&request.ServerVariables("QUERY_STRING")
end if