2014-4-21 19:03:33

ASP代码获取当前网页面名称

ASP代码获取当前网页面名称

Function getPageName()
 Dim fileName,arrName,postion
 fileName=Request.ServerVariables("script_name")
 postion=InstrRev(fileName,"/")+1
 fileName=Mid(fileName,postion)
 If InStr(fileName,"?")>0 Then
  arrName=fileName
  arrName=Split(arrName,"?")
  filename=arrName(0)
 End If
 getPageName=filename
End Function

本篇文章来源于：http://www.cixisem.com/ 转载请保留链接 慈溪网络公司