<%

	'获取当前正在执行的文件名
	'-------------------------------------------------------------------
	dim ThisPath, ArrPath, CurrFileName, CurrFileNameLeft6

	ThisPath = request.ServerVariables("PATH_INFO")
	ArrPath = split(ThisPath,"/")	'分解成数组
	i = ubound(ArrPath)	'数组最后一个元素
	CurrFileName = Lcase( ArrPath(i) )
	CurrFileNameLeft6 = Left(CurrFileName,6)

%>