请各位高手救火十万火急
我用asp调用一存储过程一直不出结果（存储过程肯定正确）但是我用 vb却能出正确的结果，该存储过程功能是提取一些记录 请大家帮帮小的asp程序如下
<center><h2>分页程序</h2></center>
<b></b>
<%
sQuote=chr(34)
if request.queryString("page")="" then
iPage=1
else
iPage=CInt(Request.QueryString("PAGE"))
if iPage<1 then
iPage=1
end if
end if
set cmd=Server.CreateObject("ADODB.Command")
WITH cmd ‘执行存储过程
.Parameters.Append .CreateParameter("RETURN_VALUE",adInteger,adParamReturnValue)
.Parameters.Append .CreateParameter("@iPage",adInteger,adParamInput)
.Parameters.Append .CreateParameter("@iPageSize",adInteger,adParamInput)
.Parameters("@iPage")=8 ’参数值
.Parameters("@iPageSize")=20
.ActiveConnection=Conn
.CommandText="PagedAuthors"
.CommandType=adCmdStoredProc
set rsData=.Execute‘取得执行过程后的记录
end WITH
if not rsData.eof then
for each subRsData in rsData.fields
response.write"<td>" & subRsData.value &"</td>"’不能出结果窗体上什么也没有
exit for
next
end if
vb程序如下
With mRsCommand
.Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)
.Parameters.Append .CreateParameter("@iPage", adInteger, adParamInput)
.Parameters.Append .CreateParameter("@iPageSize", adInteger, adParamInput)
.Parameters("@iPage") = 8
.Parameters("@iPageSize") = 20
.ActiveConnection = mCn
.CommandText = "PagedAuthors"
.CommandType = adCmdStoredProc
Set rsData = .Execute
End With
If Not rsData.EOF Then
For Each subRsData In rsData.Fields
MsgBox CStr(subRsData.Value)‘能够打印出正确结果
Next
End If
问题点数：20、回复次数：1Top
1 楼supere（专心学习Dotnet）回复于 2003-11-03 21:03:25 得分 20
set conn=server.createObject("adodb.connection")
conn.execute(存储过程name)Top
