仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 670|回复: 9
打印 上一主题 下一主题

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

[复制链接]
愤怒的大鸟 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。fso|js|xml|服务器看了inanition的《在服务器端选择文件》一文,后发明我已早把它作出来了,因而贴出来人人共享
起首在服务器端先创立一个程序能够天生XML文件,以前往客户端,(getfolder.asp)
<%
writtenbyLinzhangChen,2003-4-20
转载请说明出处和保存此版权信息
response.write"<?xmlversion=""1.0""encoding=""GB2312""?>"&chr(13)
response.write"<mediafile>"&chr(13)
folders=request("folder")
iffolders="/"then
folders=""
endif
dimcount
count=0
folders=replace(folders,"..","")
basefolder="../media/"基准的文件夹路径
newfolder=basefolder&folders
Setfso=server.CreateObject("Scripting.FileSystemObject")
setf=fso.getfolder(server.mappath(newfolder))
setsf=f.subfolders
foreachfdinsf前往指定路径上面的文件夹列表
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
setsf=nothing
setff=f.Files
foreachfiinff
fname=fi.name
ifinstr("asf,wma,wmv",lcase(mid(fname,instrrev(fname,".")+1)))>0then设定同意前往的文件范例,避免源码保守
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
endif
next
假如该目次下没有文件,就发一个空元素
ifcount=0then
response.write"<file>"&chr(13)
response.write"<ftype>empty</ftype>"&chr(13)
response.write"<fname>0</fname>"&chr(13)
response.write"</file>"&chr(13)
endif
response.write"</mediafile>"
setff=nothing
setf=nothing
setfso=nothing
%>
上面就是客户真个JS的工夫了(selectfile.asp)
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<TITLE>选择视频文件</TITLE>
<style>
td{font-size:9pt}
select{width:210}
.s2{width:250}
</style>
<SCRIPTLANGUAGE="JavaScript">
<!--
/*writtenbyLinzhangChen,2003-4-20
转载请说明出处和保存此版权信息*/

//预装载图片
varimgback=newImage();
imgback.src="http://www.163design.net/a/y/images/arrow.gif";
varimgbackgray=newImage();
imgbackgray.src="images/grayarrow.gif";
varimgfolder=newImage();
imgfolder.src="images/folder.gif";
varimggrayfolder=newImage();
imggrayfolder.src="images/grayfolder.gif";
//汗青纪录数组栈
vararrhistory=newArray();
varhisi=0;
//用来断定要前往文件名
functioncheck()
{
if(document.all.filename.value=="")
{
alert("请先选择文件");
returnfalse;
}
else
{
window.returnValue=document.f1.folder.value+document.all.filename.value;
window.close();
}
}
//获得XML文件的内容
functiongetuserlist(url)
{varoXMLDoc=newActiveXObject(MSXML);
oXMLDoc.url=url;
varooRoot=oXMLDoc.root;
returnooRoot;
}
//中选中一个文件时,把这个值前往给文本框
functionaddfile(txt)
{
document.all.filename.value=txt;
}

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

functionuserlist(folders,ti)//列出所选框
{document.f1.folder.value=folders;
filebox.document.body.innerHTML="正在加载文件,请稍侯...";
varstrshow="";
vartimeoutid=null;
varnewfolder="";
vararrfolder=newArray();
vararrff=newArray();
varblankstr="";
varoItem;
//断定汗青形态
hisi+=ti;
arrhistory[hisi]=folders;
if(hisi==0)
{
arrow.innerHTML="";
}
//断定以后的文件夹
if(document.f1.folder.value=="")
{
folderid.innerHTML="<imgsrc=http://www.163design.net/"images/grayfolder.gif">"
}
</p>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件
若相依 该用户已被删除
沙发
发表于 2015-1-18 16:48:15 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
透明 该用户已被删除
板凳
发表于 2015-1-22 13:30:51 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
只想知道 该用户已被删除
地板
发表于 2015-1-23 19:30:28 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
金色的骷髅 该用户已被删除
5#
发表于 2015-1-30 10:45:31 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
山那边是海 该用户已被删除
6#
发表于 2015-2-6 10:06:14 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
7#
发表于 2015-2-15 22:48:13 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
再现理想 该用户已被删除
8#
发表于 2015-3-4 16:04:01 | 只看该作者
那么,ASP.Net有哪些改进呢?
灵魂腐蚀 该用户已被删除
9#
发表于 2015-3-19 11:21:06 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
冷月葬花魂 该用户已被删除
10#
发表于 2015-3-27 21:11:05 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-6-12 07:33

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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