asp中字符串转化为实体类的方法（入门篇，传统方法）

      此文只是入门，演示了如何用实体类存储数据，无实际意义。后面有陆续更新优化。（以后的文章中将陆续实现无需声明具体类自动存储数据，和简单的性能优化）
  
    在asp程序开发过程中，结构数据的存储一直是个问题，asp的数组一直很弱，而且不能自解释，下面提供一种类似json格式的解释方法，以供大家参考。
    我们假设我们想存储一张订单，实洋180元，码洋200元。声明字符串如下：
    dim str1 : str1 = "order|||shiyang:180,mayang:200"
  为了存储数据我们需要声明一个实体类，如下：
   class order
public shiyang,mayang
end class
建立一个getobject函数为实体类赋值，如下：
function getObject(byval str)
dim itemlist,execstr
execstr = ""
set getObject = new order
itemlist = split(split(str,"|||")(1),",")
for i = 0 to ubound(itemlist)
execstr = execstr +"getObject."&split(itemlist(i),":")(0)&" = """&split(itemlist(i),":")(1)&"""" &chr(10)&chr(13)
next
execute execstr
end function
写一个测试函数 ，输出结果并测试效率
sub ceshi1
dim i
for i = 0 to 10000
set o1 = getObject(str1)
response.write o1.shiyang&"<br/>"
next
end sub
dim t1
t1=timer()
call ceshi1
response.write FormatNumber((timer()-t1),4,-1)
测试结果：生成10000个订单对象大概需要1秒钟左右时间。
本文无实际意义，只为开篇做引