numstring.asp

OnlineExam校园在线考试系统 v1.1源码

<%
function TestString(SomeString)
TestString=Trim(SomeString)
TestString_Len=Len(SomeString)
TestString_Ok=True
for i=1 to TestString_Len
	TempString_One=Mid(TestString,i,1)
	TempString_One_Ansi=Asc(TempString_One)
	if TempString_One_Ansi<48 or TempString_One_Ansi>57 then
		TestString_Ok=False
		exit for
	end if
next
TestString=TestString_Ok
end function
%>