易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP调用带参数存储过程的几种方式

  最近有很多的朋友问到调用存储过程的问题,这里简单介绍几种ASP调用带参数存储过程的方法。
  1. 这也是最简单的方法,两个输入参数,无返回值:
  set connection = server.createobject("adodb.connection")
  connection.open someDSN
  Connection.Execute "procname varvalue1, varvalue2"
  '将所有对象清为nothing,释放资源
  connection.close
  set connection = nothing
  
  2. 如果要返回 Recordset 集:
  set connection = server.createobject("adodb.connection")
  connection.open someDSN
  set rs = server.createobject("adodb.recordset")
  rs.Open "Exec procname varvalue1, varvalue2",connection
  '将所有对象清为nothing,释放资源
  rs.close
  connection.close
  set rs = nothing
  set connection = nothing
  
  3. 以上两种方法都不能有返回值,(Recordset除外),如果要得到返回值,需要用Command的方法。
  首先说明,返回值有两种。一种是在存储过程中直接return一个值,就象C和VB的函数返回值那样;另一种是可以返回多个值,存
  储这些值的变量名称需要在调用参数中先行指定。
  这个例子要处理多种参数,输入参数,输出参数,返回记录集以及一个直接返回值(够全了吧?)
  存储过程如下:
  use pubs
  GO
  -- 建立存储过程
  create procedure sp_PubsTest
  -- 定义三个参数变量,注意第三个,特别标记是用于输出
  @au_lname varchar (20),
  @intID int,
  @intIDOut int OUTPUT
  AS
  SELECT @intIDOut = @intID + 1
  SELECT *
  from authors
  WHERE au_lname LIKE @au_lname + '%'
  --直接返回一个值
  RETURN @intID + 2
  
  调用该存储过程的asp程序如下:
  <%@ Language=VBScript %>
  <%
  Dim CmdSP
  Dim adoRS
  Dim adCmdSPStoredProc
  Dim adParamReturnValue
  Dim adParaminput
  Dim adParamOutput
  Dim adInteger
  Dim iVal
  Dim oVal
  Dim adoField
  Dim adVarChar
  ‘这些值在 VB 中是预定义常量,可以直接调用,但在 VBScript 中没有预定义
  adCmdSPStoredProc = 4
  adParamReturnValue = 4
  adParaminput = 1
  adParamOutput = 2
  adInteger


相关文档:

ASP中十大常用程序代码.:第四节〈我的心得〉

用ASP设计网站在线人数统计程序
  
  在浏览网页的时侯,常常可以看见一些“当前网站上的人数是XXX人”的在线人数同计。如何用ASP来做一个呢?首先,分析一下它的做法,一般来说,这些线上人数统计都是指一个时段内的访客人数统计。比如(5分钟内,10分钟内)而这个时间的长短,是由设计者设定 ......

ASP中十大常用程序代码.:第七节〈我的心得〉

用ASP实现支持附件的EMail系统(1)
  
  大家经常探讨使用asp,而不使用其他组建能否实现文件的上传,从而开发出支持邮件附件的邮件系统,答案是可以的。
  以下是发送邮件的页面,邮件的帐号是员工号,假设是5位的数字,sendmail.asp当然是在合法登陆后才能够看到的
<html>
<head>
<meta http-eq ......

ASP中十大常用程序代码.:第八节〈我的心得〉

用ASP实现支持附件的EMail系统(2)
  
  不过这仅仅只是得到了发送者的ip地址和mac地址,而且禁止用户自己更改自己ip地址的代码,因为我们的系统是需要对个人修改ip的行为进行禁止的。
<%
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = S ......

ASP中十大常用程序代码.:第九节〈我的心得〉

用ASP实现支持附件的EMail系统(3)
  
  尝试发送邮件,但是失败了,请修改错误后重试!
<script language="javascript">
alert("您输入的收件组格式错误!\r正确的格式是:'gr:001'");
history.back();
</script>
<p>
<%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
......

[转]asp的textbox的javascript应用

<%@ Page Language="C#" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server"> </script>
<html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">
<title ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号