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)
下期更精彩！！！！
相关文档：
网页制作中，为了方便日后修改或协作开发，常常要对页面进行相应的注释，你网页结构清晰，可读性增强。以下介绍几种常用的注释方法：
一、HTML的注释方法
<!-- html注释:START -->
内容
<!-- html注释:END -->
二、CSS的注释方法
<style type="text/css">
/* css注释*/
</style>
在单独 ......
本解决方法摘自网络文章，已经验证可行。
新上的一台服务器出现了一个现象：ASP程序中，调用函数Now()，显示的时间总是形如“2009-07-12 上午 08:12:56 ”这样的，总显示“上午”和“下午”，导致数据库插入操作异常，解决过程及最终解决方法如下：
这么显示，一般都� ......
用ASP实现支持附件的EMail系统(1)
大家经常探讨使用asp，而不使用其他组建能否实现文件的上传，从而开发出支持邮件附件的邮件系统，答案是可以的。
以下是发送邮件的页面，邮件的帐号是员工号，假设是5位的数字，sendmail.asp当然是在合法登陆后才能够看到的
＜html＞
＜head＞
＜meta http-eq ......
用ASP建立站内信息搜索系统
假如你拥有一个庞大的网站，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了！现在你就可以用asp轻易的实现这种功能，何况现在支持asp的站点这么多，利用这个搜索引擎可以搜索到你的主页里面任何一个文件 ......
Windows7下IIS7的安装及ASP配置方法★
本文讲述了在Windows 7下如何安装IIS7，以及IIS7在安装过程中的一些需要注意的设置，以及在IIS7下配置ASP的正确方法。转载过程中不得以任何方式和方法用于商业用途，请注明出处。谢谢您的支持。祝您安装及调试成功。
注：本人安装的是Windows 7 RC 7100 32位中文旗舰版 。
在Window ......
