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

王朝html/css/js·作者佚名 2006-12-17

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

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

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

请输入需要列出的字段序号(以逗号隔开，比如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>'

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>'

echo ' </tr>'

MM = MM + 1

Rs.MoveNext:Loop

End If

echo '</table>'

Rs.Close

Set Rs = Nothing

Call CloseConn(Conn)

End If %>