仓酷云

标题: ASP编程：FSO操纵示例（给初学者） [打印本页]

作者: 若相依 时间: 2015-1-16 22:57
标题: ASP编程：FSO操纵示例（给初学者）
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。fso|初学|示例
把上面代码存到一个ASP文件中便可，便利办理服务器上的文件
<title>http://bbs.asp2004.net制造：小灰QQ：103895</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<styletype="text/css">

</style>
<%
action=request.QueryString("action")
temp=split(request.ServerVariables("URL"),"/")
url=temp(ubound(temp))
chklogin()
selectcaseaction
case"logout"
logout()
case"delfile"
delfile()
case"savefile"
savefile()
case"editfile"
fileedit()
case"newfile"
filenew()
case"upload"
upload()
case"saveupload"
saveupload()
case"delfolder"
delfolder()
case"savefolder"
savefolder()
case"editfolder"
editfolder()
case"newfolder"
newfolder()
caseelse
foldername=request.QueryString("foldername")
filename=request.QueryString("filename")
path=foldername
ifpath=""thenpath=server.MapPath("./")
ShowFolderList(path)
endselect
FunctionShowFolderList(folderspec)
temp=request.ServerVariables("HTTP_REFERER")
temp=left(temp,Instrrev(temp,"/"))
temp1=len(folderspec)-len(server.MapPath("./"))-1
iftemp1>0then
temp1=right(folderspec,cint(temp1))
elseiftemp1=-1then
temp1=""
endif
tempurl=temp+replace(temp1,"","/")+"/"
Setfso=CreateObject("Scripting.FileSystemObject")
upfolderspec=fso.GetParentfoldername(folderspec&"")
%>
<ahref="<%=url%>?action=newfolder&foldername=<%=folderspec%>">新建文件夹</a>|<ahref="<%=url%>?action=newfile&filename=<%=folderspec&""%>">新建文件</a>|<ahref="<%=url%>?action=upload">上传文件</a>|<ahref="<%=url%>?foldername=<%=upfolderspec%>">向上</a>|<ahref="file.asp">前往首页</a>|<ahref="<%=url%>?action=logout">加入</a>
<tablewidth="100%"border="0"cellpadding="0"cellspacing="1"bgcolor="#6595D6">
<trbgcolor="#E4E8EF">
<tdwidth="64%"><divalign="center">称号</div></td>
<tdwidth="7%"><divalign="right">巨细</div></td>
<tdwidth="6%"><divalign="center">范例</div></td>
<tdwidth="15%"><divalign="left">修正工夫</div></td>
<tdwidth="8%"><divalign="center">操纵</div></td>
</tr>
<%
列出目次
Setf=fso.GetFolder(folderspec)
Setfc=f.SubFolders
ForEachf1infc
%>
<trbgcolor="#E4E8EF"onMouseOut=this.bgColor=#E4E8EF;onMouseOver=this.bgColor=#FFFFFF;>
<td><ahref="<%=url%>?foldername=<%=folderspec%><%=f1.name%>"><%=f1.name%></a></td>
<td><divalign="right"><%=f1.size%></div></td>
<td><divalign="center">文件夹</div></td>
<td><divalign="left"><%=f1.datelastmodified%></div></td>
<td><ahref="<%=url%>?action=editfolder&foldername=<%=folderspec&""&f1.name%>">修正</a><ahref="<%=url%>?action=delfolder&foldername=<%=folderspec&""&f1.name%>"onclick="{if(confirm(删除文件夹<<%=f1.name%>>么?)){returntrue;}returnfalse;}">删除</a></td>
</tr>
<%
Next
列出文件
Setfc=f.Files
ForEachf1infc
%>
<trbgcolor="#E4E8EF"onMouseOut=this.bgColor=#E4E8EF;onMouseOver=this.bgColor=#FFFFFF;>
<td><ahref="<%=tempurl+f1.name%>"target="_blank"><%=f1.name%></a></td>
<td><divalign="right"><%=f1.size%></div></td>
<td><divalign="left"></div></td>
<td><divalign="left"><%=f1.datelastmodified%></div></td>
<td><ahref="<%=url%>?action=editfile&filename=<%=folderspec&""&f1.name%>">修正</a><ahref="<%=url%>?action=delfile&filename=<%=folderspec&""&f1.name%>"onclick="{if(confirm(删除文件<<%=f1.name%>>么?)){returntrue;}returnfalse;}">删除</a></td>
</tr>
<%
Next
setfso=nothing
%>
</table>
<%
EndFunction
文件操纵
functiondelfile()
filename=request.QueryString("filename")
setfso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(filename)
tempurl=url&"?foldername="&fso.GetParentfoldername(filename)
setfso=nothing
response.Redirect(tempurl)
endfunction
functionsavefile()
filename=request.Form("filename")
content=request.Form("content")
filename1=request.Form("filename1")
ifrequest.ServerVariables("PATH_TRANSLATED")filenamethen
setfso=server.CreateObject("scripting.filesystemobject")
setf1=fso.opentextfile(filename,2,true)
f1.write(content)
f1.close
iffilename1""andfilename1filenamethenfso.deletefile(filename1)
tempurl=url&"?foldername="&fso.GetParentfoldername(filename)
setfso=nothing
endif
response.Redirect(tempurl)
endfunction
functionfilenew()
filename=request.QueryString("filename")
content=""
fileformfilename,content,filename1
endfunction
functionfileedit()
filename=request.QueryString("filename")
filename1=request.QueryString("filename")
setfso=server.CreateObject("scripting.filesystemobject")
setf1=fso.opentextfile(filename,1,true)
content=server.HTMLEncode(f1.readall)
f1.close
setfso=nothing
fileformfilename,content,filename1
endfunction
functionfileform(filename,content,filename1)
%>
<tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="0">
<formname="form1"method="post"action="<%=url%>?action=savefile">
<tr>
<td><inputname="filename1"type="hidden"value="<%=filename1%>"><inputname="filename"type="text"value="<%=filename%>"style="width:100%"></td>
</tr>
<tr>
<td><textareaname="content"wrap="VIRTUAL"style="width:100%;height:100%;font:Arial,Helvetica,sans-serif;"onKeyUp="style.height=this.scrollHeight;"><%=content%></textarea></td>
</tr>
<tr>
<td><center><inputtype="submit"name="Submit"value="保留"style="width:200"><inputtype="reset"name="Submit2"value="重置"style="width:200"></center></td>
</tr>
</form>
</table>
<%
endfunction
文件夹操纵函数
functiondelfolder()
foldername=request.QueryString("foldername")
setfso=server.CreateObject("scripting.filesystemobject")
tempurl=url&"?foldername="&fso.GetParentfoldername(foldername)
fso.deletefolder(foldername)
setfso=nothing
response.Redirect(tempurl)
endfunction
functionsavefolder()
foldername=request.Form("foldername")
foldername1=request.Form("foldername1")
setfso=server.CreateObject("scripting.filesystemobject")
iffoldername1=""then
setf=fso.createfolder(foldername)
else
fso.MoveFolderfoldername1,foldername
endif
tempurl=url&"?foldername="&f
setfso=nothing
response.Redirect(tempurl)
endfunction
functionnewfolder()
foldername=request.QueryString("foldername")&""
formfolderfoldername,foldername1
endfunction
functioneditfolder()
foldername=request.QueryString("foldername")
foldername1=request.QueryString("foldername")
formfolderfoldername,foldername1
endfunction
functionformfolder(foldername,foldername1)
%>
<tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="0">
<formname="form1"method="post"action="<%=url%>?action=savefolder">
<tr><td><inputname="foldername1"type="hidden"value="<%=foldername1%>"><inputname="foldername"type="text"value="<%=foldername%>"style="width:100%"></td></tr>
<tr><td><center><inputtype="submit"name="Submit"value="保留"style="width:200"><inputtype="reset"name="Submit2"value="重置"style="width:200"></center></td></tr>
</form>
</table>
<%
endfunction
functionupload()
%>
<formaction="file.asp?action=saveupload"method="post"enctype="multipart/form-data"name="form2">
<divalign="center">有待完成
<inputtype="file"name="file"style="width:80%">
<inputtype="submit"name="Submit"value="提交">
</div>
</form>
<%
endfunction
functionsaveupload()
有待完成
endfunction
上岸
functionchklogin()
password=request.Form("password")
ifpassword="ok"thensession("login")="login"
ifsession("login")"login"thenlogin
endfunction
functionlogin()
%>
<formname="form1"method="post"action="<%=url%>?action=chklogin">
<center>请输出暗码：<inputname="password"type="password"><inputtype="submit"name="Submit"value="上岸"></center>
</form>
<%
response.End()
endfunction
functionlogout()
session.Abandon()
response.Redirect(url)
endfunction
%>

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

作者: 再见西城 时间: 2015-1-20 06:33
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 变相怪杰 时间: 2015-1-25 17:34
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 飘灵儿 时间: 2015-2-2 14:47
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 海妖 时间: 2015-2-7 23:05
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 分手快乐 时间: 2015-2-23 14:51
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 兰色精灵 时间: 2015-3-7 09:20
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 不帅 时间: 2015-3-14 18:05
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 山那边是海 时间: 2015-3-21 12:51
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

欢迎光临仓酷云 (http://ckuyun.com/)