ASP用循环将数组赋值给复选框，并将选择结果提交给服务器

a1ways1010 2019-04-04 04:37:01

现有文本文件
姓名学号
张三 003
李四 004

把文件读到一维数组s
s(0)="姓名,学号"
s(1)="张三,003"
s(2)="李四,004"
这些是已经实现的，下面要达到的效果是，在页面上显示：

姓名,学号（前面有个复选框，因为小方框属于特殊字符，本论坛不能识别，所以打不出来）
张三,003（前面有个复选框，因为小方框属于特殊字符，本论坛不能识别，所以打不出来）
李四,004（前面有个复选框，因为小方框属于特殊字符，本论坛不能识别，所以打不出来）
然后有一个提交按钮
点击提交按钮，在当前页面上显示：您选择的是.....（显示勾选的内容）
然后再有一个提交按钮，将数据输出到文件（.csv或者.xls），将该文件保存到服务器上。

找到一些参考内容，但还是用不起来。
http://www.w3school.com.cn/tiy/s.asp?f=demo_aspe_checkboxes
https://bbs.csdn.net/topics/390568850
https://bbs.csdn.net/topics/390157534

希望能用VB语言实现。

...全文

353 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

milaoshu1020 2019-04-08

打赏
举报

将这三个文件放到网站目录"C:\inetpub\wwwroot"文件夹中,然后再浏览器中输入"localhost/checkbox1.asp"并回车;
选择并提交后,checkbox2.asp会将数据保存在网站目录的output.csv文件中.
checkbox1.asp



<html>

<head>

<meta charset="gb2312"/>

</head>

<body>

<%

Set fso = createobject("scripting.filesystemobject")

Set stream = fso.opentextfile(server.mappath("checkbox.txt"),1,False)

content = stream.readall

s = Split(content,vbcrlf)

stream.close

%>

<form action="checkbox2.asp" method="get">

<%For i=lbound(s) To ubound(s)%>

	<input type="checkbox" name="myData" value="<%=s(i)%>"><%=s(i)%><br>

<%Next%>

<input type="submit" value="提交">

</form>

</body>

</form>

checkbox2.asp



<%

Set fso = createobject("scripting.filesystemobject")

Set stream = fso.opentextfile(server.mappath("output.csv"),2,True)

myData = Split(request.querystring("myData"),",")

For Each item In myData

	stream.writeline Replace(Trim(item)," ",",")

Next

stream.close

%>

操作完成!

checkbox.txt