正在加载中...
ASP怎样将提交的form表单键值组成数据对输出
ASP怎样使用vbscript将提交的form表单键值组成数据对输出为数组或者json格式的字符串呢?下面给一个演示:
for str_i = 1 to Request.form.count
formkey=trim(Request.form.key(str_i))
formvalue=trim(Requesta(formkey))&""
checkissub=checkinput(formkey,formvalue)
' response.Write(formkey&"="&formvalue&"("&checkissub&")<BR>")
if checkissub="" then
if formkey<>"" And checkRegExp(formkey,"^[\w]+$") then
execute formkey & "=formvalue"
end if
else
errstr=checkissub
end if
next
for str_i=1 to Request.querystring.count
formkey=trim(Request.querystring.key(str_i))
formvalue=trim(Requesta(formkey))&""
checkissub=checkinput(formkey,formvalue)
if checkissub="" then
'response.write formkey & "="&formvalue & "<br>"
if formkey<>"" And checkRegExp(formkey,"^[\w]+$") then
execute formkey & "=formvalue"
end if
else
errstr=checkissub
end if
next