仓酷云

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

[学习教程] ASP编程:asp完成无穷级目次数的关头代码部分

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

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

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

x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的asp完成无穷目次数的关头代码部分<%
setconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
conn.openconnstr
functionmenu(id)
setrs=server.CreateObject("adodb.recordset")
sql="select*frommenuwhereid1="&id&"orderbyurl,id"
rs.opensql,conn,1,1
ifrs.recordcount=0then
rs.close
setrs=nothing
exitfunction
endif
response.write("<tableborder=0cellspacing=0cellpadding=0>")
i=1
whilenotrs.eof
iflen(rs("url"))>0then
ifi=rs.recordcountthen
 menutype="file1"
else
 menutype="file"
endif
menuname="<ahref="&rs("url")&"target=_blank>"&rs("menuname")&"</a>"
onmouseup=""
else
ifi=rs.recordcountthen
 menutype="menu3"
 listtype="list1"
 onmouseup="with(eval(id"&rs("id")&"))if(style.display==){style.display=none;this.className=menu3;}else{style.display=;this.className=menu4;}"
else
 menutype="menu1"
 listtype="list"
 onmouseup="with(eval(id"&rs("id")&"))if(style.display==){style.display=none;this.className=menu1;}else{style.display=;this.className=m

enu2;}"
endif
menuname=rs("menuname")
endif
%>
 <tr>
  <tdclass="<%=menutype%>"onMouseUp="<%=onmouseup%>"><%=menuname%></td>
 </tr>
<%iflen(rs("url"))<3then%>
 <trid="id<%=rs("id")%>"style="display:none">
  <tdclass="<%=listtype%>"><%menu(rs("id"))%></td>
 </tr>
<%
endif
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
setrs=nothing
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>=========无穷级目次树=========http://www.webjx.com</title>
<styletype="text/CSS">
<!--
.menu1{
background-image:url(folder1.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu2{
background-image:url(folder2.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu3{
background-image:url(folder3.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.menu4{
background-image:url(fo
lder4.gif);
background-repeat:no-repeat;
height:17px;
left:32px;
padding-left:32px;
cursor:hand;
}
.list{
padding-left:20px;
background-image:url(list.gif);
background-repeat:repeat-y;
}
.list1{
padding-left:20px;
}
.file{
background-image:url(file.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
.file1{
background-image:url(file1.gif);
background-repeat:no-repeat;
height:16px;
cursor:hand;
padding-left:32px;
}
body{
font-size:9pt;
color:#000000;
background-color:#FFFFFF;
}
a:link{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:visited{
font-size:9pt;
color:#000000;
text-decoration:none;
}
a:hover{
font-size:9pt;
color:#0000FF;
text-decoration:none;
position:relative;
right:1px;
bottom:1px;
}
a:active{
font-size:9pt;
color:#000000;
text-decoration:none;
}
-->
</style>
</head>
<body>
<ahref="http://www.webjx.com/"target="_blank">http://www.webjx.com/</a>供应最新下载《<ahref="menu.asp">办理</a>》<br>
<%
menu0
conn.close
setconn=nothing
%>y>
</html>


Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。
若天明 该用户已被删除
沙发
发表于 2015-1-18 08:46:50 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
再见西城 该用户已被删除
板凳
发表于 2015-1-21 16:11:46 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
因胸联盟 该用户已被删除
地板
发表于 2015-1-30 20:49:53 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-6 15:55:03 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
只想知道 该用户已被删除
6#
发表于 2015-2-16 23:26:25 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
谁可相欹 该用户已被删除
7#
发表于 2015-3-5 13:04:32 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
透明 该用户已被删除
8#
 楼主| 发表于 2015-3-12 07:25:10 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
深爱那片海 该用户已被删除
9#
发表于 2015-3-19 18:47:51 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 01:29

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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