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)
下期更精彩！！！！
相关文档：
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFi ......
在InterDev中实现网上购物推车(1)
本文将介绍在InterDev中实现网上商店购物车功能的方法，具体步骤如下：
一、 数据库结构：
产品数据表(Products): 存放产品信息
产品名 ProductName
产品编号 ProductID
单价 Price
分类编号 CategoryID
Cart：购物车数据表，临时存放客户的� ......
用ASP设计网站在线人数统计程序
在浏览网页的时侯，常常可以看见一些“当前网站上的人数是ＸＸＸ人”的在线人数同计。如何用ASP来做一个呢？首先，分析一下它的做法，一般来说，这些线上人数统计都是指一个时段内的访客人数统计。比如（5分钟内，10分钟内）而这个时间的长短，是由设计者设定 ......
Windows7下IIS7的安装及ASP配置方法★
本文讲述了在Windows 7下如何安装IIS7，以及IIS7在安装过程中的一些需要注意的设置，以及在IIS7下配置ASP的正确方法。转载过程中不得以任何方式和方法用于商业用途，请注明出处。谢谢您的支持。祝您安装及调试成功。
注：本人安装的是Windows 7 RC 7100 32位中文旗舰版 。
在Window ......
