ASP网页编程之一个ASP写的侧边菜单栏
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。菜单|菜单演示：http://goaler.xicp.net/demo/colspanmenu.asp<%
classmenus
PublicTitle,ID,Image,TitleColor,Target,Background,HeadImage,Height,Width,Bgcolor,Style
PrivatemenuItem,menuStr
PrivateSubClass_Initialize
Title=""
ID=""
menuItem=""
Image=""
TitleColor="#000000"
Target="_blank"
Background=""
HeadImage=""
Height="20"
Width="100%"
Bgcolor=""
Style=""
script
EndSub
PrivateSubClass_Terminate
Title=""
ID=""
menuItem=""
EndSub
PublicFunctionAddItem(ByvalnItem,ByvalnURL)
menuItem=menuItem&"<tr><tdstyle=font-size:12px;align=left>{$Image}<ahref="&nURL&"target="&Target&"class="&Style&">"&nItem&"</a></td></tr>"
EndFunction
PublicSubShow()
menuStr="<tableborder=0width="&Width&"style=border:1pxsolid#999999;bgcolor="&Bgcolor&"><tr><tdheight="&Height&"Onclick=menus("&ID&")bgcolor="&Bgcolor&"valign=bottomstyle="&_
"font-size:12px;color:"&TitleColor&";cursor:hand;background="&Background&"align=left>{$HeadImage}"&Title&"</td></tr></table><divid="&chr(34)&ID&chr(34)&"style="&chr(34)&_
"display:none;"&chr(34)&"><tablewidth=100%border=0style=border-left:1pxsolid#999999;border-right:1pxsolid#999999;border-bottom:1pxsolid#999999;>"&menuItem&"</table></div>"
ifImage""then
menuStr=replace(menuStr,"{$Image}",Image)
else
menuStr=replace(menuStr,"{$Image}","")
endif
ifHeadImage""then
menuStr=replace(menuStr,"{$HeadImage}",HeadImage)
else
menuStr=replace(menuStr,"{$HeadImage}","")
endif
Response.WritemenuStr
EndSub
PrivateFunctionscript()
DimJScript
JScript="<scriptlanguage="&chr(34)&"JavaScript"&chr(34)&"type="&chr(34)&"text/JavaScript"&chr(34)&_
">"&vbcrlf&"<!--"&vbcrlf&"functionmenus(str){"&vbcrlf&"varobj;if(document.getElementById(str)){"&vbcrlf&_
"obj=document.getElementById(str);"&_
"if(obj.style.display=="&chr(34)&"none"&chr(34)&"){obj.style.display="&chr(34)&chr(34)&_
";}else{obj.style.display="&chr(34)&"none"&chr(34)&";}}}//--></script>"
response.WriteJScript
EndFunction
PublicSubAddNew()
Title=""
ID=""
menuItem=""
menuStr=""
EndSub
PublicSubOpenItem(ByvalItemID)
EndSub
endclass
%>
利用办法：
<%
DimNewMenus
SetNewMenus=newmenus
NewMenus.Target=""翻开体例
NewMenus.Bgcolor="#336699"主标签背景致
NewMenus.TitleColor="#FFFFFF"主标具名体色彩
NewMenus.Height="10px"高度
NewMenus.Style="a1"子标签款式
NewMenus.Width="100%"菜单宽度
NewMenus.AddNew
NewMenus.Title="流派网站"
NewMenus.ID="menu1"
NewMenus.AddItem"网易","http://www.ckuyun.com"
NewMenus.AddItem"搜狐","http://www.sohu.com"
NewMenus.Show
NewMenus.AddNew
NewMenus.Title="团体网站"
NewMenus.ID="menu2"
NewMenus.AddItem"IEBSoftstudio","http://iebsoft.512j.com"
NewMenus.AddItem"租用的空间","http://107814.hxidc.com"
NewMenus.Show
NewMenus.AddNew
NewMenus.Title="网站旧事办理"
NewMenus.ID="menu3"
NewMenus.AddItem</p>Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。
页:
[1]