打开任意数据表并显示表结构及内容代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】打开任意数据表并显示表结构及内容

作者: / 发布于2011/1/5/ 977

<div>'************************************************** 
 '函数ID：0003[打开任意数据表并显示表结构及内容] 
 '函数名：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 
</div>

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label