求根据输入数字生成表单功能的代码

tomygui 2003-08-21 10:45:45
本人正在做一个生成表单的系统,要实现的功能是输入一个数字,然后按下一步,按照数字的大小生成几行表格,一行表格里面还有几个可以输入的<inptu text>的。
...全文
54 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaotree 2003-08-27
  • 打赏
  • 举报
回复
<%
num=cint(reqeust("num")) 'num为你提交的数字
'输出表单
response.write("<form action='处理页面'>")
'输出表格
response.write("<table>")
for i=1 to num
response.write("<tr>") '输出行
response.write("<td>") '输出列
response.write("<input name=input" & i & ">") '你要的文本框
response.write("</td>")
response.write("<td>") '输出其他列
response.write(" ")
response.write("</td>")
response.write("</tr>")
next
response.write("</table>")
response.write("</form>")
%>
xiaotree 2003-08-21
  • 打赏
  • 举报
回复
<%
num=cint(reqeust("num")) 'num为你提交的数字
'输出表格
response.write("<table>")
for i=1 to num
response.write("<tr>") '输出行
response.write("<td>") '输出列
response.write("<input name=input" & i & ">") '你要的文本框
response.write("</td>")
response.write("<td>") '输出其他列
response.write(" ")
response.write("</td>")
response.write("</tr>")
next
response.write("</table>")
%>
maxid 2003-08-21
  • 打赏
  • 举报
回复
<%
Sub Table(tr,td)
Response.Write "<table>"
Response.Write vbCrLf
For i = 1 To tr
Response.Write Space(3) & "<tr>"
Response.Write vbCrLf
For j = 1 To td
Response.Write Space(6) & "<td>"
Response.Write "test"
Response.Write "</td>"
Response.Write vbCrLf
Next
Response.Write Space(3) & "</tr>"
Response.Write vbCrLf
Next
Response.Write "</table>"
Response.Write vbCrLf
End Sub
call Table(3,3)
%>
想一想自己完善一下吧
Brookes 2003-08-21
  • 打赏
  • 举报
回复
<form aciton=do.asp>
<input name=num>
<input type=submit value="go">
</form>

do.asp
<%
num=cint(reqeust("num"))
%>
</table>
<%for i=1 to num%>
<tr><td><input name=s1></td></tr>
<%next%>
</table>
tomygui 2003-08-21
  • 打赏
  • 举报
回复
信誉兄,能否讲清楚点(不好意思啊,我是初学者),
要不你把源文件发我信箱:guiting_li@tom.com
谢谢你!!!

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧