6-23.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 55 行

ASP
55
字号
<!--#include file="adovbs.inc" -->
<html>

<head>

<title>获取存储过程的输出参数</title>
</head>

<body>

<%

Dim ConnStr,myConn,mySQL,myRec
ConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=northwind;user id=sa;password=;"  '参照表6-2的连接字符串
Set myConn=Server.CreateObject ("ADODB.Connection")
Myconn.ConnectionString=ConnStr
myConn.open  '直接打开数据库连接

set myComm = Server.CreateObject("ADODB.COMMAND")

with myComm
	.ActiveConnection = myConn
	.CommandText ="CustOrderHist"
	.CommandType =adCmdStoredProc
end with
%>
<TABLE BORDER=1>
<CAPTION>存储过程参数信息</CAPTION>
<TR>
<TH>Parameter Name</TH>
<TH>Datatype</TH>
<TH>Direction</TH>
<TH>Size</TH>
</TR>
<%For Each thing in myComm.Parameters %>
<TR>
<TD><%=thing.name%></TD>
<TD><%=thing.type%></TD>
<TD><%=thing.direction%></TD>
<TD><%=thing.size%></TD>
</TR>
<%
Next

myConn.close
set myConn=nothing
%>
</TABLE>



</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?