📄 ch09-02-07.aspx
字号:
<Html>
<Head>
<Title>Ch09-02-07.aspx ValidationSummary控件</Title>
<Script Language="VB" Runat="Server" >
Sub Button1_Click(Obj As Object, e As EventArgs)
If Page.IsValid Then
Show1.Text = "姓名：" & UserName.Text
Show2.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>ValidationSummary控件</H4>
<Form Runat="Server">
姓名：
<asp:TextBox ID="UserName" Runat="Server" />
<asp:RequiredFieldValidator ID="UserNameExist"
ControlToValidate="UserName" Display="Dynamic"
ErrorMessage="必需输入姓名！"
Runat="Server" />
<BR>
身份证号：
<asp:TextBox ID="IDNo" Runat="Server" />
<asp:RequiredFieldValidator ID="IDNoExist"
ControlToValidate="IDNo" Display="Dynamic"
ErrorMessage="必需输入身份证号！"
Runat="Server" />
<BR>
<asp:Button ID="Button1" Text="提交"
OnClick="Button1_Click" Runat="Server" />
<asp:RegularExpressionValidator id="IDNoValid"
ControlToValidate="IDNo" Display="Dynamic"
ValidationExpression="[A-Za-z]{1,}[0-9]{9}"
ErrorMessage="身份证号格式错误！"
Runat="Server"/>
<asp:CustomValidator ID="CustomValid"
ControlToValidate="IDNo" Display="Dynamic"
OnServerValidate="IDNo_Check"
ErrorMessage="身份证号输入错误！"
Runat="server" /><Br>
<asp:ValidationSummary ID="ValidationSummary"
HeaderText="验证错误摘要信息："
DisplayMode="BulletList" Runat="Server" />
<asp:Label ID="Show1" BorderStyle="Double"
BorderColor="#FF8888" Runat="Server" />
<asp:Label ID="Show2" BorderStyle="Double"
BorderColor="#FF8888" Runat="Server" />
</Form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -