asp中字符串转化为实体类的方法（提高篇，自动方法）

书接上文，直接从字符串返回对象，此次更新，实现了返回对象的自动化，无需在声明实体类。但这个函数只适合页面声明几个对象，批量对象，比如几百个，推荐使用下一文所使用函数。
函数很简单，不解释，直接贴代码。
option explicit
'返回对象的函数
function getObj(byval str)
dim classname,itemlist,i
classname = split(str,"|||")(0)
dim execstr
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 + "Private Sub Class_Initialize"&chr(13)&chr(10)
for i = 0 to ubound(itemlist)
execstr = execstr +split(itemlist(i),":")(0)&" = """&split(itemlist(i),":")(1)&"""" &chr(13)&chr(10)
next
execstr = execstr&"end sub"&chr(13)&chr(10)&_
"end class"&chr(13)&chr(10)&_
" set getobj = new "&classname
execute execstr
end function
'测试部分
dim str1
str1 ="order|||shiyang:100,mayang:200"
sub ceshi2
dim i,o1
for i = 0 to 10000
set o1 = getObj(str1)
response.write o1.shiyang&"<br>"
next
end sub
dim t1
t1=timer()
call ceshi2
response.write FormatNumber((timer()-t1),4,-1) 
下期更精彩！！！！