输入表的序号数组生成表格

本来想找个兼职的，结果一个公司的CEO考偶这样的题目：要一个算法实现一个这样个功能，输入一个表的字段的序号，根据该序号字符串生成表格，一个表的字段的序号代表需要列出的字段，还要有表头（即列出所输入的序号相对应的字段的名称），要求在20分钟内搞定，结果花了偶一个多小时，暴汗：（

完整程序和数据库打包下载：http://www.cnblogs.com/Files/Dicky/Test.rar

< form method = " post "  action = "" >
请输入需要列出的字段序号(以逗号隔开，比如1, 3 , 5 ): < br >< input type = " text "  name = " No "  value = " <%=Trim(Request( " No " ))%> " >   < input type = " submit "  name = " submit "  value = " Submit " >
</ FORM >
< %
Const  IsSql  =   0      ' 定义数据库类型为Access

Function  OpenConn(Conn)      ' 打开数据库连接
     Dim  ConnStr 
     If  IsSql  =   1   Then   ' 如果是SQL Server数据库 
         ' SQL Server数据库连接参数:用户名、用户密码、数据库名、连接名（本地用local，外地用IP） 
         Dim  SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName 
        SqlUsername  =   " sa "  
        SqlPassword  =   ""  
        SqlDatabaseName  =   " Test "  
        SqlLocalName  =   " (local) "  
        ConnStr  =   " Provider = Sqloledb; User ID =  "   &  SqlUsername  &   " ; Password =  "   &  SqlPassword  &   " ; Initial Catalog =  "   &  SqlDatabaseName  &   " ; Data Source =  "   &  SqlLocalName  &   " ; "  
     Else    ' 如果是Access数据库 
         Dim  Db
        Db  =   " Test.mdb "  
        ConnStr  =   " Provider = Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=applebbs;Data Source =  "   &  Server.MapPath(Db)
     End   If  
     On   Error   Resume   Next  
     Set  Conn  =  Server.CreateObject( " ADODB.Connection " ) 
    Conn.Open ConnStr 
     If  Err  Then  
'         Err.Clear 
         Set  Conn  =   Nothing  
        echo  " 数据库连接出错，请检查连接字串。 "  
        Response.End 
     End   If  
End Function

Function  CloseConn(Conn)   ' 关闭数据库连接 
     If   IsObject (Conn)  Then
        Conn.Close 
         Set  Conn  =   Nothing
     End   If
End Function

Function  echo(Str)
    Response.Write Str  &  VbCrlf
End Function

If  Request( " submit " )  =   " Submit "   Then
     Call  OpenConn(Conn)
    strNo  =   Trim (Request( " No " ))
    Strtemp  =   Split (strNo, " , " )  ' 以逗号分割成数组
    Sql  =   " Select * From Test "
     Set  Rs  =  Server.CreateObject( " Adodb.RecordSet " )
    Rs.Open Sql,Conn, 1 , 1
    echo  " <table border=""1""> "
    MM  =   1
     If  Rs.Eof  Then   ' 如果无记录
        echo  "     <tr align=""center""><td>Sorry,no data!<td></tr> "
     Else
        echo  "     <tr> "
        echo  "         <th>序号</th> "
         For  I  =   0   To   Ubound (Strtemp)  ' 先循环列出字段名作为表头
            echo  "         <th> "   &  Rs.Fields( CInt (Strtemp(I)) - 1 ).Name  &   " </th> "
         Next
        echo  "     </tr> "
         Do   While   Not  Rs.Eof  ' 循环列出所有数据行
            echo  "     <tr align=""center""> "
            echo  "         <td> "   &  MM  &   " </td> "
             For  I  =   0   To   Ubound (Strtemp)  ' 循环列出字段值
                echo  "         <td> "   &  Rs( CInt (Strtemp(I)) - 1 )  &   " </td> "
             Next
            echo  "     </tr> "
        MM  =  MM  +   1
        Rs.MoveNext: Loop
     End   If
    echo  " </table> "
    Rs.Close
     Set  Rs  =   Nothing
     Call  CloseConn(Conn)
End   If  % >