请问for each的用法，最好给个例子，在线等！！！

[epzk]

请问for each的用法，最好给个例子，在线等！！！

[epzk]

自顶

[ybfqlyq]

dim saveitem
saveitem=array("Name","address","telephone","fax","QQ","mobile","webpage","email","postCode","birthday")
function savedata(item)
for each item in saveitem
myitem=Replace(Trim(Request.form(item)),"'","")
if myitem<>"" Then
rs(item)=myitem
end if
next
end function
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open "Select * from guestbook where id is null",conn,1,3
Rs.AddNew
Application.Lock
Call savedata(item)
Rs.update
Application.UnLock
Call Close()
Response.write "<script language=javascript>alert('OK..'﹞;location.href='contract.asp'</script>"