关于自定义函数不执行的问题
我写个文件corel.asp
<%

Sub     Show_catalogue_index(record_nums,node_id,title_length,more_page)

                                                        set   rs=server.createobject( "adodb.recordset ")
          sql= "SELECT   top   4   *   FROM   T_News   WHERE   F_CategoryID=1   ORDER   BY   F_ID   DESC "  
          rs.open   sql,conn,1,1  
                                                          do   while   not   rs.eof  
                                                         
                                                                if   len(rs( "F_Title "))> 15   then
                                                        response.Write(left(rs( "F_Title "),15))
                                                              else
                                                                response.Write(rs( "F_Title "))
                                                                end   if
                                                         
                                                        n=n+1                                                                                                                                          
                              rs.movenext                           &nb