ASP+ FORM handler例子_自动测试脚本语言

ASP+ FORM handler例子

发表于：2007-06-30来源：作者：点击数：标签：

%@ Page Language= VB ClientTarget=downlevel % %@ Import Namespace=System.Text % script language=VB runat=server Const strCheckMarkHtml As String = img src=./images/check.gif border=0 width=25 height=25 / Sub Page_Load(Src as object, E as Ev

<%@ Page Language="VB" ClientTarget="downlevel" %>
<%@ Import Namespace="System.Text" %>

<script language="VB" runat="server">
Const strCheckMarkHtml As String = "<img src=""./images/check.gif"" border=""0"" width=""25""
height=""25"" />"

Sub Page_Load(Src as object, E as EventArgs)
lblStatus.Visible = False

validName.ErrorMessage = strCheckMarkHtml
validEmailRequired.ErrorMessage = strCheckMarkHtml
validEmailRegExp.ErrorMessage = strCheckMarkHtml
validAddress.ErrorMessage = strCheckMarkHtml
validCity.ErrorMessage = strCheckMarkHtml
validStateRequired.ErrorMessage = strCheckMarkHtml
validStateRegExp.ErrorMessage = strCheckMarkHtml
validZipRequired.ErrorMessage = strCheckMarkHtml
validZipRegExp.ErrorMessage = strCheckMarkHtml
End Sub

Sub btnReset_OnClick(Sender As Object, E As EventArgs)
lblStatus.Visible = False

txtName.Text = ""
txtEmail.Text = ""
txtAddress.Text = ""
txtCity.Text = ""
txtState.Text = ""
txtZip.Text = ""
End Sub

Sub btnSubmit_OnClick(Sender As Object, E As EventArgs)
Dim strLabelText As StringBuilder = new StringBuilder()

If Page.IsValid Then
divFormSection.Visible = False

strLabelText.Append("Your entry meets our validation criteria!")
strLabelText.Append("<br /><br />")
strLabelText.Append("This would naturally be the point where ")
strLabelText.Append("you just entered data would be getting ")
strLabelText.Append("logged to a file, inserted into a database, ")
strLabelText.Append("mailed off to someone, or whatever your ")
strLabelText.Append("plans for it might happen to be! Since ")
strLabelText.Append("we@#re just playing with the form here, I ")
strLabelText.Append("simply show it below.<br /><br />")
strLabelText.Append("<b>Here@#s what you entered:</b><br />")

strLabelText.Append("Name: " & txtName.Text & "<br />" & vbCrLf)
strLabelText.Append("Email: " & txtEmail.Text & "<br />" & vbCrLf)
strLabelText.Append("Address: " & txtAddress.Text & "<br />" & vbCrLf)
strLabelText.Append("City: " & txtCity.Text & "<br />" & vbCrLf)
strLabelText.Append("State: " & txtState.Text & "<br />" & vbCrLf)
strLabelText.Append("Zip: " & txtZip.Text & "<br />" & vbCrLf)

lblStatus.Text = strLabelText.ToString()
lblStatus.Visible = True
Else
strLabelText.Append("I@#m sorry but your form wasn@#t filled ")
strLabelText.Append("out correctly. Please correct the ")
strLabelText.Append("fields indicated by the check marks.")

lblStatus.Text = strLabelText.ToString()
lblStatus.Visible = True
End If

strLabelText = Nothing
End Sub
</script>

<html>
<body>

<asp:label id="lblStatus" runat="server">
</asp:label>

<asp:Panel id="divFormSection" runat="server">
<form action="form_handler.aspx" method="post" runat="server">

<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><b>Name:</b></td>
<td rowspan="6"> </td>
<td>
<asp:TextBox id="txtName" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validName" ControlToValidate="txtName"
display="Dynamic" />
</td>
</tr>
<tr>
<td align="right"><b>Email:</b></td>
<td>
<asp:TextBox id="txtEmail" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validEmailRequired" ControlToValidate="txtEmail"
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validEmailRegExp" ControlToValidate="txtEmail"
ValidationExpression="^[\w-]+@[\w-]+\.
(com.net|org|edu|mil)$"
Display="Dynamic" />
</td>
</tr>
<tr>
<td align="right"><b>Address:</b></td>
<td>
<asp:TextBox id="txtAddress" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validAddress" ControlToValidate="txtAddress"
display="Dynamic" />
</td>
</tr>
<tr>
<td align="right"><b>City:</b></td>
<td>
<asp:TextBox id="txtCity" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validCity" ControlToValidate="txtCity"
display="Dynamic" />
</td>
</tr>
<tr>
<td align="right"><b>State:</b></td>
<td>
<asp:TextBox id="txtState" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validStateRequired" ControlToValidate="txtState"
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validStateRegExp" ControlToValidate="txtState"
ValidationExpression="^\w{2}$"
Display="Dynamic" />
</td>
</tr>
<tr>
<td align="right"><b>Zip:</b></td>
<td>
<asp:TextBox id="txtZip" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validZipRequired" ControlToValidate="txtZip"
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validZipRegExp" ControlToValidate="txtZip"
ValidationExpression="^\d{5}$"
Display="Dynamic" />
</td>
</tr>
</table>

<asp:Button type="reset" id="btnReset" text="Clear The Form" OnClick="btnReset_OnClick"
runat="server" />
<asp:Button type="submit" id="btnSubmit" text="Submit The Form" OnClick="btnSubmit_OnClick"
runat="server" />

</form>
</asp:Panel>

</body>
</html>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >