动态表格绘制——vbscript

最新推荐文章于 2019-07-19 19:35:00 发布

web3

最新推荐文章于 2019-07-19 19:35:00 发布

阅读量587

点赞数

文章标签： vbscript table function button border input

本文链接：https://blog.csdn.net/wenzhui5/article/details/4740829

版权

<html>
   <head>
   <title>自动绘制表格</title>
        <script type="text/vbscript">
            <!--

               Function test()
                 values=document.Forms("table").td.value

                 alert(values)

                  //value = CInt(ASC(values))//把values转换成ASCII码再转换成整型，作为if的判断条件

                 If IsNumeric(values) Then

          document.write("<table border=1 align=center>")

                  Randomize

                  For I = 1 To values
                      document.write("<tr>")
                           For J = 1 To values
                                 x =Cint(100*Rnd+1)

data = CStr(x)
document.write("<td>"+data+"</td>")

                              Next
                     document.write("</tr>")
                    Next
                  document.write("</table>")
                  document.write("<a href=table.html>返回</a>")


                   Else
                  document.write("请<a href=table.html>返回</a>输入数值！")
                End if
              End Function
      -->
    </script>
</head>

<body>

     <form name="table">
        <table>
         <tr>
           <td>请输入你要绘制的表格数：</td>
        <td>
         <input type="text" name="td" value="" /><sub>10*10</sub>
          </td>

</html>