
软机网(http://http://www.zjjv.com//):检测函数aspclass复制代码代码如下:<%DimCmdSetCmd=NewCls_CommandClassCls_CommandPrivateRePublicFunctionIsPositiveInteger(value)SetRe=NewRegExpRe.Pattern="^[1-9][\d]*$"Re.IgnoreCase=TrueRe.Global=TrueIsPositiveInteger=Re.Test(value)SetRe=NothingEndFunctionPublicFunctionIsDigit(vString)IfvString=""ThenIsDigit...