<!--#include file="conn.asp"-->
<%
dim jihao,file,del,add,returnstr
if trim(request("jihao"))="" or trim(request("file"))="" or trim(request("del"))="" or trim(request("add"))="" then
	response.write("Ricom Systemswww.ricom.com.hkcount=error")
	response.end
end if
jihao=trim(request("jihao"))
file=trim(request("file"))
del=trim(request("del"))
add=trim(request("add"))
set objCmd=server.CreateObject("adodb.command")
objCmd.activeconnection=conn
objCmd.CommandText="Pr_Kdata" '指定存储过程名
objCmd.CommandType=4 '类型为4是存储过程
'--------------传参数到存储过程中(存储过程返回参数)
objCmd.Parameters.Append objCmd.CreateParameter("@jihao",200,1,6,jihao) 
objCmd.Parameters.Append objCmd.CreateParameter("@file",200,1,1,file)
objCmd.Parameters.Append objCmd.CreateParameter("@del",3,1,,del) 
objCmd.Parameters.Append objCmd.CreateParameter("@add",3,1,,add)  
objCmd.Parameters.Append objCmd.CreateParameter("@return",200,2,1200,returnstr)
'-------执行存储过程
objCmd.execute
'输出返回参数
response.Write objCmd.Parameters("@return").Value
'清除
Set objCmd.ActiveConnection = nothing
Set objCmd = nothing

%> 