仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 3860|回复: 18

[学习教程] ASP网站制作之用XML+FSO+JS完成办事器端文件的

[复制链接]
若天明 该用户已被删除
发表于 2015-2-16 00:25:13 | 显示全部楼层 |阅读模式

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

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

x
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。fso|js|xml|办事器   起首在办事器端先创立一个法式可以生成XML文件,以前往客户端,(getfolder.asp)
<%
'written by Linzhang Chen ,2003-4-20
' 转载请注明出处和保存此版权信息
response.write "<?xml version=""1.0"" encoding=""GB2312""?>"&chr(13)
response.write "<mediafile>"&chr(13)
folders=request("folder")
if folders="/" then
folders=""
end if
dim count
count=0
folders=replace(folders,"..","")
basefolder="../media/"'基准的文件夹途径
newfolder=basefolder&folders
Set fso =server.CreateObject("Scripting.FileSystemObject")
set f=fso.getfolder(server.mappath(newfolder))
set sf=f.subfolders
for each fd in sf'前往指定途径上面的文件夹列表
response.write "<file>"&chr(13)
response.write "<ftype>folder</ftype>"&chr(13)
response.write "<fname>"&fd.name&"</fname>"&chr(13)
response.write "</file>"&chr(13)
count=count+1
next
set sf=nothing
set ff=f.Files
for each fi in ff
fname=fi.name
if instr("asf,wma,wmv",lcase(mid(fname,instrrev(fname,".")+1)))>0 then'设定答应前往的文件类型,避免源码泄漏
response.write "<file>"&chr(13)
response.write "<ftype>file</ftype>"&chr(13)
response.write "<fname>"&fname&"</fname>"&chr(13)
response.write "</file>"&chr(13)
count=count+1
end if
next
'假如该目次下没有文件,就发一个空元素
if count=0 then
response.write "<file>"&chr(13)
response.write "<ftype>empty</ftype>"&chr(13)
response.write "<fname>0</fname>"&chr(13)
response.write "</file>"&chr(13)
end if
response.write "</mediafile>"
set ff=nothing
set f=nothing
set fso=nothing
%>
上面就是客户真个JS的工夫了(selectfile.asp)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 选择视频文件 </TITLE>
<style>
td{font-size:9pt}
select{width:210}
.s2{width:250}
</style>
<SCRIPT LANGUAGE="javascript">
<!--
/*written by Linzhang Chen ,2003-4-20
转载请注明出处和保存此版权信息 */

//预装载图片
var imgback = new Image();
imgback.src = "http://www.163design.net/a/o/images/arrow.gif";
var imgbackgray = new Image();
imgbackgray.src = "images/grayarrow.gif";
var imgfolder = new Image();
imgfolder.src = "images/folder.gif";
var imggrayfolder = new Image();
imggrayfolder.src = "images/grayfolder.gif";
//汗青纪录数组栈
var arrhistory=new Array();
var hisi=0;
//用来肯定要前往文件名
function check()
{
if (document.all.filename.value=="")
{
alert("请先选择文件");
return false;
}
else
{
window.returnValue =document.f1.folder.value+document.all.filename.value;
window.close();
}
}
//获得XML文件的内容
function getuserlist(url)
{ var oXMLDoc = new ActiveXObject('MSXML');
oXMLDoc.url = url;
var ooRoot=oXMLDoc.root;
return ooRoot;
}
//中选中一个文件时,把这个值前往给文本框
function addfile(txt)
{
document.all.filename.value=txt;
}

var first=1;//界说一个全局变量

function userlist(folders,ti)//列出所选框
{document.f1.folder.value=folders;
filebox.document.body.innerHTML="正在加载文件,请稍侯...";
var strshow="";
var timeoutid=null;
var newfolder="";
var arrfolder=new Array();
var arrff=new Array();
var blankstr="";
var oItem;
//肯定汗青形态
hisi+=ti;
arrhistory[hisi]=folders;
if (hisi==0)
{
arrow.innerHTML="<img src=http://www.163design.net/"images/grayarrow.gif\">";
}
else
{
arrow.innerHTML="<img src=http://www.163design.net/"http://www.163design.net/a/o/images/arrow.gif\" border=0 style=\"cursor:hand\" onclick=\"userlist('"+arrhistory[hisi-1]+"',-1)\" onmou搜索引擎优化ver=\"this.src='http://www.163design.net/a/o/images/arrow_over.gif'\" onmou搜索引擎优化ut=\"this.src='http://www.163design.net/a/o/images/arrow.gif'\">";
}
//肯定以后的文件夹
if (document.f1.folder.value=="")
{
folderid.innerHTML="<img src=http://www.163design.net/"images/grayfolder.gif\">"
}
else
{newsfolder=checkfolder(document.f1.folder.value)</p>  问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.
海妖 该用户已被删除
发表于 2015-2-28 20:48:29 | 显示全部楼层
不能只是将它停留在纸上谈兵的程度上。
山那边是海 该用户已被删除
发表于 2015-3-6 21:22:21 | 显示全部楼层
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
爱飞 该用户已被删除
发表于 2015-3-8 15:38:44 | 显示全部楼层
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
谁可相欹 该用户已被删除
发表于 2015-3-9 15:27:20 | 显示全部楼层
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
飘灵儿 该用户已被删除
发表于 2015-3-17 00:08:00 | 显示全部楼层
不能只是将它停留在纸上谈兵的程度上。
小妖女 该用户已被删除
发表于 2015-3-23 07:47:26 | 显示全部楼层
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
愤怒的大鸟 该用户已被删除
发表于 2015-3-24 20:49:59 | 显示全部楼层
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
简单生活 该用户已被删除
发表于 2015-4-3 12:24:05 | 显示全部楼层
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
乐观 该用户已被删除
发表于 2015-4-12 17:17:42 | 显示全部楼层
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
变相怪杰 该用户已被删除
发表于 2015-4-16 19:15:41 | 显示全部楼层
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
再见西城 该用户已被删除
发表于 2015-4-22 11:27:35 | 显示全部楼层
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
老尸 该用户已被删除
发表于 2015-6-28 05:14:52 | 显示全部楼层
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
冷月葬花魂 该用户已被删除
发表于 2015-7-2 23:54:47 | 显示全部楼层
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
admin 该用户已被删除
发表于 2015-10-7 15:08:15 | 显示全部楼层
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
深爱那片海 该用户已被删除
发表于 2015-10-16 03:52:12 | 显示全部楼层
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
兰色精灵 该用户已被删除
发表于 2015-10-25 20:01:36 | 显示全部楼层
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
蒙在股里 该用户已被删除
发表于 2015-11-6 23:31:03 | 显示全部楼层
那么,ASP.Net有哪些改进呢?
金色的骷髅 该用户已被删除
发表于 2015-11-16 08:18:18 | 显示全部楼层
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 19:14

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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