|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。存储历程asp开辟bs架构的三层体系,关于中小布局的体系把营业逻辑放在sqlserver的存储历程内里是一个很好的完成办法,但这么做呈现了一个asp客户端和数据库存储历程之间共同调试的不便利.
实践开辟中我写了上面一个函数,主动把asp端传给数据库的参数掏出,主动天生切合sqlserver查询剖析器的划定规矩的存储历程实行命令串,放在textarea控件里,能够从页面间接复制到查询剖析器里举行存储历程调试,上面就是程序.
‘==================================================================’
dimdsn‘数据源
dimstorename‘存储历程名
dimcon‘Connection工具
dimcmd‘Command工具
dimrs‘Recordset工具
setcon=server.createobject(“ADODB.Connection”)
con.opendsn
setcmd=server.createobject("ADODB.Command")
setcmd.ActiveConnection=Con
cmd.CommandText=storename
cmd.Commandtype=adCmdStoredProc
cmd.Parameters.Appendcmd.CreateParameter("@State",adInteger,adParamInput,4)
cmd.Parameters.Appendcmd.CreateParameter("@WhereT",adVarChar,adParamInput,200)
cmd.Parameters.Appendcmd.CreateParameter("@BranchType",adVarChar,adParamInput,50)
cmd("@State")=1
cmd("@WhereT")=”2”
cmd("@BranchType")=”3”
getpmt(cmd)‘猎取存储历程的参数
setrs=server.CreateObject("adodb.recordset")
rs.CursorType=3
rs.LockType=3
rs.CursorLocation=3
setrs.Source=cmd
rs.Open
‘======================================================’
‘构成存储历程的函数
‘=======================’
‘输出参数a=command工具
‘=======================’
subgetpmt(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><tableborder=1cellpadding=0cellspacing=0bordercolordark=#ffffffbordercolorlight=#cccc88><tronclick="&b&".style.display=><tdbgcolor=#cccc88>"&b&"</td></tr><trid="&b&"style=display:none><td>"
Response.Write"<TEXTAREArows=6cols=70style=font-color:#ccc888;bgcolor:#ffffc>"
Response.Writeb
foreachelementina.parameters
c=element
c=""&replace(c,"","")&""
d=d&vbcrlf&element.name&"="&c&","
next
d=left(d,len(d)-1)
Response.Writed
Response.Write"</TEXTAREA></td></tr></table></center>"
endsub
</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|