仓酷云

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

[学习教程] ASP网站制作之怎样利用ASP完成网站的“目次树”办理

[复制链接]
柔情似水 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:45:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;利用ASP完成网站的目次树
原本想多翻译些器材出来的,可是比来愈来愈忙了,今后我只管多贴些
短小的代码出来,翻译是愈来愈没空完成了。呵呵。
数据库布局(共利用了两个表)
1。tblCategory
字段名范例
Rootbinary申明树关或开(目次的根)
ID主动编号关头字
Sortinteger辨认该字段内容的整数(假如root是开形态sort为0)暗示显现的目次的按次
Nametext(255)能够包括html中的标识符
HREFtext(255)同意空
2。tblPages
ID主动编号
Sortinteger关头字
Nametext(255)
HREFtext(255)

3.default.htm
<html>
<head>
<title>JavaScriptTreeControlTemplate</title>
</head>
<framesetcols=""210,*"">
?<framesrc=""tree.asp""name=""TOC"">
?<framesrc=""main.htm""name=""basefrm"">
</frameset>
</html>

4.main.htm
<head><title></title></head>
<body>
<h2>StartPage</h2>
</body>
</html>

5.tree.asp
Setconn=Server.CreateObject(""ADODB.Connection"")
SetRs=Server.CreateObject(""ADODB.Recordset"")
conn.open""DRIVER=MicrosoftAccessDriver(*.mdb);DBQ=""&Server.MapPath(""toc.mdb"")

strsql=""SELECTtblCategory.Root,tblCategory.[ID],tblCategory.SortASCatSort,tblPages.sortASLinkSort,tblCategory.[Name]ASCatName,tblCategory.HREFASCatURL,tblPages.[Name]ASLinkName,tblPages.hrefASLinkURLFROMtblCategoryLEFTJOINtblPagesONtblCategory.[ID]=tblPages.[ID]ORDERBYtblCategory.rootASC,tblCategory.Sort,tblPages.sort""

rs.openstrsql,conn,2,2

ifnotrs.eofthenrs.movefirst
currentID=""""%>
<html>
<head>
<linkrel=""stylesheet""href=""ftie4style.CSS"">
<!--Infrastructurecodeforthetree-->
<scriptsrc=""ftiens4.js""></script>
<!--Executionofthecodethatactuallybuildsthespecifictree-->
<script>
USETEXTLINKS=1
<%
DoWhileNotRs.EOF
IfRs(""Root"")=TrueThen%>
foldersTree=gFld(""<%=Rs(""CatName"")%>"",""<%=Rs(""CatURL"")%>"")
<%Else%>
aux1=insFld(foldersTree,gFld(""<%=Rs(""CatName"")%>"",""<%=Rs(""CatURL"")%>""))
<%currentID=Rs(""ID"")
savedID=Rs(""ID"")
DoWhilecurrentID=savedIDandnotrs.eof
ifRs(""LinkName"")""""Then%>
insDoc(aux1,gLnk(0,""<%=Rs(""LinkName"")%>"",""<%=Rs(""LinkURL"")%>""))
<%
endif
Rs.MoveNext
ifnotrs.eofthencurrentID=Rs(""ID"")
Loop
EndIf
ifcurrentID=""""thenrs.movenext
Loop%>
</script>
<script>
initializeDocument()
</script>
<basetarget=""basefrm"">
<title></title>
</head>
<bodybgcolor=""white"">
</body>
</html>
</p>asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!
第二个灵魂 该用户已被删除
沙发
发表于 2015-1-19 22:36:17 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
活着的死人 该用户已被删除
板凳
发表于 2015-1-25 10:06:22 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
老尸 该用户已被删除
地板
发表于 2015-2-2 21:38:24 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
金色的骷髅 该用户已被删除
5#
发表于 2015-2-8 06:30:25 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
爱飞 该用户已被删除
6#
发表于 2015-2-24 16:58:17 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
深爱那片海 该用户已被删除
7#
发表于 2015-3-7 12:36:36 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
透明 该用户已被删除
8#
发表于 2015-3-15 05:38:02 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
只想知道 该用户已被删除
9#
发表于 2015-3-21 19:05:46 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-25 02:15

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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