正在加载中...

关闭
请选择需要拨打的号码
关闭
请根据问题类型选择QQ咨询

ASP VBSCRIPT两种遍历数据记录或表单字段并转化为参数键值对的方法

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



返回上一页