社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

								function getFileExtName(fileName)
				dim pos
				pos=instrrev(filename,".")
				if pos>0 then
				getFileExtName=mid(fileName,pos+1)
				else
				getFileExtName=""
				end if
				end function
				
				function gotTopic(str,strlen)
				dim l,t,c
				l=len(str)
				t=0
				for i=1 to l
				c=Abs(Asc(Mid(str,i,1)))
				if c>255 then
				t=t+2
				else
				t=t+1
				end if
				if t>=strlen then
				gotTopic=left(str,i)&""
				exit for
				else
				gotTopic=str&""
				end if
				next
				end function
				%>