Apply RSS in Domino

zhaozj2021-02-12  167

Referring to rss2.0 wrote rss release of two classes Class Rss Private strRdfLiResource As String Private strH As String Private strAbout As String Private strlink As String Private strTitle As String Private strdescription As String Sub New () End Sub Property Set about As Variant strAbout = about End Property Property Set title As Variant strTitle = title End Property Property Set description As Variant strDescription = description End Property Property Set link As Variant strLink = link End Property Private Function getChannel () As String Dim strRss As String strRss = | | STRRSS = STRSS | | strrss = strrss | | strtitle | </ title> | strrss = strrs | <Description> | STRDESCRIPTION | </ description> | STRRSS = STRSS | <LINK> | Strlink | </ link> | '' STRSS = STRRSS | <image rdf: resource = http://192.198.64.36/Video .nsf / dqgl_ajla.gif "/> | STRRSS = STRSS | <items> | STRRSS = STRRSS | <RDF: SEQ> | STRRSS = STRSS STRDFLIRESOURESOURESSOURES strRss = strRss | </ rdf: Seq> | strRss = strRss | </ items> | strRss = strRss | </ channel> | End Function Public Function toXML () Dim strItemXml As String Print "Content-type: text / xml" Print | <? XML Version = "1.0" encoding = "GB2312"?> | Print | <RDF: RDF XMLns: RDF = "http://www.w3.org/1999/02/22-rdf-syntax-ns # "| Print | XMLns: DC =" http://purl.org/dc/eferences/1.1/ "| Print | XMLns: foaf ="</p> <p>Http://xmlns.com/foAf/0.1/ | | Print | XMLns = "http://purl.org/rss/1.0/> | stritemxml = getChannel () Print Striteml Print | </ rdf: rdf> | End Function Public Sub addItem (rssItem As Variant) strH = strh rssItem.getXml () strRdfLiResource = rssItem.about End Sub Function Valiater () As Boolean Dim isflag As Boolean isflag = True If strRdfLiResource = "" Then isflag = False End If IF strabout = "" "the isflag = false end if Valiater = isflag end function end class</p> <p>Class Rssitem Private strXml As String Private strAbout As String Private strTitle As String Private strLink As String Private strDescription As String Private strDate As String Private strCreator As String Private strResouce As String Private strCreateDate As String Private strAuthorMail As String Sub New () strDate = Now End Sub Property Set about As String strAbout = about End Property Property Get about As String about = strAbout End Property Property Set title As String strtitle = title End Property Property Set link As String strlink = link End Property Property Set description As String strdescription = description End Property Property Set date As String strdate = Date End Property Property Set creator As String strcreator = creator End Property Property Set resouce As String strresouce = resouce End Property Property Set createDate As String strcreateDate = createDate End Property Property Set authorMail As String str authorMail = authorMail End Property Function getXML () As String Call createXml () getXML = strXml End Function Private Sub createXml () Dim strH As String strH = | <item rdf: about = "| strAbout |"> | strH = strH | <Title> | STRTIL | </ TITLE> | STRH = strH | <link> | strlink | </ link> | strH = strh | <design> | strdescription | </ description> | strH = strH | <dc : DATE> | STRDATE | </ DC: DATE> | STRH = strH | <DC: Creator> | Strcreator | </ dc: creator> | strH = strH | <foaf: Maker> | strH = strH | <</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-7250.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="7250" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.051</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'dyWzav_2FTbSnd_2BZOLzNnGBO4jxOVaibn99bxNyTlfCZDo499LfaGuAKgMddGLPHbHK5E2Lc1DJIQABuchEp9vOA_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>