300 分解决ASP存储调用存储过程返回记录集奇怪问题---之第三个100分
ASP 调用如下
████████████████████████
'-------------------------------------------------调用存储过程Start
Dim fldSchoolNumber,queryType
fldSchoolNumber=Trim(Request("fldSchoolNumber"))
queryType="1"
'Response.Write(fldSchoolNumber&"<br>")
'Response.Write(dateBegin&"<br>")
'Response.Write(dateEnd&"<br>")
Dim Dataconn,provStr,cmdTemp,Rs
Set Dataconn = Server.CreateObject("ADODB.Connection") '建立连接对象
Dataconn.Provider = "SQLOLEDB"
provStr="driver={SQL Server};server=CCDBServer;uid=sa;pwd=;database=YHSchool;Regional=Yes"
'provStr="driver={SQL Server};server=CCDBServer;uid=sa;pwd=;database=YHSchool;Regional=Yes"
'provStr=Session("ConnString")
Dataconn.Open provStr '建立连接
Set cmdTemp = Server.CreateObject("ADODB.Command") '建立命令对象
Set Rs= Server.CreateObject("ADODB.Recordset") '建立记录集对象
cmdTemp.CommandText = "stdTelephone" '设置存储过程名
cmdTemp.CommandType = 4 '设置命令类型
rs.CursorLocation = 3
rs.LockType = 3
rs.CursorType = 3
Dataconn.CursorLocation = 3
Set cmdTemp.ActiveConnection = DataConn '设置活动边接
'说明CreateParameter(参数名,类型,输入输出方向,长度,变量值)
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@queryType",200,1,1,queryType) : Response.Write(queryType&"--@queryType<br>")
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@fldSchoolNumber",200,1,6,fldSchoolNumber) : Response.Write(fldSchoolNumber&"--@fldSchoolNumber<br>")
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@dateBegin",133,1,,dateBegin) : Response.Write(dateBegin&"--@dateBegin<br>")
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@dateEnd",133,1,,dateEnd) : Response.Write(dateEnd&"--@dateEnd<br>")
Set Rs=cmdTemp.execute() '执行
██████████
If not (Rs.bof and Rs.eof) then '█████行123 ,查询其他选项时报错████
....
End if
Set cmdTemp=nothing
Dataconn.Close
Set Dataconn=nothing