解决方法
<%
Dim sScriptLocation,sScriptName,iScriptLength,iLastSlash
sScriptLocation = Request.ServerVariables("URL")
iLastSlash = InStrRev(sScriptLocation,"/")
iScriptLength = Len(sScriptLocation)
sScriptName = Right(sScriptLocation,iScriptLength - iLastSlash)
%>
然后sScriptName将包含Boxes-pic004.asp,然后您可以使用Replace(sScriptName,“.asp”,“”)来删除扩展名.
