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

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

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

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

FunctionOpenConn(Conn)'打开数据库连接
DimConnStr
IfIsSql=1Then'如果是SQLServer数据库
'SQLServer数据库连接参数:用户名、用户密码、数据库名、连接名（本地用local，外地用IP）
DimSqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
SqlUsername="sa"
SqlPassword=""
SqlDatabaseName="Test"
SqlLocalName="(local)"
ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"
Else'如果是Access数据库
DimDb
Db="Test.mdb"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=applebbs;DataSource="&Server.MapPath(Db)
EndIf
OnErrorResumeNext
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnStr
IfErrThen
'Err.Clear
SetConn=Nothing
echo"数据库连接出错，请检查连接字串。"
Response.End
EndIf
EndFunction

FunctionCloseConn(Conn)'关闭数据库连接
IfIsObject(Conn)Then
Conn.Close
SetConn=Nothing
EndIf
EndFunction

Functionecho(Str)
Response.WriteStr&VbCrlf
EndFunction

IfRequest("submit")="Submit"Then
CallOpenConn(Conn)
strNo=Trim(Request("No"))
Strtemp=Split(strNo,",")'以逗号分割成数组
Sql="Select*FromTest"
SetRs=Server.CreateObject("Adodb.RecordSet")
Rs.OpenSql,Conn,1,1
echo"<tableborder=""1"">"
MM=1
IfRs.EofThen'如果无记录
echo"<tralign=""center""><td>Sorry,nodata!<td></tr>"
Else
echo"<tr>"
echo"<th>序号</th>"
ForI=0ToUbound(Strtemp)'先循环列出字段名作为表头
echo"<th>"&Rs.Fields(CInt(Strtemp(I))-1).Name&"</th>"
Next
echo"</tr>"
DoWhileNotRs.Eof'循环列出所有数据行
echo"<tralign=""center"">"
echo"<td>"&MM&"</td>"
ForI=0ToUbound(Strtemp)'循环列出字段值
echo"<td>"&Rs(CInt(Strtemp(I))-1)&"</td>"
Next
echo"</tr>"
MM=MM+1
Rs.MoveNext:Loop
EndIf
echo"</table>"
Rs.Close
SetRs=Nothing
CallCloseConn(Conn)
EndIf%>