行 10:
行 11: Dim dr As OleDbDataReader = My.AspClass.SysDB.getdatareader("SELECT newslist.*, cpnews.* FROM newslist INNER JOIN cpnews ON newslist.nlid=cpnews.newsclassid where cpnewsid=" & newsclassid, Conn)
行 12: While dr.Read
行 13: newstitle.InnerHtml = dr.Item("newstitle").ToString
行 14: newsclass.InnerHtml = "<b>新闻类型:</b> " & dr.Item("nlname").ToString
|