hahj 2008-1-3 15:42
asp对象化之:数据库结果集合操作类
<%
’*************************************************************
’转发时请保留此声明信息,这段声明不并会影响你的速度!
’*************************************************************
’*************************************************************
’@author: 面条
’@realname: 徐仁禄
’@email: [email]xurenlu@sohu.com[/email]
’@QQ: 55547082
’@Homepage: [url]http://www.ksdn.net[/url]
’@版权申明:
’ 非盈利性质团体或者个人可以免费使用.
’*************************************************************
’*************************************************************
’*************************************************************
’*************************************************************
class Rsclass
private iRs
private isql
private iconn
private closeConn
private openConn
’*************************************************************
’ 进行初始化，建立iconn和irs对象.
’*************************************************************
Private Sub Class_initialize()
set iconn=server.createobject("adodb.connection")
set irs=server.createobject("adodb.recordset")
End Sub
public sub connect(connstr)
err.clear
on error resume next
iconn.open connstr
if err.number<>0 then response.write "数据联接出错了."
end sub
public property let conn(connection)
set iconn=connection ’通过外界传入一个数据库联接.
end property
Private Sub Class_Terminate()
on error resume next
irs.close
iconn.close
set iconn=nothing
set irs=nothing
End Sub
’*************************************************************
’ 内容:实现统计功能,一般用select count(*) from table where id>54类似的sql语句.
’*************************************************************
public function getCountBysql(sql)
on error resume next
dim count
count=iconn.execute(sql)(0)
getCountBysql=count
iconn.close
end function
’*************************************************************
public function deleteBySql(sql)
err.clear
on error resume next
iconn.execute(sql)
if err.errcode<>0 then
deleteBysql=false
exit function
end if
deleteBySql=true
end function
’*************************************************************
public function deleteByid(table,column,value)
err.clear
on error resume next
iconn.execute("delete from "&table & " where "&column & "=’"&value & "’")
if err.errcode<>0 then
deleteByid=false
exit function
end if
deleteByid=true
end function
’*************************************************************
’ 返回一个词典，用这个词典来装载要添加的对象.
public function getdict()
set getdict=server.createobject("scripting.dictionary")
end function
’*************************************************************
’ 增加新的记录.
public function add(obj,table)
dim item
isql="select * from " & table
response.write isql
iRs.open isql,iconn,1,3
irs.addnew
for each item in obj
irs(item)=obj(item)
next
irs.update
irs.close
end function
’*************************************************************
’ 得到查询得返回值
public function getquery(sql)
iRs.open sql,iconn,1,1
if irs.eof and irs.bof then
getquery=null
else
set getquery=irs
end if
end function
public function getqueryPage(sql,pageNum,PageSize)
on error resume next
iRs.pageSize=pageSize
iRs.open sql,iconn,1,1
iRs.AbsolutePage=pageNum
if irs.eof and irs.bof then
getqueryPage=null
else
set getqueryPage=irs
end if
response.write "<span style=’color:green;’>"& err.number & err.description &"</span>"
end function
’*************************************************************
’ 让结果集移动到第n页.
public function setPage(pageNum,PageSize)
on error resume next
iRs.moveFirst
iRs.move((pageNum-1)*PageSize)
end function
end class
’*************************************************************
用法示例:
dim cstr
dim path
path=server.mappath("2data.mdb")
cstr= "DBQ="+path+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
dim rec
set rec=new RsClass
rec.connect(cstr)
response.write "************************"
set tt=rec.getqueryPage("select top 8 * from help",2,4)
response.write tt.recordcount & "<br>"
do while not tt.eof
response.write tt(0) &"<br>"
tt.movenext
loop
tt.movefirst
tt.close
%>
rstu582 2008-5-21 21:07
玻璃钢水箱
*** 作者被禁止或删除 内容自动屏蔽 ***
hztxw0571 2008-6-12 03:21
充斥于民族的文化
*** 作者被禁止或删除 内容自动屏蔽 ***
晴学芙 2008-11-25 06:45
英语学习 免费
[size=4][color=darkred]超分贝英语！
[/color][/size][url=http://www.yienglish.com/][size=4][color=darkred]www.yiEnglish.com[/color][/size][/url][size=4][color=darkred]
所学到将是非常纯正、地道的英语！[/color][/size]
风峰琳 2008-12-1 19:46
2009年考研答案QQ309565482,2009年研究生考中答案QQ309565482，09年考研枪手
*** 作者被禁止或删除 内容自动屏蔽 ***
忠i绫 2009-1-6 10:47
因为一个软件，我们分手了
跟我一起相处五年的男友就因为一个软件，和我分手了。我从来没想过我们之间的结局会因为一个软件而终结，但事情就是这样真真实实的发生了。
我跟男友认识五年了，他长相很一般，家里也没什么钱。大学我们就认识了，还相处过一年的时间，我的第一次也献给了他，当时还天真的要和他结婚过一辈子。
后来他退学，离开了校园，说是因为家里的原因不得不退学去外面找份工作供弟弟上学，女人最容易被感情冲昏头脑，我曾经一度要闹着退学跟他一起，一起工作。家里死活都是不同意，妈妈还放出话要和他小子在一起就等她死，同学也劝我仔细想想，是啊我的自身条件也不差父母都在国企有稳定工作，我168，长相也还算对得起观众，找什么男人不好，非要找一个缀学的穷光蛋。
我又在学校待了1年，我们分开后他没有给我打过一次电话，我忍不住拨通了他的号码，那熟悉的一串数字却传来了对方已停机的叫声，好长一段时间我情绪很是失落，他怎么这么没有良心，后来我交了好几个男朋友，想要自己忘记，多到自己都数不过来了。当然还有一些Z爱的事情，也只有那个时候心情才会完全放松。大学就这样堕落的结束了。
毕业后他给我打电话说，他和几个朋友对钱在A城刚了一个小贸易公司，我是学网络营销的，想让我去帮帮忙。我一口就答应了，毕竟我还是最放不下他的。
见面那天他说现在资金紧缺就不请我在外面吃饭了，他在家做给我吃，顺便介绍一下公司的情况。我到了他家，他一把抱住我说他还是爱我的，这一年他每天都在想我，却不敢给我打电话，觉得自己配不上我。他一直在算着我毕业的时间，毕业尝试着拨通我的号码，没想到竟然接通了。我一下子就哭了，这些年我的号码一直舍不得换，也不很少关机，就算没钱也要借钱把电话欠费交了。我们那天聊得很少，大部分时间都是看着对方什么也没有说。然后我们脱掉对方的衣服，做了那个事情，我很顺从，感觉这好像是理所应当的一样。但这次他那家伙变得更长、更粗、更有力量了。
第二天我去他公司看了看，真的很小的一个公司，整个公司只有三张桌子几个电话，其他什么都没有。我了解到他公司的困境后，虽然我也只是刚毕业没有工作经验，但还是坚信我一定能帮到他的。我利用学校里学的，竭尽所能的工作着，公司网络营销的全部都是我来做的。我为他公司制作了网站，在论坛发帖子、把供应信息发送到供求等网站。没想到的是网络竟让成了他公司客户的主要来源。
一年后，他的业务慢慢好了起来，但还不至于说赚到大钱，而我每天的工作依然是发发帖子、发布一些信息、在维护维护公司的网站。他曾经开玩笑的跟我说：原来营销这么简单啊，每天上网发发信息就可以了，人人都会。
后来公司有招聘了两个员工，和我的工作一样，就是在网上发布信息。他整天忙着在外面拜访客户、请客户吃饭，我整天呆在公司。一天也只有早上半个小时也晚上能够在一起，他晚上回家很晚经常在十点以后，回家后倒床就睡，有时候甚至整夜都不回家，问他在干什么，他就说陪客户玩了一晚上。我问他有没有跟客户去找小姐，他说工作需要有时候为了做成生意要请客户去那地方消费，但自己绝对不碰小姐的。
虽然我相信他，但是事实就是这样，我们之间的距离越来越远，我有时候晚上想他了给他打电话，他总是匆忙说两句就挂电话，说是正在和客户谈生意不方便。
生意越做越大，员工也越来越多，公司也搬迁换更大的地方了。我每天的工作还是发帖、发信息，重复、乏味，让人心烦。
后来我无意中发现一个叫“推广小助手”的[url=http://www.tgxzs.com/]群发软件[/url]可以自动在网上发帖、发布供应信息，心想这下好了，有了这个[url=http://www.tgxzs.com/]论坛群发[/url]软件，再也不用做哪些让人头疼的发帖工作了。我把软件拿给他看，他很快就决定购买一套，说是送给我的礼物。
谁知道这就是我们分手的导火索，我越来越清闲，每天打开那个软件就什么也不用管了，而且发送的数量远远比之前手工发送的多太多了。没天能发送几万个帖子。那段时间他生意好的不得了。我整天上班还可以看看新闻、看看电影什么的。
几个月后，公司再次搬迁，搬到了一个非常豪华的办公楼，面积也很大，他终于有了自己的办公室，而我则和其他员工一样坐在大厅里，我和他之间的共同语言越来越少。
和他在一起这么久了，我也到了结婚的年龄，但他重来不跟我谈结婚的事情，我又一次小心翼翼的问他说我们结婚吧，他却笑道，这么早啊，他还小，还要闯事业，他的意思是30岁以后再结婚。但我等不了了，等他30岁我不就高龄产妇了，他根本就不考虑我的感受。
都说男人一有钱了就会学坏，他还是那样天天回家很晚，甚至连续几天不回家。我一个人在家，忍不住去想他是不是在外面有人了，为什么不考虑一下我的感受。
我偷偷拿到他的手机，发现里面和一个叫青青的女孩的短信都很恶心，短信里还说他现在女朋友（也就是说我）整天闲着没事，吃白饭，老是缠着他，很烦，那女孩叫他老公别烦我和你在一起很开心。我一下子就傻了，头都大了，怎么也不相信自己的眼睛。
整整一个星期我心痛如刀割一样，脑子里不断回响着“整天闲着没事，吃白饭，老是缠着他”这句话。有时候躲在公司的卫生间里偷偷的哭。晚上睡不好觉。
他冷冷的问我怎么了，这几天脸色这么难看，我也只好说昨天失眠没睡好。他要离开我了怎么办，难道就是因为那个推广小助手的破软件，让他觉得我已经不重要了吗？
我决心一定要向他问明白，我问他手机里的短信到底是怎么回事，他却火了，说我没事儿翻他手机干什么。知道什么叫隐私吗。我又问他那个叫青青的女孩是谁，他一巴掌打在我脸上，后面的事情我真的写不下去了，我的心在滴血，他把我赶出家门…………
最终我们还是分手了，虽然我极力想要去挽留，我们之间的关系就像是一缕青烟，当你本能的伸手想要去抓住，挥动手臂带来的气流却把这缕纤细的烟雾完全冲散。
我什么都没做错，为什么会这样，他永远都不知道我在他手机上看到了什么内容，而那些内容又多么伤人。就是那个推广小助手软件惹的祸，要不他也不会说我整天闲着没事儿，吃白饭，那个软件的网址[url=http://www.tgxzs.com/]http://www.tgxzs.com[/url] 有没有黑客能把它给黑掉，不要让他再害人了。
