获得任意一个存储过程的参数列表，这个对于想做完全松耦合系统的哥们一定有用的。这个程序获得名字为'PRO_HOUSE_ADD_INFO'的存储过程的参数列表

connstr = "Provider=MSDAORA.1;User ID=liujincai;password=ljc1001;Data Source=hp1" 
set mm=server.CreateObject("adodb.connection") 
mm.Open connstr 
Const adSchemaProcedureParameters = 26 
set rs=mm.OpenSchema(adSchemaProcedureParameters) rs.Filter="PROCEDURE_NAME='PRO_HOUSE_ADD_INFO'"? Response.Write " < TABLE cellSpacing=0 border=1>" 
Response.Write " < TBODY> < TR bgColor=#dddddd>" 
for i=2 to rs.fields.count-1 
Response.Write " < TD>" & rs(i).name & "< /TD>" 
next 
Response.Write "< /TR>" 
do while not rs.eof 
Response.Write " < TR bgColor=#e0d0c0>"
for i=2 to rs.fields.count-1
Response.Write " < TD>" & rs(i) & "< /TD>" 
next 
Response.Write "< / tr >“
rs.movenext
loop 
Response.Write "《/ table >”