再现理想 发表于 2015-2-16 00:25:13

ASP网页设计ASP进修:FSO文件夹祥解

因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。fso   fso:: getAbsolute($dir)
失掉一个绝对途径的相对根目次的途径
fso:: getOpposite($dir)
失掉一个相对根目次的途径的相对以后法式页面的途径
fso:: createFolder($dirname)
新建一个目次
fso:: folderExists($folder)
判别一个目次是不是存在
fso:: fileExists($file)
判别一个文件是不是存在
fso:: copyFolder($source, $dest)
拷贝一个目次下的子目次和文件到另外一个目次
fso:: copyFile($source, $dest)
拷贝一个文件
fso:: scanFolder($folder, &$array)
失掉一个目次下的一切文件和目次列表,$array将是一个二维数组,每一个元素形如array(“name”=>文件/目次名,”size”=>文件/目次尺寸,”time”=>最初修正工夫)
fso:: moveFile($source, $dest)
把一个目次/文件移到另外一个中央,原目次/文件将被测验考试删除
fso:: removeFolder($folder)
删除一个目次
fso:: removeFile($file)
删除一个文件
fso:: createFile($file)
新建一个文件
fso:: writeLine($handle , $string)
向一个已翻开的句柄里写入一个字符串
fso:: readLine($file)
读一个文件中的第一行
fso:: readFile($file)
读取全部文件
fso:: openFile($file, $method = "a+")
以一种体例翻开文件
<% @ LANGUAGE="VBs cript" %>
<%Option Explicit
response.buffer=true
dim Spassword,SUserName
SUserName="admin"
Spassword="admin"
dim SQLMutiStr
dim i
dim action
action=request.querystring("action")

IF action="GetCode" then '---------TOT
NumCodeJS
ELSE '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Create By PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Generator"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Author"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Keywords"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,s cript,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Des cription"" CONTENT=""运转ASP代码的ASP剧本!"">")
Response.Write("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")

SQLMutiStr=trim(Request.Form("SQLMutiStr"))
if session("login")="" and action="chkpass" then
session("login")=checkPass()
end if
if action="exit" then session("login")=""
if session("login")="1" then
if action="RunCode" then
if SQLMutiStr="" then
Response.write "没有输出要运转的代码!"
Response.write "<br><br><a href=""javas cript:window.history.back();"">前往运转页面</a><br><br>"
Response.write "<a href=""?action=exit"">加入上岸</a>"
response.end
else
dim ExeStrArr
dim re
dim tempSQL,tempSQL2
dim s criptArr,s criptSubArr
tempSQL2=""
tempSQL=split(SQLMutiStr,vbcrlf)
if inStr(lcase(tempSQL(0)),"language")>0 then
tempSQL2=tempSQL(1)
if ubound(tempSQL)>1 then
for i=1 to ubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
next
end if
tempSQL2=trim(tempSQL2)
else
tempSQL2=SQLMutiStr
end if
tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write ")
do
tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
loop while instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2=trim(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
s criptArr=split(tempSQL2,"%"&">")
dim ub,kub
ub=ubound(s criptArr)
for i=0 to ub-1
s criptSubArr=split(s criptArr(i),"<"&"%")
if i>0 then response.write (s criptSubArr(0))
ExeCuteIt(s criptSubArr(1))
next
call EndProc("<font color=#009900>代码运转终了!</font>")
end if
else
%>
输出要运转的ASP代码:
<FORM METHOD=POST ACTION="?action=RunCode" style="margin:0px;">
<TEXTAREA NAME="SQLMutiStr" wrap='OFF' ROWS="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=Server.Htmlencode(SQLMutiStr)%></TEXTAREA>
<br>
<INPUT TYPE="button" Value="LouOut">
<INPUT TYPE="reset" Value="Clear">
<INPUT TYPE="submit" value="Run AspCode">
</FORM>
<% end if
else
call loginmain()
end if
Response.write ("</BODY></HTML>")
END IF '-------TOT

SUB loginMain()
%>

<FORM METHOD=POST ACTION="?action=chkpass"> UserName:<INPUT TYPE="text" NAME="UserName"><br>
PassWord:<INPUT TYPE="password" NAME="Runpassword"><br>
CheckCode:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
<br><img width=125 height=0><INPUT TYPE="submit" value=" Login "></FORM>
<%
End SUB

function checkPass()
dim UserName,Runpassword,GetCode
dim errinfo
checkPass=""
UserName=trim(request.form("UserName"))
Runpassword=trim(request.form("Runpassword"))
GetCode=request.form("GetCode")
if UserName="" or Runpassword="" then
errinfo=errinfo&"<li>用户名和暗码输出不克不及为空"
end if
if Not isnumeric(GetCode) then
errinfo=errinfo&"<li>请输出数字校验码"
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。

精灵巫婆 发表于 2015-2-16 01:15:06

代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。

冷月葬花魂 发表于 2015-2-26 20:28:23

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

莫相离 发表于 2015-3-5 16:21:29

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

爱飞 发表于 2015-3-10 22:21:42

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

谁可相欹 发表于 2015-3-17 11:10:30

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

若相依 发表于 2015-3-18 17:36:07

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。

飘飘悠悠 发表于 2015-3-25 12:17:31

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。

简单生活 发表于 2015-3-31 11:09:09

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。

第二个灵魂 发表于 2015-4-1 14:09:53

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

再见西城 发表于 2015-4-1 17:11:21

尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。

金色的骷髅 发表于 2015-4-5 09:34:06

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

小妖女 发表于 2015-4-22 23:40:07

Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write

灵魂腐蚀 发表于 2015-5-11 04:21:12

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

海妖 发表于 2015-6-7 06:49:02

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

再现理想 发表于 2015-6-8 22:55:23

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

因胸联盟 发表于 2015-6-10 02:41:47

Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write

不帅 发表于 2015-6-12 19:13:34

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。

小女巫 发表于 2015-7-18 21:36:41

尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。

活着的死人 发表于 2015-7-24 21:33:06

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页: [1] 2
查看完整版本: ASP网页设计ASP进修:FSO文件夹祥解