|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.fso|技能 本法式中采取的是mid函数,该函数的感化是前往某字符串中从第几位字符入手下手的几个字符。格局即为:Mid(string,start,length)
<script language=VBs>
cn_string= "cnbruce love cnrose"
cn_start = 9
cn_length = 4
alert (mid(cn_string,cn_start,cn_length))
</script>
学会了FSO提取文件值,也学会了将信息输出到文件中,那上面就再来使用使用下。
不晓得你有无如许的习气:看到一个文件,不盲目的右键选择用记事本翻开。呵呵,几近没有哪一个文件是不成以的。所以如今,可以默许一切文件都是文本,只是后缀名分歧罢了;那末也就是说,如今可以提取任一文件的内容信息。OK,就来想象一下:
1,提取一个文件的途径(采取file按钮停止查找定位)
2,将该途径文件翻开,并读取一切行
3,显示读取的信息
1、viewcode.ASP
<%Function ShowCode(filename)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set cnrs = fso.OpenTextFile(filename, 1)
While Not cnrs.AtEndOfStream
rsline = cnrs.ReadLine
rsline = server.HTMLEncode(rsline)
Response.Write(rsline & "<br>")
Wend
end Function%>
<form action="viewcode.asp" method="post">输出文件名
<input type="file" name="filename">
<input type="submit" value="检查源法式">
</form>
<%file=request.form("filename")
response.write (file & "源法式以下<hr>")
If trim(file)<> "" then
Call ShowCode(file)
End If%>
以上法式调试时,可以选择html,asp页面,也能够翻开任一使用法式等。
界说的ShowCode函数,次要感化是翻开、读取并显示文件中一切信息内容。注重添加了server.HTMLEncode(rsline),针对含有尺度HTML代码的文件。
显示文件中一切行即用一前提轮回停止遍历显示了。
While Not cnrs.AtEndOfStream...Wend
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! |
|