lx8_1.asp

ASP 网页数据库短训教程源码

<%
  xm=Request.Form("xm")
  if xm<>"" then
    Response.write "<FONT size=6 face=华文彩云 color= blue>欢迎登录本站点!</FONT><p>"
    Response.write "您的姓名是：" & Request.Form("xm") & "<BR>"
    Response.write "您的性别是：" & Request.Form("xb") & "<BR>"
    Response.write "您的密码是：" & Request.Form("mm") & "<BR>"
    Response.write "您的爱好是：" & Request.Form("ah") & "<BR>"
    Response.write "您的学历是：" & Request.Form("xl") & "<BR>"
    Response.write "您的生活格言是："
    Response.Write Request.Form("adage") & "<BR>"
    Response.Write "<P align=center>这些信息对吗?"
    Response.Write "<a href=lx8_1.asp>如不对,返回</a></P>"
    Response.end
  end if
%>
    <Form align=center Action="lx8_1.asp" Method="post">
    <FONT size=6 face=华文彩云 color= blue>请输入您的有关数据</FONT>
    <TABLE ALIGN=Center BORDER=1>
    <tr valign=baseline>
        <td>姓名：<Input Type="text" Name="xm" Size=8>
        <td>性别：男<Input Type="radio" Name="xb" Value="男" Checked>
                  女<Input Type="radio" Name="xb" Value="女">
        <td>密码：<Input Type="Password" Name="mm" Size=12>
    <tr><td colspan=3>爱好：
          <Input Type="Checkbox" Name="ah" value="音乐">音乐
          <Input Type="Checkbox" Name="ah" value="汽车">汽车
          <Input Type="Checkbox" Name="ah" value="钓鱼">钓鱼
          <Input Type="Checkbox" Name="ah" value="集邮">集邮
          <Input Type="Checkbox" Name="ah" value="绘画">绘画
    <tr><td>学历：<br>
          <Select Name="xl" style="width:100px" size=4>
            <Option Value="小学">小学
            <Option Value="中学">中学
            <Option Value="大专">大专
            <Option Value="本科" Selected>本科
            <Option Value="研究生">研究生
          </select>
        <td colspan=2>生活格言：<br>
          <Textarea Name="adage" Cols=30 Rows=4></textarea>
    </TABLE>
    <p align=center><Input Type="Submit" Value="提交"> 
          <Input Type="Reset" Value="重写">
    </Form>
  </BODY>
</HTML>