ASP教程之利用ASP+XML制造菜单办理程序

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

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

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

x

专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。menu.asp这个是前台实行部分
以下是menu.asp代码：
<%
’---------------------------------------
’作者:野草
’日期: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数据文件
以下是menu.xml代码：
<?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文件部分
以下是admin_menu.asp：
<%
’使用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=’submit’value=’修改’/>
</form>
</body>
</html>
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了

只看该作者 · 发表于 2015-1-19 21:49:47

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-1-27 09:12:55

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-2-5 06:15:54

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只看该作者 · 发表于 2015-2-11 06:36:08

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

只看该作者 · 发表于 2015-3-1 23:14:00

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-3-11 01:02:24

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-3-17 17:11:06

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-3-24 14:37:59

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

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

[学习教程] ASP教程之利用ASP+XML制造菜单办理程序

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

相关帖子