试过列出一个数据库里所有的主键吗？

<%

dbname = "databasename"

connstr = "provider=sqloledb;network=dbmssocn;"

connstr = connstr & "uid=<uid>;pwd=<pwd>;server="

connstr = connstr & "<ip address>;database=" & dbname

set conn = server.createobject("adodb.connection")

conn.open connstr

sql = "select so1.name as keyname, so2.name as tablename "

sql = sql & "from sysobjects so1 inner join sysobjects so2 "

sql = sql & "on so2.id = so1.parent_obj where (so1.xtype=pk)"

set rs = conn.execute(sql)

do while not rs.eof

response.write(rs(0) & " is primarykey for " & rs(1) & "<br>")

rs.movenext

loop

rs.close: set rs = nothing

conn.close: set conn = nothing

%>