非常方便,特别是用在很多内容的时候. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="inc/conn.asp" --><!--#include file="inc/md5.asp" --><% Dim oDic,oRs,oKeyset oDic = Server.CreateObject("Scripting.Dictionary")for each oKey in Request.Form oDic.add oKey,trim(request.Form.item(oKey))next'根据实际需要重新设置集合中的值'更改adminpsw的值oDic.item("adminpsw") = md5(oDic.item("adminpsw")) '删除无用的值，一定要删除，否则会出错oDic.remove "Submit"oDic.remove "cpsw"set oRs = server.CreateObject("adodb.recordset")with oRs .open "admin",conn,3,3 .addnew for each oKey in oDic  .Fields(oKey) = oDic.item(oKey) next .update .closeend with%>  

评论