|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般web<title>WEB文件办理器2.0版http://asp2004.net</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/CSS">
<!--
a{
font-size:9pt;
color:#3300CC;
text-decoration:none;
}
body{
font-size:9pt;
margin-left:0px;
margin-top:0px;
margin-right:0px;
margin-bottom:0px;
line-height:20px;
background-color:#EEEEEE;
}
td{
font-size:9pt;
line-height:20px;
}
.tx{
border-color:#000000;
border-left-width:0px;
border-top-width:0px;
border-right-width:0px;
border-bottom-width:1px;
font-size:9pt;
background-color:#EEEEEE;
}
.tx1{
font-size:9pt;
border:1pxsolid;
border-color:#000000;
color:#000000;
}
-->
</style>
<%
’版权声明:本代码仅供进修研讨之用,自己不合错误因利用本程序而酿成的任何成果卖力。未经作者书面允许不得用于贸易用处。
’QQ:103895
’email:quxiaohui_0@163.com
’http://asp2004.net
Server.ScriptTimeout=999
action=Request("action")
temp=Split(Request.ServerVariables("URL"),"/")
url=temp(UBound(temp))
Constpass="asp2004.net"’上岸暗码
’上岸考证
CallChkLogin()
Setfso=CreateObject("Scripting.FileSystemObject")
SelectCaseaction
Case"新建文件"
Callfileform(Request("path")&"")
Case"savefile"
Callsavefile(Request("filename"),Request("content"),Request("filename1"))
Case"新建文件夹"
Callnewfolder(Request("path")&"")
Case"savefolder"
Callsavefolder(Request("foldername"))
Case"编纂"
Calledit(Request("f"))
Case"重定名"
Callrenameform(Request("f"))
Case"saverename"
Callrename(Request("oldname"),Request("newname"))
Case"剪切"
session("f")=request("f")
session("action")=action
Response.Redirect(url&"?foldername="&Request("path"))
Case"复制"
session("f")=request("f")
session("action")=action
Response.Redirect(url&"?foldername="&Request("path"))
Case"粘贴"
Callaffix(Request("path")&"")
Case"删除"
CallDelete(request("f"),Request("path"))
Case"uploadform"
Calluploadform(Request("filepath"),Request("path"))
Case"saveupload"
Callsaveupload()
Case"下载"
Calldownload(request("f"))
Case"打包"
DimStr,s,s1,s2,rep
CallDabao(Request("f"),Request("path"))
Case"解包"
CallJiebao(Request("f"),Request("path"))
Case"加入"
Calllogout()
CaseElse
Path=Request("foldername")
IfPath=""ThenPath=server.MapPath("./")
ShowFolderList(Path)
EndSele</p>对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |
|