仓酷云

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

[学习教程] ASP网站制作之一段递归生成相似Windows资本办理器一样...

[复制链接]
飘灵儿 该用户已被删除
发表于 2015-2-16 00:27:04 | 显示全部楼层 |阅读模式

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

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

x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。window|菜单|递归   <HTML>
<HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<SCRIPT lanuage="JScript">
function turnit(ss,ii,aa)
{

if (ss.style.display=="none")
{ss.style.display="";
aa.style.display="";
ii.src=http://www.163design.net/a/y/"minus.gif";
}

else
{ss.style.display="none";
aa.style.display="none";
ii.src=http://www.163design.net/a/y/"http://www.163design.net/a/y/plus.gif";}
}

function onlyclose(ss,ii,aa)
{
ss.style.display="none";
aa.style.display="none";
ii.src=http://www.163design.net/a/y/"http://www.163design.net/a/y/plus.gif";
}
</SCRIPT>
</HEAD>
<BODY bgColor=#99CCFF>
<%
dim dbConn
dim IDIndex

IDIndex = 0

'创立数据库毗连
Set dbConn = Server.CreateObject("Adodb.Connection")
dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("test.mdb")

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''生成文件类型树的递归函数,传入参数:NowItem为树节点的ID ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DoItem(NowItem)
dim rsTest
dim YoungerBrother '下一个兄弟节点的ID
dim OlderSon '第一个字节点的ID

'创立纪录集
set rsTest = Server.CreateObject("Adodb.recordset")

'生成sql语句,操作Doc_TypeTree表
strSql = "select * from tab_test where ID = '" & NowItem & "'"

'生成纪录集
rsTest.open strSql,dbConn,1,3

if rsTest.eof then
rsTest.close
set recDosType = nothing
exit sub
end if

YoungerBrother = trim(rsTest("BrotherNode") & "")
OlderSon = trim(rsTest("SonNode") & "")
NodeID = trim(rsTest("ID") & "")
NodeName = trim(rsTest("NodeName") & "")

'显示子节点
if OlderSon = "" or OlderSon = "00" then '当此项无子项时,输入响应的代码
response.write "<TR>" & chr(10)
response.write "<TD> </TD>" & chr(10)
response.write "<TD>"
response.write "<A href='test'>" & NodeName & "</A>"
response.write "</TD>" & chr(10)
response.write "</TR>" & chr(10)
else
'*1.显示本项内容
response.write "<TR>" & chr(10)
response.write "<TD language=JScript onmouseup=turnit(" & _
"Content" & IDIndex & "," & _
"img" & IDIndex & "," & _
"Aux" & IDIndex & ");>" & chr(10)
response.write "<IMG height=9 id=img" & IDIndex & " src='http://www.163design.net/a/y/plus.gif' width=9>" & chr(10)
response.write "</TD>" & chr(10)
response.write "<TD>" & chr(10)
response.write "<A href='Frame_4_publish.asp?DocTypeID=" & _
NodeID & "' target='frmFour'>" & NodeName & _
"</A>" & chr(10)
response.write "</TD>" & chr(10)
response.write "</TR>" & chr(10)

'*2.输入子孙树头代码
response.write "<TR>" & chr(10)
response.write "<TD id=Aux" & IDIndex & " style='display: none'> </TD>" & chr(10)
response.write "<TD id=Content" & IDIndex & " style='display: none'>" & chr(10)
response.write "<TABLE border='0'>"
IDIndex = IDIndex + 1

'*3.输入子孙树代码
call DoItem(OlderSon)

'*4.输入子孙树尾代码
response.write "</TABLE>"
response.write "</TD>" & chr(10)
response.write "</TR>" & chr(10)
end if

if YoungerBrother <> "" and YoungerBrother <> "00" then
call DoItem(YoungerBrother)
end if

rsTest.close
set rsTest = nothing
end Sub

response.write "<table border='0'>"
call DoItem("01")
response.write "</table>"

dbConn.close
set dbConn = nothing
%>
</BODY>
</HTML>

</p>  结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。
不帅 该用户已被删除
发表于 2015-2-16 02:49:36 | 显示全部楼层
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
小妖女 该用户已被删除
发表于 2015-3-4 23:11:58 | 显示全部楼层
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
透明 该用户已被删除
发表于 2015-3-11 00:48:06 | 显示全部楼层
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
老尸 该用户已被删除
发表于 2015-3-17 12:47:09 | 显示全部楼层
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
兰色精灵 该用户已被删除
发表于 2015-3-24 10:11:20 | 显示全部楼层
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
灵魂腐蚀 该用户已被删除
发表于 2015-3-30 10:47:26 | 显示全部楼层
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
简单生活 该用户已被删除
发表于 2015-4-4 04:56:29 | 显示全部楼层
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
小魔女 该用户已被删除
发表于 2015-4-8 08:18:26 | 显示全部楼层
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
深爱那片海 该用户已被删除
发表于 2015-4-16 08:11:04 | 显示全部楼层
那么,ASP.Net有哪些改进呢?
因胸联盟 该用户已被删除
发表于 2015-4-21 19:55:03 | 显示全部楼层
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
柔情似水 该用户已被删除
发表于 2015-4-27 09:52:07 | 显示全部楼层
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
谁可相欹 该用户已被删除
发表于 2015-5-6 19:52:01 | 显示全部楼层
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
admin 该用户已被删除
发表于 2015-5-7 21:37:30 | 显示全部楼层
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
再见西城 该用户已被删除
发表于 2015-6-14 20:13:42 | 显示全部楼层
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
愤怒的大鸟 该用户已被删除
发表于 2015-6-16 08:51:56 | 显示全部楼层
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
活着的死人 该用户已被删除
发表于 2015-6-29 09:25:09 | 显示全部楼层
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
金色的骷髅 该用户已被删除
发表于 2015-7-12 21:54:56 | 显示全部楼层
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
小女巫 该用户已被删除
发表于 2015-7-16 11:09:22 | 显示全部楼层
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
只想知道 该用户已被删除
发表于 2015-7-17 12:50:42 | 显示全部楼层
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 02:09

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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