来帮忙看下asp调用oracle存储过程怎么参数显示不出来急急急！！！

2006-08-30 11:29:19 203 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

转换shp坐标系之前，设置转换的投影 1.点击目录》工具箱》系统工具箱》Data Management Tools.tbx》投影和变换》创建自定义地理（坐标）变换 2.名称自定义 2.输入地理坐标系可以根据所需要转换的shp文件属性中查询出来把图层拖入arcgis中，右键属性即可查看 3.复制坐标系，点击“输入地理坐标系”右侧的按钮后，粘贴在顶部搜索框中，并按enter键，选择对应的坐标系 4.点击“输出地理坐标系”右侧的按钮后，选择转换后的坐标系，如4326，选择后点击确认按钮。 5.自定义方法中选择阅读详情

帮朋友问的是在客户那里调程序很紧急请知道的帮帮忙多谢了解决马上给分！

on error resume next
'连接数据库

'连接数据库
set orasession=createobject("OracleInprocServer.XOraSession")
set oradatabase=orasession.dbopendatabase("jjmis","kaoshi/kaoshi",cint(0))

'出错处理
if err.number>0 then
response.write"<h4>asp 错误控制 </h4>"
response.write"asp 错误来源:"&err.source &"<br>"
response.write"asp 错误代码:"&err.number&"<br>"
response.write"asp 错误说明:"&err.description&"<br>"
err.clear
response.write"<h4>ORACLE OLE 错误控制</h4>"
response.write"ORACL错误代码:"&OraSession.LastServerErr&"<br>"

response.write"ORACLE 错误说明:"&OraSession.LastServerErrText&"<br>"

else

'调用存储过程写入成绩
Set cmdTemp=Sever.CreateObject("ADODB.Command")
'建立命令对象

Set cmdTemp.ActiveConnection=oradatabase

cmdTemp.CommandType=adCMdStoredProc
'指定要执行的是一个存储过程

cmdTemp.CommandText="{call drv_admin.ga_write_km1(?,?,?,?,?,?,?,?,?,?)}"

'存储过程名称

'创建输入参数对象

cmdTemp.Parameters.Append cmdTemp.CreateParameter ("LSH",adVarchar,adParamIntput,12)
'把参数加到参数集合
cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("SFZMHM",adVarChar,adParamInput,18)

cmdTemp.Parameters.Append cmdTemp.CreateParameter("KSCX",adVarChar,adParamInput,2)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("KSRQ",adDate,adParamInput,8)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("KSCJ",adInteger,adParamInput,3)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("KSCS",adInteger,adParamInput,2)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("KSY1",adVarChar,adParamInput,10)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("KSY2",adVarChar,adParamInput,10)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("JBR",adVarChar,adParamInput,10)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("ZT",adVarChar,adParamInput,2)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("RES",adInteger,adParamOutput,2)

cmdTemp.ParaMeters.Append cmdTemp.CreateParameter("ERR",adVarChar,adParamOutput,10)

'取得输入参数
cmdTemp("LSH")=session("lsh")
cmdTemp("SFZMHM")=session("sfzmhm")
cmdTemp("KSCX")=session("auto_type")
cmdTemp("KSRQ")=now()

cmdTemp("KSCJ")=96
cmdTemp("KSCS")=1
cmdTemp("KSY1")=session("ksy1")

cmdTemp("JBR")=session("jbr")
cmdTemp("ZT")=1

cmdTemp.Execute'执行存储过程
response.Write(cmdTemp("RES"))
response.Write(cmdTemp("ERR"))

...全文