仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 491|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页设计WEB文件办理器2.0版

[复制链接]
爱飞 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:44:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。
飘灵儿 该用户已被删除
沙发
发表于 2015-1-20 11:32:54 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
莫相离 该用户已被删除
板凳
发表于 2015-1-29 06:57:27 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
金色的骷髅 该用户已被删除
地板
发表于 2015-2-2 11:27:17 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
灵魂腐蚀 该用户已被删除
5#
发表于 2015-2-7 19:01:23 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
再见西城 该用户已被删除
6#
发表于 2015-2-22 23:18:55 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
透明 该用户已被删除
7#
发表于 2015-3-14 09:30:40 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
admin 该用户已被删除
8#
发表于 2015-3-21 01:39:02 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-8 05:27

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表