<% '首页名称 dim ChannelTitle call InitGlobal() Set rsArticle= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") '初始化参数 sub InitGlobal() dim rsGlobal Set rsGlobal = Server.CreateObject("ADODB.Recordset") rsGlobal.open "select channelname from channel where ChannelID = "& ChannelID,conn,1,1 if not rsGlobal.eof then ChannelTitle = rsGlobal(0) end if rsGlobal.close set rsGlobal = nothing end sub %> <% Dim PE_Article 'set PE_Article = new ClsArticle 'Call CreateObject_Article 'Call CloseConn class ClsArticle Public CurrentChannelID private rsArticle Private Sub Class_Initialize ' 设置 Initialize 事件。 Set rsArticle= Server.CreateObject("ADODB.Recordset") End Sub Private Sub Class_Terminate ' 设置 Terminate 事件。 End Sub public sub LoadTemplate() end sub public sub ShowArticle() LoadTemplate() end sub end class %>