Asp常用通用函数之打开任意数据表并显示表结构及内容

'函数名：OpOtherDB
  '作 用：打开任意数据表并显示表结构及内容
  '参 数：DBtheStr ---- 要打开表的数据库链接字串
  '参 数：Opentdname ---- 要打开表名
  '返回值：显示表结构及内容
  '**************************************************
  Public Function OpOtherDB(ByVal DBtheStr,ByVal Opentdname)
   Response.write "<table border='0' width='100%' cellspacing='0' cellpadding='0'>" & vbCrlf
   Set Opdb_Conn=server.createobject("ADODB.Connection")
   Set Opdb_Rs =server.createobject("ADODB.Recordset")
   Opdb_Conn.open DBtheStr
   Opdb_sql_str="select * from "&Opentdname
   Opdb_Rs.open Opdb_Sql_Str,Opdb_Conn,1,1
   Nfieldnumber=Opdb_Rs.Fields.count
   If Nfieldnumber >0 then
   Response.write "<tr>" & vbCrlf
   For i=0 to (Nfieldnumber-1)
   Response.write "<td style='border-style: ridge; border-width: 1' bgcolor='#E1E1E1' valign='middle' align='center'>"
   Response.write Trim(Opdb_Rs.Fields(i).Name)
   Response.write "</td>" & vbCrlf
   Next
   temptbi=0
   Do While Not Opdb_Rs.Eof
   Response.write "</tr>" & vbCrlf
   For i=0 to (Nfieldnumber-1)
   If (temptbi<2) Then
   Response.write "<td style='border-style: ridge; border-width: 1' bgcolor='#F6F6F6' valign='middle'>"
   Response.write Trim(Opdb_Rs.Fields(i))
   Response.write "</td>" & vbCrlf
   temptbi=temptbi+1
   Else
   Response.write "<td style='border-style: ridge; border-width: 1' valign='middle'>"
   Response.write Trim(Opdb_Rs.Fields(i))
   Response.write "</td>" & vbCrlf
   If temptbi>=3 Then
   temptbi=0
   Else
   temptbi=temptbi+1
   End If
   End If
   Next
   Opdb_Rs.MoveNext
   Response.write "</tr>" & vbCrlf
   Loop
   End If
   Opdb_Rs.Close
   Opdb_Conn.Close
   Set Opdb_Rs = Nothing
   Set Opdb_Conn=Nothing
   Response.write "</table>" & vbCrlf
  End function