📄 3-5.asp
字号:
<html>
<head>
<title>Form表单综合实例</title>
</head>
<body>
<p align="center"><b><font size="5">个人信息</font></b></p>
<form name="form1" method="post" action=""> '发送到自身文件
<p>姓名：<input type="text" name="textfield">
*
</p>
<p>性别：
<label>
<input type="radio" name="RadioGroup1" value="男"> '建立单选按钮
男</label>
<label>
<input type="radio" name="RadioGroup1" value="女">
女</label>
</p>
<p>学历：
<select name="select"> '建立下拉菜单
<option value="x1">高中及以下</option>
<option value="x2">大专</option>
<option value="x3">大学本科</option>
<option value="x4">硕士</option>
<option value="x5">博士及以上</option>
</select>
</p>
<p>兴趣爱好：</p>
<p>
<input type="checkbox" name="checkbox" value="上网"> '建立复选框
上网
<input type="checkbox" name="checkbox" value="旅游">
旅游
<input type="checkbox" name="checkbox" value="读书">
读书
<input type="checkbox" name="checkbox" value="体育运动">
体育运动</p>
<p>个人简介：</p>
<p> '建立多行文本框
<textarea name="textarea" cols="40" rows="8"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重新填写">
</p>
</form>
<p> </p>
<%
if request("textfield")<>"" then '判断姓名文本框是否为空
Dim name,sex,level,hobby,intro
name=request("textfield")
sex=request("RadioGroup1")
level=request("select")
hobby=request("checkbox")
intro=request("textarea")
response.write("<p>姓名："&name&"</p>")
response.write("<p>性别："&sex&"</p>")
response.write("<p>学历："&level&"</p>")
response.write("<p>兴趣爱好："&hobby&"</p>")
response.write("<p>个人简介："&intro&"</p>")
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -