📄 ch09-02-06.aspx

📁 这是一个asp.net的全文教程.里面还有数据库的数据.对初学者有很大的帮助

💻 ASPX

字号:

<Html>
<Head>
<Title>Ch09-02-06.aspx CustomValidator控件</Title>
<Script Language="VB" Runat="Server" >
    Sub Button1_Click(Obj As Object, e As EventArgs)
        If Page.IsValid Then
            Show1.Text = "身份证号验证通过！"
       Else
            Show1.Text = ""
        End If 
   End Sub
   ' 身份证号验证程序
   Sub IDNo_Check(Obj As Object, e As ServerValidateEventArgs)
        Dim intA As Integer , Sums As Long
       Dim strTemp As String, Position As Integer
       Dim IDCode() As Integer = {10,11,12,13,14,15,16,17,18, _
                                      19,20,21,22,23,24,25,26,27, _
                                      28,29,30,31,32,33,34,35}
       Dim CodeChar As String = "ABCDEFGHJKLMNPQRSTUVXYWZIO"
        strTemp = uCase(e.Value.substring(0 ,1))
        Show1.Text = strTemp
        Position = Instr(1, CodeChar ,uCase(e.Value.substring(0 ,1)))
        strTemp = IDCode(Position-1)& mid(e.Value, 2)
        ' strTemp 已经是11码的身份证号
       For intA = 2 To Len(strTemp) - 1 
           Sums += Int32.Parse(Mid(strTemp , intA , 1)) * (11-intA)
        Next
         Sums += Int32.Parse(mid(strTemp , 1, 1))
       Sums += int32.Parse(Right(strTemp,1))
        If Sums Mod 10 = 0 Then
            e.IsValid = True
        Else
           e.IsValid = False
        End If
    End Sub
</Script>
</Head>
<Body>
<H4>CustomValidator控件</H4>
<Form Runat="Server">
身份证号：
<asp:TextBox ID="IDNo" Runat="Server" /><BR>
<asp:Button ID="Button1" Text="提交"
       OnClick="Button1_Click" Runat="Server" />
<asp:CustomValidator ID="CustomValid"
       ControlToValidate="IDNo" Display="Dynamic"
       OnServerValidate="IDNo_Check"
       ErrorMessage="身份证号输入错误！"
       Runat="server" /><Br>
<asp:Label ID="Show1" BorderStyle="Double"
       BorderColor="#FF8888" Runat="Server" />
</Form>
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -