asp判断奇数和偶数

时间:2009-03-25    点击:1583   
<%
'判断Num是奇数还是偶数
Public Function IsOdd (Num)
    Dim TempNum
    TempNum=Num Mod 2
    If TempNum = 1 Then
        'Num是奇数
        IsOdd = True
    Else
        'Num是偶数
    IsOdd =False
End If
End Function
%>
<form name="form1" method="post" action="">
  输入数字:
  <input name="text" type="text" id="text" >
  <input type="submit" name="Submit" value="提交">
</form>
<%
Dim X
X=Request.Form("text")
If X<>"" Then
%>
<p>输入的数字:<%=X%></p>
<p>为奇数吗?<%=IsOdd (CInt(X))%></p>
<%
End If
%>
asp过滤字符串中的HTML代码
asp截取字符串
asp实现字符串和数组的转换
asp将每个单词的首个字母改成大写
asp分位显示位数较长的数字
> 返回     
地址:上海市普陀区胶州路941号长久商务中心 电话: QQ:
© Copyright 2012 上海网络 All Rights Reserved