在动易2006 SP6中添加自定义asp函数的过程
来源:互联网 发布:sql查询去除重复数据 编辑:程序博客网 时间:2024/05/09 01:55
1、在根目录中找到 Start.asp文件,并且在该文件最后添加自定义的asp函数(注意:自定义函数必须有返回
值),并在文件开始定义函数的返回值变量。
举例:现在要将我的新浪博客文章列表放到我的动易2006中,能够在动易首页显示博客文章列表
1>函数代码(line 399):
Function ReadSinaRss()
dim xmlDoc
dim http
dim bitem
dim bi
dim title
dim link
dim xmlseed
xmlseed="http://blog.sina.com.cn/rss/adsbaby.xml"
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set bitem=xmlDoc.getElementsByTagName("item")
if bitem.Length>=0 then
ReadSinaRss="<table width=100% cellpadding=0 cellspacing=0>"
For bi=0 To (bitem.Length-1)
if bi<=5 then
Set title=bitem.Item(bi).getElementsByTagName("title")
Set link=bitem.Item(bi).getElementsByTagName("link")
if len(title.Item(0).Text)>=20 then
title.Item(0).Text=left(title.Item(0).Text,20)
end if
ReadSinaRss=ReadSinaRss&"<tr><td width=10 valign=top class=><img
src=/Article/images/Article_common3.gif alt=普通文章></td><td class=><a href="""& link.Item
(0).Text &""" target='_blank'>"& title.Item(0).Text&"</a></td></tr>"
end if
Next
ReadSinaRss=ReadSinaRss&"</table>"
end if
End Function
2>、定义顶部的变量(line 23)
Dim SinaBlogStr
3>、调用定义的函数,并将函数的返回值给变量SinaBlogStr (line 100)
SinaBlogStr= ReadSinaRss()
通过上面的函数调用后,变量SinaBlogStr里已经有新浪博客的文章列表了。因为后续的文件中会调用该文件
,所以后续的文件只要调用SinaBlogStr函数就可以了。
2、在根目录的Editor目录中找到Editor_tree.asp,并且在478行添加一行:
<DIV class=subItem onClick="InsertLabel('{$SinaBlogStr}')"><IMG class=icon
src="images/label.gif">显示新浪博客</DIV> (line 479)
这行的功能是在后台的“网站通用标签”中添加新浪博客列表标签
3、在根目录的Include目录下找到PowerEasy.Common.Front.asp,并且在2267行添加一行:
strHtml = PE_Replace(strHtml, "{$SinaBlogStr}", SinaBlogStr)'新浪博客文章
这样行的功能是将变量设置为一个标签
自此,新浪博客文章列表的标签添加好了,接下去只要在后天添加该标签到相应的地方就可以了。
- 在动易2006 SP6中添加自定义asp函数的过程
- 在ASP(VB)中自定义日期格式的函数
- 在ATL接口中添加自定义函数
- 动易函数和过程
- jstl中添加自定义的函数
- 在NSToolbar中添加自定义的toolbaritem
- 在ListWidget中添加自定义的Item
- 在caffe中添加自定义的layer
- 在caffe中添加自定义的layer
- 在ListWidget中添加自定义的Item
- 如何在windows批处理中添加自定义函数
- 一次升级动易文章过程中遇到的问题
- 随机播放音效 在音频组件中添加好元素 Random.Range在自定义的函数中可以用整形
- 在DTCoreText 中添加自定义的文章头,自定义View
- asp.net中添加自定义控件的方法
- laravel5中添加自定义函数
- dedecms中添加自定义函数
- laravel5中添加自定义函数
- photoshop 如何输出透明背景图片
- Feed myself with Sources & Algorithms
- SQL循序渐进(3)数据检索
- XP默认共享
- SQL循序渐进(1)介绍SQL
- 在动易2006 SP6中添加自定义asp函数的过程
- 分析MIDP低级事件处理机制
- 心情不好!
- 无线局域网 NDIS 小端口驱动实现
- SQL Server和DB2大比拼
- 黄仁宇走了,柏杨也走了
- 【oracle资料整理】--【13】PL/SQL块
- 简单?复杂?——连续出现次数最多的子串(1)
- Delphi程序设计规范