<!--#include file="conn.asp"-->
<% 
if trim(request("cardid"))="" or trim(request("jihao"))="" or trim(request("Kdate"))="" or trim(request("Ktime"))="" then
	Response.Write("Ricom Systemswww.ricom.com.hkcount=error")
	conn.close
	response.end
end if
	      

dim Count8,Card8,type8,jihao8,date8,time8,returnstr
	   count8=trim(request("count"))
	   jihao8=trim(request("jihao"))
	   Card8=trim(request("cardid"))
	   date8=trim(request("Kdate"))   
	   time8=trim(request("Ktime"))
set objCmd=Server.CreateObject("Adodb.Command")
objCmd.ActiveConnection=conn
objCmd.CommandText="Pr_Kcardrec"    '指定存储过程名称
objCmd.CommandType=4  '其为Stored Procedure

'-----传参数到存储过程-------cardid/jihao/return(存储过程返回参数)
  objCmd.Parameters.Append objCmd.CreateParameter("@count8",200,1,10,count8) 
  objCmd.Parameters.Append objCmd.CreateParameter("@jihao8",200,1,20,jihao8) 
  objCmd.Parameters.Append objCmd.CreateParameter("@card8",200,1,600,Card8)
  objCmd.Parameters.Append objCmd.CreateParameter("@date8",200,1,400,date8)
  objCmd.Parameters.Append objCmd.CreateParameter("@time8",200,1,400,time8)
  objCmd.Parameters.Append objCmd.CreateParameter("@return",200,2,50,returnstr)
 
'-----执行存储过程----------------------
objCmd.Execute

'输出返回参数
response.Write  objCmd.Parameters("@return").Value 
'清除
Set objCmd.ActiveConnection = nothing
Set objCmd = nothing
Conn.close
 
%>
