Y大叔的筆記

<PRE><%@ Page Language="VB" AutoEventWireup="false" CodeFile="rssFeed.aspx.vb" Inherits="rssFeed" %>
<%@ OutputCache Duration="1" VaryByParam="none" %>
</PRE>


<PRE><%@ Page Language="VB" AutoEventWireup="false" CodeFile="rssFeed.aspx.vb" Inherits="rssFeed" %>
<%@ OutputCache Duration="1" VaryByParam="none" %>
</PRE>

Imports ...System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Web
Imports System.Xml

Partial Class UserControls_Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load() Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Clear()
        Response.ContentType = "text/xml"
        Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
        objX.WriteStartDocument()
        objX.WriteStartElement("rss")
        objX.WriteAttributeString("version", "2.0")
        objX.WriteStartElement("channel")
        objX.WriteElementString("title", "RedChip News")
        objX.WriteElementString("link", "http://www.redchip.com")
        objX.WriteElementString("description", "The latest headliness and articles from RedChip.")
        objX.WriteElementString("ttl", "5")

        Dim objconnection As SqlConnection = DB.conn_sql
        objconnection.Open()
        Dim sql As String = "select ActBase_ID,ActBase_Name,ValidFlag,ModifyUserID,ModifyDate  from U2_ActionBase"
        Dim objcommand As New SqlCommand(sql, objconnection)
        Dim objreader As SqlDataReader = objcommand.ExecuteReader

        While objreader.Read
            objX.WriteStartElement("item")
            objX.WriteElementString("title", objreader.GetString(1))
            objX.WriteElementString("description", objreader.GetString(1))
            objX.WriteElementString("link", "http://www.redchip.com/Articles/research.aspx?ArticleID=" & objreader.GetString(1))
            objX.WriteElementString("ModifyUserID", objreader.GetString(1).ToString)
            objX.WriteElementString("pubDate", objreader.GetString(1))
            objX.WriteEndElement()
        End While

        objreader.Close()
        objconnection.Close()
        objX.WriteEndElement()
        objX.WriteEndElement()
        objX.WriteEndDocument()
        objX.Flush()
        objX.Close()
        Response.End()


    End Sub
End Class