Archive for 05月, 2007
| |
|
|
|
Posted (xurenlu) in 未分类 on 05月-19-2007
|
|
|
“我是去年《绝对唱响》冠军邓宁的粉丝,也很喜欢唱歌,希望等我病好了以后,能够站在《绝对唱响》的舞台上。”这是白血病患者房银银在报名中的话。
说实话我对”绝对唱响”之类的节目不感冒。但是我喜欢唱歌。我也理解人们爱做一件事情的执著,比如唱歌。不过有时候上天是如此不公平,站到舞台上唱歌对于房银银来说是如此之难。大好年华,却不幸遭遇如此劫难。
优酷推出的这个爱心捐助房银银,网友每观看一次房银银的视频,优酷网就为房银银捐出1分的活动,其实骨子里包含了一种炒的味道。我在想,如果真要支持房银银,以优酷的财力,一次划个几十百把万就直接解决了人家最大的压力。当然,任何一家公司追求更多盈利都是合情合理的,优酷绝对没有这个直接从经济上支持房银银的义务。人想帮一把也得董事会同意啊。社会的什么都是现实的,优酷能这样地帮助房银银,已经尽了很大的力啊。如果从经济上算的话真的没什么,一次点击一分钱,一百万点击,优酷才捐出1万块钱。如果病治好需要30万,那么这个视频需要被浏览3000万次。不少了。
我倒真希望这个视频能达到3000万的浏量,那么优酷为房银银捐出30万,(我们假设有30万足以治病),刚好优酷也拉了流量树立了形象。
当然其实可以从另外一个角度上去看,如果有100万人了解这个事件,也许优酷网才捐出1万块钱,但是由于有这么多人关注,毕竟这个社会上有很多好心人慈善家,也许就有其他人来捐助,房银银的经济难题就解决了。再说了,在看病的钱这个最大的问题解决的基础上,我们也能看到会有大量的人关注,探望病中的银银。病人都是脆弱的,需要关怀。多关心她,不也是一种捐助么?
我不由得想起大学时由师兄在博客网发起的一场慈善活动。同样的慈善目的,一个公司操作起来和个人操作起来,真是不一样啊。相比之下很不太喜欢优酷的方式,但我还是觉得优酷进步了。退一步,就算是有炒作成分,也比拿潜规则和黄色录像说事儿好啊。
但是不得不说的是,优酷的这个视频上,没有给出房银银的资料以及捐助方式,似有些不妥。如果其他人看了有这个捐助想法,怎么联系?
Tag: 相关文章
|
|
|
|
| |
|
|
|
Posted (xurenlu) in 未分类 on 05月-17-2007
|
|
|
就是adodb.strem那段流传最广,很神奇呢。我那么辛苦写了个模板类,居然只有几个台湾人用,怪。
- <%
-
- ’*************************************************************
- ’转发时请保留此声明信息,这段声明不并会影响你的速度!
- ’*************************************************************
-
-
- ’*************************************************************
- ’@author: 面条
- ’@realname: 徐仁禄
- ’@email: xurenlu@sohu.com
- ’@QQ: 55547082
- ’@Homepage: http://www.ksdn.net
- ’@版权申明:
- ’ 非盈利性质团体或者个人可以免费使用.
- ’*************************************************************
- ’ 我敢担保 本程序由本人独立完成 ,没有参考他人的任何程序(参考了本人自己的php版本的template,不过那个也是本人独立完成的 .)同时本人声明 本class的所有示例版权均为本人所有,任何人或者单位实体不得随意更改
- ’ 本template可免费用于:
- ’ 1.个人的非商业性质应用。
- ’ 2.公益性质团体,如红十字会,孤儿院等等
- ’
- ’具体使用方法请看example.asp文件.
- ’
- ’adSaveCreateOverWrite
-
- class template
- dim adSaveCreateOverWrite
- dim adSaveCreateNotExist
- public starttag
- public endtag
- public filename
- dim key_arr()
- dim val_arr()
- public content
- public total
- public contenta()
- public BlockContent ’ 块的内容(解析后的)
- public block_begin_delim
- public block_end_delim
- public block_begin_word
- public block_END_word
- public block_null
-
- sub Class_Initialize()’ 类的初始化
- redim key_arr(0)
- redim val_arr(0)
- redim contenta(0)
- adSaveCreateOverWrite=2
- adSaveCreateNotExist=1
-
- starttag="{"
- endtag="}"
- total=0
- block_begin_word="BEGIN"
- block_end_word="END"
- block_begin_delim="<!--"
- block_end_delim="-->"
- block_null=" " ’ begin 和end之间用空格隔开
- end sub
-
-
- sub echo (a)
- response.write a
- end sub
-
-
- function readfile(filepath)
- dim stm2
- on error resume next
- set stm2 =server.createobject("ADODB.Stream")
- stm2.Charset = "gb2312"
- stm2.Open
- stm2.LoadFromFile filepath
- readfile = stm2.ReadText
- end function
-
-
- function writefile(filepath,str)’ 写入文件的函数
- dim stm
- on error resume next
- Set stm = server.createobject("ADODB.Stream")
- stm.Charset = "gb2312"
- stm.Open
- stm.WriteText str
- stm.SaveToFile filepath, adSaveCreateOverWrite
- end function
-
- function SetFile(file)’ 设置文件,读取文件内容
- filename=file
- content=readfile(file)
- end function
-
- function inarray(val,arr)’val是否在数组arr中
- dim tmp,i,rr,re,pt,tt
- for i =0 to ubound(arr)
- if arr(i)=val then
- inarray=i
- exit function
- end if
- next
- inarray=-1 ’不在数组中.
- end function
-
- function listarray(arr,str)
- dim tmp,i,rr,re,pt,tt
- str=" " & str
-
- for i=0 to ubound(arr)
- echo str & i & ":" & arr(i) & vbcrlf
- next
- end function
-
- function NewKey(key,val) ’添加新的键值.
- dim tmp,i,rr,re,pt,tt,pos
- i=total
- pos=inarray(key,key_arr)
-
- if pos=-1 then ’//如果这个键值不存在.
-
- redim Preserve key_arr(i)
- redim Preserve val_arr(i)
-
-
- ’echo "key_arr(" & i & ")=" & key & vbcrlf
-
- key_arr(i)=key
- val_arr(i)=val
- total=total+1
- else
- key_arr(pos)=key
- val_arr(pos)=val
- end if
- end function
-
-
- function resetKeys()’ 初始化键名数组
- redim key_arr(0)
- redim val_arr(0)
- total=0
- end function
-
-
- function getTextContent(Tcontent)
- dim tmp,i,rr,re,pt,tt
- ’ 得到把某一个文本段的{}内容替换后的块.
- tmp=Tcontent
- for i=0 to total -1
- tmp=replace(tmp & "",starttag & key_arr(i) & endtag, val_arr(i)& "" ) ’ 替换各个键值.
- next
- ’ 替换{***}类似的东西。
- ’ 目前暂时先放一放把。
-
- ’’
- ’’
- set re=new RegExp
- re.Global=True
- re.Ignorecase=True
- pt="{([a-zA-Z0-9_]{0,100})}"
- re.Pattern=pt
- set tt=re.Execute(tmp)
-
-
- for i= 0 to tt.count -1
- tmp=replace(tmp & " ", tt.item(i) & "" ,"")
- next
- set re=nothing
- set tt=nothing
- ’’
- ’’
-
- getTextContent=tmp
- end function
-
-
- function getText()
- dim tmp,i,rr,re,pt,tt
- ’ 得到把某一个文本段的{}内容替换后的块.
- tmp=content
- for i=0 to total -1
- tmp=replace(tmp & "",starttag & key_arr(i) & endtag & "", val_arr(i) & "" ) ’ 替换各个键值.
- next
- ’ 替换{***}类似的东西。
- ’ 目前暂时先放一放把。
-
- ’’
- ’’
- set re=new RegExp ’ 这里是模式匹配的应用 有正规表达式应用高手的指导一下!
- re.Global=True
- re.Ignorecase=True
- pt="{([a-zA-Z0-9_]{0,100})}"
- re.Pattern=pt
- set tt=re.Execute(tmp)
- for i= 0 to tt.count -1
- tmp=replace(tmp & "", tt.item(i) & "","")
- next
- set re=nothing
- set tt=nothing
- ’’
- ’’
-
- getText=tmp
- content=tmp
- end function
-
-
- function getBlockContent(block)’ 得到模板内容中某一个块的内容
- dim i,pos1,pos2,firststr,secondstr,tempstr
- firstStr="<!-- BEGIN " & Block & " -->"
- secondStr="<!-- END " & Block & " -->"
- pos1=instr(content,firststr)
- pos2=instr(content,secondstr)
-
- if (pos2-pos1)<=0 then
-
- else
-
- tempstr=mid(content,pos1,pos2-pos1)
- tempstr=replace(tempstr,firststr,"")
- tempstr=replace(tempstr,secondstr,"")
- ’response.write replace(tmpstr,"<--","")
- end if
- ’response.end
-
- getBlockContent=tempstr ’ 返回该字符串.
- end function
-
-
- sub tofile(file)’ 输出到某个文件
- dim tmp
- tmp=gettext()
- writefile file,content’ 输出到文件
- end sub
-
-
- function ParseBlock(block) ’ 到到某一个块的解析后的内容.
- dim b,tmp
- dim firststr,secondstr,tempstr
- b=GetBlockContent(block) ’得到某一个块解析前的内容
- tmp=getTextContent(b)’得到这个块解析后的内容.
- BlockContent=BlockContent & tmp ’ 保存起来拉 哈哈。这样就实现了重复显示某一个块.
- firstStr="<!-- BEGIN " & Block & " -->"
- secondStr="<!-- END " & Block & " -->"
- tmp=replace(tmp,firststr,"")
- tmp=replace(tmp,secondstr,"")
- ParseBlock=tmp
- end function
-
- function replaceBlock(block)’ 把解析了几次的块的内容给替换解析了.
- dim con,tmp
- dim firststr,secondstr,tempstr
-
- con=GetBlockContent(block) ’得到这个块解析前的内容.
- tmp=replace(content & "",con & "",Blockcontent & "")
- blockcontent=""
-
- firstStr="<!-- BEGIN " & Block & " -->"
- secondStr="<!-- END " & Block & " -->"
-
- tmp=replace(tmp,firststr,"")
- tmp=replace(tmp,secondstr,"")
-
- content=tmp
- end function
-
- function replaceBlockforNUll(block)’ 把解析了几次的块的内容给替换解析了.
- dim tmp,con
- con=GetBlockContent(block) ’得到这个块解析前的内容.
- tmp=replace(content & "",con & "","")
- blockcontent=""
- content=tmp
- end function
-
- function replaceBlockfor(block,deStr)’ 把解析了几次的块的内容给替换解析了.
- dim tmp,con
- con=GetBlockContent(block) ’得到这个块解析前的内容.
- tmp=replace(content & "",con & "",Dstr)
- blockcontent=""
- content=tmp
- end function
- end class
-
-
- %>
-
-
- 2、数据库结果集合操作类
-
- 程序代码 程序代码
- <%
-
- ’*************************************************************
- ’转发时请保留此声明信息,这段声明不并会影响你的速度!
- ’*************************************************************
-
-
- ’*************************************************************
- ’@author: 面条
- ’@realname: 徐仁禄
- ’@email: xurenlu@sohu.com
- ’@QQ: 55547082
- ’@Homepage: http://www.ksdn.net
- ’@版权申明:
- ’ 非盈利性质团体或者个人可以免费使用.
- ’*************************************************************
-
-
- ’*************************************************************
- ’*************************************************************
- ’*************************************************************
- 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
- %>
-
-
-
- 数据库操作类
-
- 程序代码 程序代码
- <%
- ’────────────────────────────────
- ’功能说明:db类是实现数据库连接的类,里面留有数据库连接字符串接口
- ’包括模块:无,一般都是被其他模块包括
- ’调用方法:1、如果使用原有数据库连接,则不用更改数据库连接字符串ConnStr
- ’ 具体操作为:Set DBC=New DataBaseClass
- ’ DBC.ConnStr="其他连接字符串"
- ’ 2、方法使用:Set Conn=DBC.OpenConnection()得到一个连接对象
- ’────────────────────────────────
- Class dbclass
- ’────────────────────────────────
- ’定义变量
- Private IConnStr
- ’────────────────────────────────
- ’ ConnStr属性
- Public Property Let ConnStr(Val)
- IConnStr = Val
- End Property
- ’────────────────────────────────
- ’ ConnStr属性
- Public Property Get ConnStr()
- ConnStr = IConnStr
- End Property
- ’────────────────────────────────
- ’ 类初始化
- Private Sub Class_initialize()
- End Sub
- ’────────────────────────────────
- ’ 类注销
- Private Sub Class_Terminate()
- ConnStr = Null
- End Sub
- ’────────────────────────────────
- ’ 建立一个连接
- Public Function OpenConnection()
- Dim TempConn
- ’On Error Resume Next
- Set TempConn = Server.CreateObject("ADODB.Connection")
- TempConn.Open ConnStr
- Set OpenConnection = TempConn
- Set TempConn = Nothing
- if Err.Number <> 0 then
- Response.Write ("<script>alert(’[系统错误]\n\n数据库连接错误!请检查系统参数设置>>站点常量设置,或者 /inc/const.asp文件!’);</script>")
- Response.End
- end if
- End Function
- End Class
-
- %>
-
- 基于adodb.stream的文件操作类
-
- 程序代码 程序代码
- <%
-
- ’*************************************************************
- ’转发时请保留此声明信息,这段声明不并会影响你的速度!
- ’*************************************************************
-
-
- ’*************************************************************
- ’@author: 面条
- ’@realname: 徐仁禄
- ’@email: xurenlu@sohu.com
- ’@QQ: 55547082
- ’@Homepage: http://www.ksdn.net
- ’@版权申明:
- ’ 非盈利性质团体或者个人可以免费使用.
- ’*************************************************************
-
-
- ’*************************************************************
- ’ 类名称: files
- ’ 类功能: 实现文件读写功能,利用adodb.stream实现,在不支持fso的主机上也可以读写文件.
- ’*************************************************************
-
- class files
-
-
- private adSaveCreateOverWrite ’创建文件的时候可以覆盖已经存在的文件.
- private adSaveCreateNotExist ’保存文件的时候如果文件不存在,可以创建文件.
-
-
- ’*************************************************************
- ’ 事件名称: Class_Initialize()
- ’ 事件发生条件: 类创建时候产生该事件
- ’ 事件内容: 给私有变量赋值
- ’ 事件传入参数: 无
- ’*************************************************************
-
-
- sub Class_Initialize()
- adSaveCreateOverWrite =2
- adSaveCreateNotExist = 1
- end sub
-
-
- ’*************************************************************
- ’ 函数名称: function readfile(filepath)
- ’ 函数内容: 读出文件
- ’ 传入参数: filepath:要读的文件的绝对路径
- ’ 返回参数: 要读的文件的内容.
- ’*************************************************************
- function readfile(filepath)
-
-
- on error resume next
-
- dim stm2
-
-
- set stm2 =server.createobject("ADODB.Stream")
- stm2.Charset = "gb2312"
- stm2.Open
- stm2.LoadFromFile filepath
- readfile = stm2.ReadText
- end function
-
-
- ’*************************************************************
- ’ 函数名称: function writefile(filepath,str)
- ’ 函数内容: 写入文件
- ’ 传入参数: filepath:要读的文件的绝对路径
- ’ str: 要写入的内容
- ’ 返回参数: 无返回
- ’*************************************************************
-
-
- function writefile(filepath,str)
-
-
- on error resume next
-
-
- Set stm = server.createobject("ADODB.Stream")
- stm.Charset = "gb2312"
- stm.Open
- stm.WriteText str
- stm.SaveToFile filepath, adSaveCreateOverWrite
- end function
-
-
-
- ’*************************************************************
- ’ 函数名称: function copy(filepath_s,filepath_d)
- ’ 函数内容: 读出文件
- ’ 传入参数: filepath_d:目的文件的绝对路径
- ’ filepath_s:源文件路径
- ’*************************************************************
- function copy(filepath_s,filepath_d)
- on error resume next
- dim stm2
- set stm2 =server.createobject("ADODB.Stream")
- stm2.Charset = "gb2312"
- stm2.Open
- stm2.LoadFromFile filepath_s
- stm2.SaveToFile filepath_d, adSaveCreateOverWrite
- end function
-
-
- end class
-
-
- %>
Tag: 相关文章
|
|
|
|
| |
|
|
|
Posted (xurenlu) in 未分类 on 05月-14-2007
|
|
|
用了半年linux,现在又回到了Windows的怀抱。
我一直支持国货,支持正版,支持开源。
我的两个手机,头一个是台湾产的,后一个是内地产的。电脑也买的Haier的,装的Fedora的系统。
装完自己挺得瑟的,觉得我可以跟人说我的电脑上全是开源软件了。
不过现在上班后,交流很不爽。首先是Gaim下的QQ和Gtalk老登不上。看看碟什么的也痛苦,别说P2p下载了,我自己买碟都看得不痛。虽然装了Realplayer,但以我1.5G的内存仍然反应缓慢,后来千辛万苦地装上了Mplayer,但是不能拖动。也就是说跟用DVD机看一样的效果,只能快进。
所以现在我又回到Win时代了。
win也不错,还能玩游戏。这是一大便利。虽然笔记本音响效果差一点,感觉也很爽了。
要跑Linux,就让公司的台式机跑吧。在公司不能玩游戏。
Tag: 相关文章
|
|
|
|
|
|