📄 5-4.aspx
字号:
<html>
<head>
<title>[例5-4] 编写"求租房屋信息"Web页面</title>
<script language="VB" runat="server">
Sub SubmitBtn_Click(sender As Object ,e As EventArgs )
Dim temp As String
Table2.Rows(0).Cells(0).InnerText= Name.Value
Table2.Rows(0).Cells(1).InnerText= Age.Value
IF Man.Checked Then
temp = "男"
Else
temp = "女"
End IF
Table2.Rows(1).Cells(0).InnerText= temp
IF Married.Checked Then
temp = "合租"
Else
temp = "不合租"
End IF
Table2.Rows(1).Cells(1).InnerText=temp
Table2.Rows(1).BgColor="Gainsboro"
Table2.Rows(2).Cells(0).InnerText=Select1.Items(Select1.SelectedIndex).Value
Table2.Rows(2).Cells(1).InnerText=Select2.Items(Select2.SelectedIndex).Value
Table2.Rows(3).Cells(0).InnerText=TextArea1.Value
Table2.Rows(3).BgColor="Gainsboro"
Table2.Visible=true
End Sub
</script>
</head>
<body>
<h3>求租房屋信息:</h3>
<form runat=server>
<img src="..\include\line2.gif" alt="image1"
align=middle runat="Server">
<table id="Table1" CellPadding=5 CellSpacing=0 Border="1"
BorderColor="white" runat="server" >
<tr>
<td align=right>姓名：</td>
<td><input type=text id="Name" maxlength=10 size=8 runat="Server"/></td>
<td align=right>年龄：</td>
<td><input type=text id="Age" maxlength=4 size=2 runat="Server"/></td>
</tr>
<tr>
<td align=right>性别：</td>
<td><input type=radio id="Man" checked=true name=sex runat="Server"/>男
<input type=radio id="Woman" checked=false name=sex runat="Server"/>女
</td>
<td align=right>是否合租：</td>
<td><input type=checkbox id="Married" checked=false runat="Server"/></td>
</tr>
<tr>
<td align=right>地点：</td>
<td><select id="Select1" Multiple="False" runat="server">
<option value="没有要求"> 没有要求 </option>
<option value="河东区" Selected="True"> 河东区 </option>
<option value="河西区"> 河西区 </option>
<option value="河北区"> 河北区 </option>
</select></td>
<td align=right>房型：</td>
<td><select id="Select2" Multiple="False" runat="server">
<option value="没有要求"> 没有要求 </option>
<option value="独单" Selected="True"> 独单 </option>
<option value="偏单"> 偏单 </option>
<option value="三居室"> 三居室 </option>
</select></td>
</tr>
<tr>
<td align=right>备注：</td>
<td colspan="3"><textarea id="TextArea1" cols=35 rows=4 runat=server /></td>
</tr>
<tr>
<td></td>
<td><input type=submit value="提 交"
OnServerClick="SubmitBtn_Click" runat=server>
<input type=reset value="取 消" runat=server></td>
</tr>
</table>
<HR>
<table id="Table2" CellPadding=5 CellSpacing=0 Border="2"
BorderColor="blue" align=left Visible=false runat="server" >
<tr><td></td><td></td></tr>
<tr><td></td><td></td></tr>
<tr><td></td><td></td></tr>
<tr><td></td><td></td></tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -