
<% option explicit

'=======ADOX ģ
'DeleteProcedure
'CreateDatabase 
Sub DeleteProcedure() 'ɾ洢
Dim cat
set cat=server.CreateObject("ADOX.Catalog")
	'Ŀ¼
   cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Source=C:\WWW\tschina\upload\test.mdb;"
   ' ɾ̡
   cat.Procedures.Delete "CustomerById"
End Sub

Sub CreateDatabase() 'MDB

   Dim cat
	set cat=server.CreateObject("ADOX.Catalog")
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WWW\tschina\upload\kkk;"

End Sub

'====mdb 
OpenConnection
Sub OpenConnection() 

	Dim cnn,cat,Columns,j,i,k,Table,item,Column,rs,sql,s,field,colitem,value
	set cnn=server.CreateObject("ADODB.Connection")
	set cat=server.CreateObject("ADOX.Catalog")
	  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source= C:\WWW\tschina\upload\bank_ext.asa;"
	Set cat.ActiveConnection = cnn
' ϼѭ
''	for i=0 to cat.Tables.count-1
''	Response.write(cat.Tables.item(i).Type)&"___"&(cat.Tables(i).Name)&"<br>"
''	next
' each ѭ
''	i=0
''	for each item in cat.Tables
''	Response.write(cat.Tables(i).Type)&"___"&(cat.Tables(i).Name)&"<br>"
''	i=i+1
''	next
' ݿ
	i=0
	for each item in cat.Tables
	j=0
	Response.write(cat.Tables(i).type)&"___"&(cat.Tables(i).Name)&"<br>"
		set Table = cat.Tables(i)
		'set Table=server.CreateObject("ADOX.Table") 
		'set Column=server.CreateObject("ADOX.Column")
		Response.write Table.Columns.count&" <br>"
		
		Response.write "<table cellspacing=1 cellpadding=0 bgcolor=#999999>"
		for each colitem in Table.Columns
		'Response.end
			''---Response.write(Table.Columns(j).Type)&"_"&(Table.Columns(j).Name)&"<br>"	
			
			if Table.Columns.count>0 then
			Response.write "<tr bgcolor=#ffffee><td>"&(Table.Columns(j).Name)&"</td>"
			sql="select ["&Table.Columns(j).Name&"] from ["&cat.Tables(i).Name&"]"
			set rs=cnn.Execute(sql)
				s=0
			    ''for each item in rs.fields
				while Not rs.eof
				if not isNull(rs.fields.item(0).value) then
				Response.write "<td>"&server.htmlencode(rs.fields.item(0).value)&"</td>"
				end if
				rs.movenext
				wend
				''s=s+1
				''next
				rs.close
			Response.write "<tr>"
			end if
					''ADOX֧ȡ¼,ֵ֧
					 ''s=s+1
					 ''next
					'set Column=cat.Tables(i).Columns(j)
					' k=0
					' Response.write Column.Properties.count-1&"<br>"
					'for each item in cat.Tables
					 'k=k+1
					'next
			j=j+1
		next
		Response.write "</tr></table>"
	i=i+1
	next

'	for each name in cat.Tables(name)
'	Response.write(cat.Tables(name).Type)&"___"&(cat.Tables(name).Name)&"<br>"
'	next
	'Response.write(cat.Tables.count)&"<br>"

End Sub



%>
