%
Set conn = Server.CreateObject(ADODB.Connection)
conn.open ODBC名,用戶名,密碼
Sql1=select * from dbo.sysobjects where type not in('S','D','K')
Sql1=select * from dbo.sysobjects where type ='U'
set rscc = server.createobject(ADODB.recordset)
set rs = server.createobject(ADODB.recordset)
rscc.open sql1,conn,1,2
dowhile not rscc.eof
sql =select* from name)
rs.open sql,conn,1,2
response.write hr表名name)br
if 1=1 then
for i=0 to rs.Fields.Count-1
response.write 字段名:br
response.write 類型:
if rs.fields(i).type=3 then
response.write int
if rs.fields(i).Attributes=16 then response.write 自動編號字段
if rs.fields(i).Attributes=120 then response.write 允許空
if rs.fields(i).Attributes=24 then response.write 不允許空
elseif rs.fields(i).type=129 then
response.write char
response.write 大小&rs.fields(i).DefinedSize
if rs.fields(i).Attributes=120 then response.write 允許空
if rs.fields(i).Attributes=24 then response.write 不允許空
elseif rs.fields(i).type=201 then
response.write text
if rs.fields(i).Attributes=234 then response.write 允許空
if rs.fields(i).Attributes=138 then response.write 不允許空
elseif rs.fields(i).type=202 then
response.write nvarchar
response.write 大小&rs.fields(i).DefinedSize
if rs.fields(i).Attributes=8 then response.write !不允許空
if rs.fields(i).Attributes=104 then response.write !允許空
elseif rs.fields(i).type=131 then
response.write numeric
if rs.fields(i).Attributes=120 then response.write 允許空
if rs.fields(i).Attributes=24 then response.write 不允許空
elseif rs.fields(i).type=2 then
response.write smallint
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=11 then
response.write bit
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=135 then
response.write smalldatetime
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=203 then
response.write ntext
if rs.fields(i).Attributes=234 then response.write !允許空
if rs.fields(i).Attributes=138 then response.write !不允許空
elseif rs.fields(i).type=6 then
response.write money
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=130 then
response.write nchar
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=4 then
response.write real
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=5 then
response.write flat
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
elseif rs.fields(i).type=128 then
response.write binary
if rs.fields(i).Attributes=120 then response.write !允許空
if rs.fields(i).Attributes=24 then response.write !不允許空
else
response.write 未知&rs.fields(i).type
end if
response.write 屬性:&rs.fields(i).Attributes
response.write -------------br
next
end if
rs.close
'-------------------------------------
rscc.MoveNext
loop
set rs=nothing
set rscc=nothing
set conn=nothing
%