用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 网页制作 > VBScript

VBScript 实现表单确认后再提交

减小字体 增大字体 作者:LinHaibo  来源:本站整理  发布时间:2010-04-28 17:56:42
HTML code运行代码复制代码
<html>
    <head>
<style>
 body{text-align: center;}
    .form1{text-align: center;
      border:1px #ccc solid;
      height:105px;
      width:235px;
      margin:0 auto;
      padding:2px;}
    #f2 p{float:left;text-align:left;margin:2px;width:98%;}
    #f1 p{float:right;margin:2px;width:98%;text-align:right;}
</style>
<script language="VBScript">
    Sub postF1
        document.getElementById("f1").style.display = "none"
        document.getElementById("f2").style.display = ""
        Dim arrP, arrInput
        Dim i, strl
        Set arrP = document.getElementById("f1").getElementsByTagName("p")
        Set arrInput = document.getElementById("f1").getElementsByTagName("input")
        'http://www.newxing.com
        For i = 0 To arrP.Length -2
            strl = strl & "<p>" & arrP(i).innerText
            strl = strl & "<span style='color:red;'>" & arrInput(i).Value & "</span></p>"
        Next
        strl = strl & "<p><input type='submit' value='确认注册'/>"
        strl = strl & " <input type=""button"" value=""更改"" onclick=""alter""/></p>"
        document.getElementById("f2").innerHTML = strl
    End Sub

    Sub alter
        document.getElementById("f1").style.display = ""
        document.getElementById("f2").style.display = "none"
    End Sub
</SCRIPT>
    </head>
    <body>
        <div class="form1">
            <form action="reg.asp" method="post" name="myform">
             <span id="f1">
                   <p> 用户名字:<input type="text" maxlength="20" name="username"/></p>
                   <p>密码:<input type="password" maxlength="20" name="password" /></p>
                   <p>QQ:<input type="text" maxlength="50" name="QQ"/></p>
                   <p>邮箱:<input type="text" maxlength="50" name="email"/></p>
                   <p><input type="button" value="确认" onclick="postF1"/></p>
                 </span>
                 <span id="f2" style="display:none"></span>
            </form>
        </div>
    </body>
</html>
 

Tags:VBScript 表单 注册

作者:LinHaibo
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论