俩函数搞定asp的orm映射[原创]
俩函数搞定asp的orm映射
orm必须用到实体类，像C#这样的语言 写实体类挺痛苦的，除非用工具
而asp有个好处，因为他可以动态构建一个字符串并把此字符串动态解析为代码，也就是他的 execute 和 ExecuteGlobal 俩函数
下面这个函数是 实体类生成器 只要传入列名字符串就能生成 一个全局可用的类
'定义一个实体类
'clsname 自定义类名
'cols 列字符串逗号分隔
sub clsnew(clsname,cols)
dim p
p = "class "&clsname&" :public "&cols&":public cols:sub class_initialize():cols="""&cols&""":end sub:sub fill(a,rownum):dim b,i:b = split(cols,"",""):for i=0 to ubound(b):execute b(i)&""=""&a(i,rownum):next:end sub: end class"
'一个动态的类 通过传入逗号分隔的列名字符串 来定义类内部的变量属性
'实体类内部带有一个填充自己的方法，用结果集的二维数组来填充
ExecuteGlobal p
'全局执行完 以后 本页面到处可用此类了
end sub
'二维数组表转化为实体类数组
'clsname 类名
'a 记录集的二维数组
function orm(clsname,a)
dim r(),i,o
redim r(ubound(a,2))
for i=0 to ubound(a,2)
execute "set o = new "&clsname
o.fill a,i
set r(i)=o
next
orm = r
end function
'使用实例
sub testorm
dim cols,clsname
cols = "id,bookid,type1"
clsname = "booktype"
dim a,b,i
conn_open
getrsa "select top 20 id,bookid,type type1 from book_type",a
'getrsa是执行sql并取得结果数组的函数
'a是通过rs.getrows获得的二维数组
conn_close
clsnew clsname,cols
b = orm(clsname,a)
for i=0 to ubound(b)
echo b(i).id&" "&b(i).bookid&" "&b(i).type1&"<br/>"
'这里我们就达到了目的 再也不用写rs("id")这样的了 用点代替了括号和双引号
next
end sub
'附 执行sql的函数
sub getrsa(sql,a)
dim rs
set rs = conn.execute(sql)
if not rs.eof then
a = rs.getrows()
else
a = ""
end if
set rs = nothing
end sub
相关文档：
Active Server Pages 提供内建对象，这些对象使用户更容易收集通过浏览器请求发送的信息、响应浏览器以及存储用户信息（如用户首选项）。本文简要说明每一个对象。
Application 对象
可以使用 Application 对象使给定应用程序的所有用户共享信息。
Request 对象
可以使用 Request 对象访问任何用 HTTP 请求 ......
2.1 ASP.net 入门
通常谈一个学科，我们老是说，它入门很简单的嘛，ASP.net也是。ASP.net提出一个概念，就是认为WEB页面，也是一个窗体，所以，学习过面向对象编程的VB VC BC Dephi的朋友，学起来就简单多了。
一个ASP.net页面的后缀名是".aspx"，所以，IIS在你安装完ASP.net时，也会把Default.aspx作为你的默认 ......
前面说了.NET如何伪静态化，其实Asp url伪静态化也很简单了。好的东西大家分享下！
有不懂的可以加我QQ 282116460
详细内容如下：
IIS下安装配置ISAPI Rewrite，实现asp的静态化的方法！
最近一直在搞俺小站的搜索引擎优化，效果还可以，从10月底的每天40IP上升到现在每天200多个。不过流量还是太少了。据说把动态的� ......
<%@ Language="VBScript" %>
<%' Option Explicit %>
<%
'不使用输出缓冲区，直接将运行结果显示在客户端
Response.Buffer = False
'声明待检测数组
Dim ObjTotest(26,4)
ObjTotest(0,0) = "MSWC.AdRotator"
ObjTotest(1,0) = "MSWC.BrowserType"
ObjTotest(2,0) = ......
