学校 管理系统 学校 管理系统

								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
				%>