动易WAP2.0适配首页调用数据库栏目常用代码

栏目导航代码

判断动易所有的频道，根据频道类型，自动生成链接。

XML.WriteOut \栏目导航\XML.StrSql=\ChannelID,ChannelName,ModuleType From PE_Channel Where ChannelType<>2 And Disabled=0 Order By OrderID Asc\XML.SqlDo '执行SQL语句。

For I=0 To XML.Rs.RecordCount-1

Select Case XML.RS(\ Case 1 '文章 XML.WriteOut XML.ImgA(\& XML.RS(\ Case 2 '下载 XML.WriteOut XML.ImgA(\& XML.RS(\ Case 3 '图片 XML.WriteOut XML.ImgA(\& XML.RS(\ Case 4 '留言 XML.WriteOut XML.ImgA(\& XML.SubmitText(XML.RS(\ Case 5 '商城 XML.WriteOut XML.ImgA(\& XML.RS(\ End Select

XML.Rs.MoveNext

If I

部分频道栏目列表

从指定的部分频道栏目中，读取栏目名称。

XML.WriteOut \数据大全\

XML.StrSql=\ChannelID,ChannelName,ModuleType From PE_Channel Where ChannelType<>2 And ChannelID In(1015,1004,1007,1009,1029,9,14,1010) And Disabled=0 Order By OrderID Asc\

XML.SqlDo '执行SQL语句。

For I=0 To XML.Rs.RecordCount-1

Select Case XML.RS(\ Case 1 '文章 XML.WriteOut XML.ImgA(\&

XML.RS(\显示两个汉字 End Select

XML.Rs.MoveNext

If I

If (I+4)Mod 4=3 Then XML.WriteOut \ End If Next

最新文章源码

'以下是数据库的设置信息

XML.WriteOut \最新文章\XML.StrSql=\Status=3 order by ArticleID desc\要查询数据库的SQL语句。 XML.SqlDo '执行SQL语句。 If XML.Rs.RecordCount<1 Then XML.WriteRow XML.Img(\此栏目暂无内容。\For I=0 To XML.Rs.RecordCount-1 ClassID=XML.RS(\ XML.StrSql=\ClassName From PE_Class where ClassID=\& ClassID XML.SqlDo 1 XML.WriteOut XML.ImgA(\& ClassID,\ XML.WriteRow XML.ImgA(\& XML.RS(\ XML.Rs.MoveNext Next

推荐文章源码：

XML.WriteOut \推荐文章\XML.StrSql=\Status=3 And Elite=1 order by ArticleID desc\要查询数据库的SQL语句。 XML.SqlDo '执行SQL语句。 If XML.Rs.RecordCount<1 Then XML.WriteRow XML.Img(\此栏目暂无内容。\For I=0 To XML.Rs.RecordCount-1 ClassID=XML.RS(\ XML.StrSql=\ClassName From PE_Class where ClassID=\& ClassID XML.SqlDo 1 XML.WriteOut XML.ImgA(\& ClassID,\ XML.WriteRow XML.ImgA(\& XML.RS(\

XML.Rs.MoveNext Next

软件下载栏目源码：

XML.WriteOut \软件下载\XML.StrSql=\Top 5 ClassID,SoftName,SoftId from PE_Soft Where Status=3 order by UpdateTime desc\ XML.SqlDo '执行SQL语句。 If XML.Rs.RecordCount<1 Then XML.WriteRow XML.Img(\此栏目暂无内容。\For I=0 To XML.Rs.RecordCount-1 ClassID=XML.RS(\ XML.StrSql=\ClassName From PE_Class where ClassID=\& ClassID XML.SqlDo 1 XML.WriteOut XML.ImgA(\& ClassID,\ XML.WriteRow XML.ImgA(\& XML.RS(\

'以下一行为分类和图片标题为同一链接的样式。 'XML.WriteRow XML.ImgA(\& XML.RS(\& XML.RS1(\& \& XML.RS(\ XML.Rs.MoveNext Next

图片中心栏目源码：

XML.WriteOut \图片中心\XML.StrSql=\Status=3 order by UpdateTime desc\ XML.SqlDo '执行SQL语句。 If XML.Rs.RecordCount<1 Then XML.WriteRow XML.Img(\此栏目暂无内容。\For I=0 To XML.Rs.RecordCount-1 ClassID=XML.RS(\ XML.StrSql=\ClassName From PE_Class where ClassID=\& ClassID XML.SqlDo 1 XML.WriteOut XML.ImgA(\& ClassID,\ XML.WriteRow XML.ImgA(\& XML.RS(\

'以下一行为分类和图片标题为同一链接的样式。 'XML.WriteRow XML.ImgA(\&

XML.RS(\& XML.RS1(\& \& XML.RS(\ XML.Rs.MoveNext Next

个别栏目下文章列表源码

从动易的文章类型的栏目中调用多个栏目的文章，显示最新更新的数篇文章列表(Elite=1，表示取精华文章)。

XML.WriteOut \大众健康\

XML.StrSql=\Top 5 ArticleID,Title,ClassID from PE_Article Where ChannelID In (12,13,16,18,19,20,22,23,24,26,27,28,1008) And Elite=1 And Status=3 order by ArticleID desc\要查询数据库的SQL语句。 XML.SqlDo '执行SQL语句。

If XML.Rs.RecordCount<1 Then XML.WriteRow \此栏目暂无内容。\For I=0 To XML.Rs.RecordCount-1 ClassID=XML.RS(\

XML.StrSql=\ XML.SqlDo 1 'XML.WriteOut XML.ImgA(\& ClassID,\& XML.RS1(\ XML.WriteRow XML.ImgA(\& XML.RS(\ XML.Rs.MoveNext Next