OpenSchema方法技术探讨（三）

获得任意一个存储过程的参数列表，这个对于想做完全松耦合系统的哥们一定有用的。这个程序获得名字为'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 >”