numstring.asp

来自「这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统」· ASP 代码 · 共 16 行

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