仓酷云

标题: ASP编程：FileSystemObject组件新建\读取\增加\修... [打印本页]

作者: 蒙在股里 时间: 2015-1-16 22:48
标题: ASP编程：FileSystemObject组件新建\读取\增加\修...
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。filesystemobject<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>FileSystemObject组件应当实例</title>
</head>

<body>
<inputname="B0"type="button"value="创立文本文件"onClick="window.location=test1.asp?type=crea">
<inputname="B1"type="button"value="读取文件内容"onClick="window.location=test1.asp?type=read">
<inputname="B2"type="button"value="增加文件内容"onClick="window.location=test1.asp?type=add">
<inputname="B3"type="button"value="修正文件内容"onClick="window.location=test1.asp?type=edit">
<inputname="B4"type="button"value="删除文件内容"onClick="window.location=test1.asp?type=dele">
<%
read="michael.txt"
猎取文件实在路径
read=LEFT(Server.MapPath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.MapPath(Request.ServerVariables("PATH_INFO")),""))&read
response.write"文件路径:"&read&"<br>"输入文件实在路径
%>
<hr>
<%ifrequest.querystring("type")="crea"then%>
<formaction="test1.asp?type=crea"method="post"name="form1">
请输出文件名:<inputname="T1"size="45">.txt<br>
请输出文件内容:<textareaname="D1"cols="50"rows="5"></textarea>
<inputname="bu"type="Submit"value="提交">
</form>
<%endif%>
<%ifrequest.querystring("type")="add"then%>
<formaction="test1.asp?type=add"method="post"name="form1">
<textareaname="D1"cols="70"rows="5"></textarea>
<inputname="bu"type="Submit"value="提交">
</form>
<%endif%>
<%
ifrequest.querystring("type")="edit"then
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.FileExists(server.mappath("michael.txt"))then
Setts=fs.OpenTextFile(server.mappath("michael.txt"))
%>
<formaction="test1.asp?type=add"method="post"name="form1">
<textareaname="D1"cols="70"rows="5"><%=ts.ReadLine%></textarea>
<inputname="bu"type="Submit"value="提交">
</form>
<%
else
response.write"找不到此文件"
endif
endif
%>
<%
ifrequest.querystring("type")="crea"andrequest.form""then创立新的文件
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.FileExists(server.mappath(request.form("T1")&".txt"))then判别文件是不是存在
response.write"<script>alert(该文件已存在);window.location=test1.asp?type=crea;</script>"
else
Setts=fs.CreateTextFile(server.mappath(request.form("T1")&".txt"),True)
ts.close
Setts=fs.OpenTextFile(server.mappath(request.form("T1")&".txt"),2,True)
ts.WriteLine(request.form("D1"))写进文件内容注:WriteLine是到场内容并换行,Write是到场内容不换行
ts.close
response.write"<script>alert(创立文件乐成);window.location=test1.asp?type=read;</script>"

endif
setfs=nothing
endif

ifrequest.querystring("type")="read"then读取文件内容
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.FileExists(server.mappath("michael.txt"))then判别文件是不是存在
Setts=fs.OpenTextFile(server.mappath("michael.txt"))
response.write"文件内容:"
dountilts.AtEndOfStream判别是不是读到文件最初一行
response.writets.readLine&"<br>"读取文件逐行输入
loop
ts.close
else
response.write"找不到此文件"
endif
setfs=nothing
endif

ifrequest.querystring("type")="add"andrequest.form""then增加文件内容
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.Fi</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

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

作者: 小女巫 时间: 2015-1-28 16:04
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 灵魂腐蚀 时间: 2015-2-5 22:06
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

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

作者: 若相依 时间: 2015-3-4 01:12
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 若天明 时间: 2015-3-11 15:22
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 不帅 时间: 2015-3-19 01:00
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 精灵巫婆 时间: 2015-3-27 00:11
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

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