图片新闻实现

今天把校园网站首页再修改了下，实现了图片新闻，自动添加，自动读取。
==
主要实现：
1。从新闻内容提取图片地址
2。相关性信息保存到xml文件
3。前台读取xml

1。简单的学了学正则表达式，发现真的很好很强大，不过.net 和js 的正则表达式区别还是有些不同

        Dim reg As Regex
        Dim m As Match
        reg = New Regex("<img.*?s+src=(?:[""'])?([^""']*)(?:[""'s])+.*?>", RegexOptions.IgnoreCase)
        m = reg.Match(mystr)
        If m.Success Then
            Return m.Groups(1).Value
        Else
            Return "no"
        End If

 

2。实现了xml读写函数类，发现XPath很好用

 

Public Class XMLReadWriteClass XMLReadWrite

        Dim mXmlDoc As New System.Xml.XmlDocument
        Public XmlFile As String


        Public Sub New()Sub New(ByVal File As String)
            MyClass.XmlFile = File
            MyClass.mXmlDoc.Load(MyClass.XmlFile)       '加载配置文件   
        End Sub

        '功能：取得元素值   
        '参数：node--节点       element--元素名           
        '返回：元素值   字符型   
        '             $--表示出错误   
        Public Function GetElement()Function GetElement(ByVal node As String, ByVal element As String) As String
            On Error GoTo Err
            Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)

            '读数据   
            Dim xmlNode As System.Xml.XmlNode = mXmlNode.SelectSingleNode(element)
            Return xmlNode.InnerText.ToString
Err:
            Return "$"
        End Function
        '   
        '功能：保存元素值   
        '参数：node--节点名称     element--元素名       val--值   
        '返回：True--保存成功     False--保存失败   
        Public Function SaveElement()Function SaveElement(ByVal node As String, ByVal element As String, ByVal val As String) As Boolean
            On Error GoTo err
            Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)
            Dim xmlNodeNew As System.Xml.XmlNode

            xmlNodeNew = mXmlNode.SelectSingleNode(element)
            xmlNodeNew.InnerText = val
            mXmlDoc.Save(MyClass.XmlFile)
            Return True
err:
            Return False
        End Function


    End Class

 

3。js实现读取xml文件

var oXmlDom =new XmlDom();
  oXmlDom.async=false;
   oXmlDom.load("xml/1.xml");//xml路径
  // alert(oXmlDom.xml);
   var aImgLists=new Array();
   aImgLists=oXmlDom.documentElement.selectNodes("//imageunits/imageunit");
   
  for (var i=0; i <aImgLists.length; i++) ...{  
                slideimages[i]=aImgLists[i].selectSingleNode("imageurl").text; 
                slidetext[i]=aImgLists[i].selectSingleNode("thetitle").text; 
                slidelinks[i]=aImgLists[i].selectSingleNode("tolink").text;               
               
            }

 

天煞的脚本调试，一个变量写成了大写，调试了一晚上，TMD，还好弄出来了。
js脚本语言先天性要求浏览器支持，为了实现通用性，比解决问题复杂多了。唉，可怕的浏览器陷阱！！