求教：关于存储过程的调用问题？

sgxxhsg 2003-12-08 03:39:31

我建立了一个存储过程：
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_textcopy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_textcopy]
GO

CREATE PROCEDURE sp_textcopy
@srvname varchar (30), --服务器名
@login varchar (30), --用户名
@password varchar (30), --密码
@dbname varchar (30), --数据库名
@tbname varchar (30), --表名
@colname varchar (30), --存储文件的字段名
@filename varchar (30), --要存取的文件名
@whereclause varchar (40), --条件
@direction char(1) --I 为存储到数据库,O 从数据库中读出成文件
AS
DECLARE @exec_str varchar (255)
SELECT @exec_str =
'textcopy /S ' + @srvname +
' /U ' + @login +
' /P ' + @password +
' /D ' + @dbname +
' /T ' + @tbname +
' /C ' + @colname +
' /W "' + @whereclause +
'" /F ' + @filename +
' /' + @direction
EXEC master..xp_cmdshell @exec_str
在ASP中使用ADO的Command对象调用，设置如下：
set fetch = server.CreateObject("adodb.command")
fetch.CommandType = 4
fetch.CommandText ="sp_textcopy"
fetch.ActiveConnection = session("Connstr")
set para= fetch.CreateParameter("srvname",adVarChar,adParamInput,30,"SG")
fetch.Parameters.append para
set para= fetch.CreateParamete("login",adVarChar ,adParamInput,30,"s")
fetch.Parameters.append para
set para=fetch.CreateParameter("password",adVarCharr,adParamInput,30,"1")
fetch.Parameters.append para
set para=fetch.CreateParameter("dbname",adVarChar,adParamInput,30,"AirShow")
fetch.Parameters.append para
set para=fetch.CreateParameter("tbname",adVarChar,adParamInput,100,"影像资料")
fetch.Parameters.append para
set para = fetch.CreateParameter("colname",adVarChar,adParamInput,100,"影像资料")
fetch.Parameters.append para
set para = fetch.CreateParameter("filename",adVarChar,adParamInput,30,"d:\1.avi")
fetch.Parameters.append para
set para = fetch.CreateParameter("whereclause",adVarChar,adParamInput,30,"where 影像ID=16")
fetch.Parameters.append para
set para = fetch.CreateParameter("direction",adChar,adParamInput,1,"o")
fetch.Parameters.append para
fetch.Execute
执行以后就会出现错误：在第一个Set Para语句处出现：变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。请教高手：为何会出现该问题，应当如何解决？谢谢！

...全文

42 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

zjcxc 2003-12-08

打赏
举报

'建议用:

'==================================================================--
'
' 用ASP实现无组件上传/下载文件
'
' 功能简介
' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况
' 适用于各种数据库,使用ADO的方法连接数据库
' 本示例中使用的是ACCESS数据库:zj.mdb
' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录
' ,fname text(250) 保存上传的文件名,img ole对象保存上传的文件内容
' ,type text(250) 保存上传的文件类型
'
' 邹建 2003.10
'==================================================================

'==================================================================
'
' 上传文件的HTML页: zj_up.htm
'
'==================================================================
<html>
<head>
<title>文件上传保存到数据库中</title>
</head>
<body>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</p>
</form>
</body>
</html>

'==================================================================
'
' 上传文件保存到数据库的ASP页: zj_up.asp
'
'==================================================================
<%
Response.Expires=0
Function f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Else
iRe = iRe & Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)

iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
If iFn <> "" Then
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,"\"))
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
End If
End If

sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.close
set iRe=Nothing
%>

'==================================================================
'
' 下载数据的ASP页: zj_down.asp
'
'==================================================================
<%
Response.Buffer=true
Response.Clear

iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")

iRe.close
set iRe=Nothing
%>

zjcxc 2003-12-08

打赏
举报

'ASP调用改为:
set fetch = server.CreateObject("adodb.command")
fetch.CommandType = 4
fetch.CommandText ="sp_textcopy"
fetch.ActiveConnection = session("Connstr")
fetch.Parameters.Refresh
fetch.Parameters.("@srvname")="SG"
fetch.Parameters.("@login")="sa"
fetch.Parameters.("@password")="1"
fetch.Parameters.("@dbname")="AirShow"
fetch.Parameters.("@tbname")"影像资料"
fetch.Parameters.("@colname")="影像资料"
fetch.Parameters.("@filename"="d:\1.avi"
fetch.Parameters.("@whereclause"="where 影像ID=16"
fetch.Parameters.("@direction"="o"
fetch.Execute