Asp调试存储过程

原创 2003年02月26日 08:49:00

asp开发bs架构的三层系统,对于中小结构的系统把业务逻辑放在sqlserver的存储过程里面是一个很好的实现方法,但这么做出现了一个asp客户端和数据库存储过程之间配合调试的不方便.

实际开发中我写了下面一个函数,自动把asp端传给数据库的参数取出,自动生成符合sqlserver查询分析器的规则的存储过程执行命令串,放在textarea控件里,可以从页面直接复制到查询分析器里进行存储过程调试,下面就是程序.
‘==================================================================’
dim dsn     ‘数据源
dim storename    ‘存储过程名
dim con     ‘Connection对象
dim cmd     ‘Command对象
dim rs     ‘Recordset 对象
set con=server.createobject(“ADODB.Connection”)
con.open dsn
set cmd=server.createobject("ADODB.Command")
set cmd.ActiveConnection=Con
cmd.CommandText= storename
cmd.Commandtype=adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@State",adInteger,adParamInput,4)
cmd.Parameters.Append cmd.CreateParameter("@WhereT",adVarChar,adParamInput,200)
cmd.Parameters.Append cmd.CreateParameter("@BranchType",adVarChar,adParamInput,50)
cmd("@State") = 1
cmd("@WhereT")=”2”
cmd("@BranchType")=”3”
getpmt(cmd)      ‘获取存储过程的参数
set rs=server.CreateObject("adodb.recordset")
rs.CursorType =3
rs.LockType =3
rs.CursorLocation =3
set rs.Source =cmd
rs.Open
‘======================================================’
‘    形成存储过程的函数
‘=======================’
‘   输入参数 a= command对象
‘=======================’
sub getpmt(a)
    b=a.CommandText
 b=replace(b,"?","")
 b=replace(b,",","")
 b=replace(b,"}","")
 b=replace(b,"{","")
 b=replace(b," ","")
 b=replace(b,"call","")
 b=replace(b,"(","")
 b=replace(b,")","")
 Response.Write "<center><table border=1 cellpadding =0 cellspacing =0 bordercolordark=#ffffff bordercolorlight=#cccc88><tr onclick="&b&".style.display=''><td bgcolor=#cccc88>" & b & "</td></tr><tr id="&b&" style=display:none><td>"
 Response.Write "<TEXTAREA rows=6 cols=70 style='font-color:#ccc888;bgcolor:#ffffc'>"
 Response.Write b
 for each element in a.parameters
  c=element
  c="'" & replace(c,"'","''") & "'"
  d=d &  vbcrlf &   element.name  &"="& c &","
 next
 d=left(d,len(d)-1)
Response.Write d
 Response.Write "</TEXTAREA></td></tr></table></center>"
end sub

在ASP中使用存储过程

        学习使用存储过程(Stored Procedure),是ASP程序员的必须课之一。所有的大型数据库都支持存储过程,比如Oracle、MS SQL等,(但MS Access不支持,不过,...
  • feng19821209
  • feng19821209
  • 2005年08月22日 15:10
  • 1561

ASP脚本如何调用Oracle存储过程

ASP脚本如何调用Oracle存储过程摘自 久久网络一、ASP动态网站开发技术  随着人们对因特网认识的加深和IT技术的发展,一成不变的静态网页已经越来越满足不了信息交互和电子商务的需求,因此以数据库...
  • itzhiren
  • itzhiren
  • 2007年04月20日 15:49
  • 1207

ASP调用存储过程:返回多个记录集的存储过程

  7. 返回多个记录集的存储过程  本文最先介绍的是返回记录集的存储过程。有时候,需要一个存储过程返回多个记录集,在ASP中,如何同时取得这些记录集呢?为了说明这一问题,在userinfo表中增加两...
  • kingwkb
  • kingwkb
  • 2006年08月04日 09:27
  • 3978

在asp中调用sql server的存储过程方法

在asp中调用sql server的存储过程可以加快程序运行速度   1.调用存储过程的一般方法   先假设在sql server中有一存储过程dt_users:   CREATE PROCED...
  • sscrazy
  • sscrazy
  • 2014年11月13日 16:01
  • 615

asp操作有返回值的存储过程

'asp操作有返回值的存储过程 Set Cmd_Rs = Server.CreateObject("Adodb.Command") Set Cmd_Rs.ActiveConnection = Co...
  • sbt0198
  • sbt0198
  • 2013年04月08日 15:59
  • 1042

利用VS 调试存储过程

vs2013界面 选择项目里的SQL Server 对象资源管理器 点击界面里带加号的小本本 弹出和链接数据库一样的界面,输入链接数据库的用户和密码 链...
  • u010673842
  • u010673842
  • 2017年05月02日 16:38
  • 583

一个SQL存储过程分页和ASP调用

存储过程:CREATE PROCEDURE Sp_Page@IntPageSize int,--页大小@IntCurrPage int,--页码@strFields nvarchar(1000),--...
  • ehung
  • ehung
  • 2005年05月30日 10:21
  • 1473

ASP调用存储过程:有输入参数和输出参数的存储过程

  4. 有输入参数和输出参数的存储过程  返回值其实是一种特殊的输出参数。在大多数情况下,我们用到的是同时有输入及输出参数的存储过程,比如我们想取得用户信息表中,某ID用户的用户名,这时候,有一个输...
  • kingwkb
  • kingwkb
  • 2006年08月04日 09:26
  • 4306

ASP程序的调试

1。当页面有报第几行出错,但是没有指出具体错误的原因时。 可以采用这样的方法:在出错行前加上忽略错误的语句:on error resume next在出错行后面加上response.write(err...
  • feng19821209
  • feng19821209
  • 2005年07月28日 23:52
  • 1662

Sql Server 2012 存储过程的单步调试

最近在做vb项目的时候,用到了存储过程的调试,现在总结一下发现单步调试存储过程有以下2种方法: 1.这种方法自己已经做过,是可以的,如下:   a.如果目标数据库存在存储过程,右击该存储过...
  • hejisan
  • hejisan
  • 2016年08月18日 12:42
  • 3495
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Asp调试存储过程
举报原因:
原因补充:

(最多只允许输入30个字)