ASP编程：ASP+XML制造菜单办理!

只看该作者 · 发表于 2015-1-16 22:07:43

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

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

x

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件menu.asp这个是前台实行部分

QUOTE:<%
---------------------------------------
作者:野草
日期:2006年4月24日
QQ:94440079
51群:21643964(51JS.COM的群)
网站:http://www.yecaoweb.comORhttp://www.yecaoweb.net
---------------------------------------
读取XML文件函数
FunctionYCMS_menu()
dimmenu_temp,m
Setgoxml=Server.CreateObject("Microsoft.XMLDOM")
goxml.load(Server.MapPath("menu.xml"))
Setgoroot=goxml.documentElement.selectSingleNode("menu")
m=0
Foreachchildingoroot.childNodes
setchildmenu=goroot.childnodes.item(m)

Dimmenu_open,menu_title,menu_url
menu_open=childmenu.getAttributeNode("open").nodeValue
menu_name=childmenu.getAttributeNode("name").nodeValue
menu_url=goroot.childNodes.item(m).text
判别是不是是弹出窗口
Ifmenu_open=0Then
判别是不是是第一个,如果第一个则往失落"┊"
Ifm=0Then
menu_temp=menu_temp&"<ahref="&menu_url&">"&menu_name&"</a>"
Else
menu_temp=menu_temp&"┊<ahref="&menu_url&">"&menu_name&"</a>"
EndIf
Else
Ifm=0Then
menu_temp=menu_temp&"<ahref="&menu_url&"target=o>"&menu_name&"</a>"
Else
menu_temp=menu_temp&"┊<ahref="&menu_url&"target=o>"&menu_name&"</a>"
EndIf
EndIf
setchildmenu=nothing
m=m+1
next
setgoroot=nothing
setgoxml=nothing
YCMS_menu=menu_temp
EndFunction
输入XML菜单
response.write(YCMS_menu())
%>
menu.xmlXML数据文件

QUOTE:<?xmlversion="1.0"encoding="gb2312"?>
<xml>
<menu>
<urlname="网站首页"open="0">index.asp</url>
<urlname="旧事静态"open="0">News.asp</url>
<urlname="文章中央"open="0">Art.asp</url>
<urlname="图片展现"open="0">Pic.asp</url>
<urlname="影音文娱"open="0">Dj.asp</url>
<urlname="资本下载"open="0">Down.asp</url>
<urlname="留言会商"open="0">Book.asp</url>
<urlname="友谊毗连"open="0">Link.asp</url>
</menu>
</xml>
admin_menu.asp背景办理XML文件部分

QUOTE:<%
使用ADO.Stream组件保留文件
FunctionSave(file_body,file_name)
SetOS=Server.CreateObject("ADODB.Stream")
OS.Type=2
OS.Open
OS.Charset="GB2312"
OS.Position=OS.Size
OS.WriteText=file_body
OS.SaveToFileServer.MapPath(file_name),2
OS.Close
SetOS=Nothing
EndFunction
ifRequest.QueryString("action")="ok"then
callSave(Request.Form("content"),"menu.xml")
endif
%>
<html>
<head>
<title></title>
</head>
<body>
<formaction="?action=ok"method="post">
<textareastyle=width:500px;height:200px;name=content>
<%=server.execute("menu.xml")%>
</textarea>
<inputtype=submitvalue=修改/>
</form>
</body>
</html>Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。

只看该作者 · 发表于 2015-1-18 20:49:33

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

只看该作者 · 发表于 2015-2-2 21:48:58

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-2-8 07:41:07

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只看该作者 · 发表于 2015-2-25 01:53:18

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-3-7 15:42:35

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

只看该作者 · 发表于 2015-3-15 09:01:06

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

只看该作者 · 发表于 2015-3-21 23:35:12

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：ASP+XML制造菜单办理!

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

相关帖子