无标题文档

<% xm=session("username") xh=session("userid") if xm="" or xh="" then response.Redirect "lx7-3-4a.asp" response.End() else response.Write xm & "同学" & ",你的学号" & xh&"
" dim textid textid=1 for each obj in request.form 'obj为表单中同名表单元素对象 response.write"第" & textid & "题的答案为：" for n=1 to request.form(obj).count '统计同名表单元素obj 提交的数据总数 response.write request.form(obj)(n)&" "&" " next response.write"
" textid=textid+1 next end if %>