aspÖÐ×Ö·û´®×ª»¯ÎªÊµÌåÀàµÄ·½·¨£¨ÓÅ»¯Æª£¬¼òµ¥ÓÅ»¯£©

option explicit
dim str1,str2
str1 ="order|||shiyang:100,mayang:200"
str2 = "book|||shuming:¼ÆËã»ú,dingjia:100"
'ÉùÃ÷2¸öÈ«¾Ö¶ÔÏó
'·ÅÆúÁËÒ»¿ªÊ¼Ï£ÍûÓÃÊý×é´æ´¢µÄ·½Ê½£¬ÄǸöËäȻЧÂʸü¸ß£¬µ«ÊÇÐèÒª×Ô¶¨ÒåµÄarray_pushobjº¯Êý£¬ËùÒÔ´Ë´¦²»×öÌÖÂÛÁË
dim objname_g
dim classname_g
'·µ»ØʵÌåÀà
function getObjmod(byval str)
dim classname,itemlist,i
dim execstr
classname = split(str,"|||")(0)
execstr = "class "&classname&chr(10)
itemlist = split(split(str,"|||")(1),",")
for i = 0 to ubound(itemlist)
execstr = execstr +"public "&split(itemlist(i),":")(0)&chr(13)&chr(10)
next
execstr = execstr&"end class"&chr(13)&chr(10)&_
" set objname_g = new "&classname

classname_g =classname
execute execstr

end function
'¸³Öµ
function getobjcon(byval str)
dim itemlist,i,execstr
if classname_g = split(str,"|||")(0) and isobject(objname_g) then
set getobjcon = objname_g
else
getObjmod( str)
set getobjcon = objname_g
end if
itemlist = split(split(str,"|||")(1),",")
for i = 0 to ubound(itemlist)
execstr = execstr +"getobjcon."&split(itemlist(i),":")(0)&" = """&split(itemlist(i),":")(1)&"""" &chr(13)&chr(10)
next
execute execstr
end function
'²âÊÔº¯Êý
sub ceshi3
dim i,o1
for i = 0 to 10000
set o1 = getobjcon(str1)
response.write o1.shiyang&"<br>"
next
set o1 = getobjcon(str2)
response.write o1.shuming&"<br>"

end sub
dim t1
t1=timer()
call ceshi3
response.write FormatNumber((timer()-t1),4,-1)