俩函数搞定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

'使用实例 '增加此函数用于一次执行sql并得到对象数组 '其中sql中的列 必须与cols一一对应 sub getrsaorm(sql,tablename,cols,a) getrsa sql,a clsnew tablename,cols a = orm(tablename,a) end sub 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