正在加载中...
ASP VBSCRIPT两种遍历数据记录或表单字段并转化为参数键值对的方法
编程中批量处理数据是一种非常重要的能力,他可以大大提高生产力。这里万维景盛工程师为大家介绍ASP VBSCRIPT两种遍历数据记录或表单字段并转化为参数键值对的方法。
1、遍历记录集并将遍历字段全部转换为参数对:
sql="xxxxx" rs1.open sql,conn,1,1 if not rs1.eof then For f=0 To rs1.fields.count-1 field_name=trim(rs1.fields(f).name) if field_name<>"" And checkRegExp(field_name,"^[\w]+$") then execute field_name&"=rs1("""& field_name &""")" end if Next else url_return "没有找到该记录",-1 end if
2、遍历接收的表单所有字段并全部转为参数对:
function getPostvalue() for str_i = 1 to Request.form.count formkey=checkhack(trim(Request.form.key(str_i))) if allowkey(formkey) then formvalue=trim(Requesta(formkey))&"" ' response.Write(formkey&"=========>"&formvalue&"<BR>") checkissub=checkinput(formkey,formvalue) if left(formkey,4)="secc_" then if formvalue="" then url_return "请选择完整",-1 end if if checkissub="" then formvalue=server.HTMLEncode(replace(replace(formvalue,chr(13),""),chr(10),"")) if formkey<>"" And checkRegExp(formkey,"^[\w]+$") then execute formkey & "=formvalue" end if else url_return checkissub,-1 end if end if next end function