首页 > > 网络编程 > Asp编程 >

ASP存储使用教程

2018-10-06 08:08:00来源：爱站网 阅读 ()

新老客户大回馈,云服务器低至5折

　　ASP是一种生成动态交互性网页的强有力工具，下面是小编给大家分享的一篇ASP存储使用教程，感兴趣的朋友跟小编一起来了解一下吧!

　　一、使用Command对象和Parameter对象传递参数本讲将主要使用MicrosoftSQLServer7.0数据库，先建立一个连接文件AdoSQL7.asp备用，以后用到时不再特别说明。

　　%''AdoSQL7.asp

　　OptionExplicit

　　Response.Expires=0

　　''第一部分:建立连接

　　DimCnn,StrCnn

　　SetCnn=Server.CreateObject("ADODB.Connection")

　　StrCnn="Provider=sqloledb;UserID=sa;Password=;InitialCatalog=pubs;DataSource=ICBCZJP"

　　Cnn.OpenStrCnn

　　%>

　　注意：自己使用时要将DataSource设为你的数据库服务器所在的机器名。

　　另外，以前使用Access数据库时，用MicrosoftAccess97可以很方便的查看字段及数据，而使用SQLServer数据库，尤其是并不在数据库服务器，而是在另一台机器上调试ASP脚本时，要查看字段及数据便需另外安装工具，这里向你提供一个工具：Msqry32.exe(MicrosoftQuery)，这个文件随Office97安装，一般位于目录“MicrosoftOffice\Office”下。

　　例wuf70.asp：

　　%@LANGUAGE="VBSCRIPT"%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf70.asp

　　DimcmdTest,prmTest,rsTest

　　''创建Command对象

　　SetcmdTest=Server.CreateObject("ADODB.Command")

　　‘Recordset、Command对象都可以通过ActiveConnection属性来连接Connection对象

　　cmdTest.ActiveConnection=Cnn

　　''SQL命令-含两个参数，用?表示

　　cmdTest.CommandText="UpdatejobsSetjob_desc=?Wherejob_id=?"

　　''设命令类型为SQL语句

　　cmdTest.CommandType=adCmdText

　　''Prepared属性决定是否将SQL命令先行编译，将其设为True，可以加快运行

　　cmdTest.Prepared=True

　　''创建Parameter对象

　　SetprmTest=cmdTest.CreateParameter("job_desc",adVarChar,adParamInput,50,"网络")

　　''将数据追加到Parameters数据集合中

　　cmdTest.Parameters.AppendprmTest

　　SetprmTest=cmdTest.CreateParameter("job_id",adSmallInt,adParamInput,,"12")

　　cmdTest.Parameters.AppendprmTest

　　''执行修改–不需要返回结果，简单的使用cmdTest.Execute就可以了

　　cmdTest.Execute

　　''重新设置参数运行–便可修改另一条数据

　　cmdTest.Parameters("job_id")="1"

　　cmdTest.Parameters("job_desc")="测试"

　　cmdTest.Execute

　　''重新设置参数运行

　　cmdTest("job_id")="14"

　　cmdTest("job_desc")="金融"

　　cmdTest.Execute

　　SetrsTest=Cnn.Execute("Selectjob_id,job_descFromjobs")

　　WhileNotrsTest.EOF

　　Response.WritersTest(0)&rsTest(1)&""

　　rsTest.MoveNext

　　Wend

　　Cnn.close:SetprmTest=Nothing

　　SetcmdTest=Nothing:SetCnn=Nothing

　　%>

　　分析：

　　1.Command对象的CreateParameter方法用来为SQL命令或存储过程建立参数对象，共有五个参数(五个参数都是可选项)：

　　第一个参数：参数对象的名称;

　　第二个参数：参数对象的数据类型，种类太多，还是参考ADO帮助吧，这里adVarChar(字符串值)、adSmallInt(2字节带符号整型);

　　第三个参数：参数类型。可以是：adParamInput(指示输入参数)、adParamOutput(指示为输出参数)、adParamReturnValue(指示为返回值)、adParamUnknown(指示参数类型无法确定)、adParamInputOutput(指示为输入/输出参数);

　　第四个参数：参数的数据长度，最好指定为与数据库中对应字段长度相等，以免使用时出错，尤其数据类型为VarChar时，如果是整型或日期型则不必提供该值;

　　第五个参数：参数的设置初值。

　　2.cmdTest.Parameters.Append方法增加一个Parameter对象到Parameters数据集合中，从本例中也可看到如何使用多个参数。

　　3.从本例可以看到，只需要重新设定输入参数，便可执行对其他数据的修改，非常方便，这一思路在编程时也是最常用的方法之一。

　　4.重设参数，既可以使用cmdTest.Parameters，也可以省略为cmdTest("job_id")。

　　二、在ASP中使用存储过程

　　什么是存储过程(存储过程位于数据库服务器中，是一个SQL语句的集合，可包含一个或多个SQL语句)、怎样创建存储过程不属于本讲座的内容，本讲座主要是举例说明在ASP中如何调用存储过程。

　　使用存储过程的好处是大大的，存储过程比在ASP脚本中运行SQL命令效率更高;可以提高整体性能并减轻网络负载(减少了在网络服务器和数据服务器之间的交互);可以优化ASP代码和增强代码灵活性等等。

　　(一)在存储过程中使用输入参数

　　本例中使用的存储过程为SQLServer7.0自带的“byroyalty”，里面的一条SQL语句非常简单，无非是多了一个CREATEPROCEDUREbyroyalty，并且有一个输入参数为@percentage：

　　CREATEPROCEDUREbyroyalty@percentageint

　　AS

　　selectau_idfromtitleauthor

　　wheretitleauthor.royaltyper=@percentage

　　servebywww.cidu.net

　　例wuf71.asp

　　%@LANGUAGE=VBScript%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf71.asp

　　DimcmdTest,prmTest,rsTest

　　SetcmdTest=Server.CreateObject("ADODB.Command")

　　cmdTest.CommandText="byroyalty"''存储过程名

　　''设命令类型为存储过程

　　cmdTest.CommandType=adCmdStoredProc

　　''创建Parameter对象

　　SetprmTest=Server.CreateObject("ADODB.Parameter")

　　‘Type属性对应wuf70.asp中的第二个参数

　　prmTest.Type=adInteger''4字节的带符号整型

　　‘Direction属性对应wuf70.asp中的第三个参数

　　prmTest.Direction=adParamInput

　　‘Value属性对应wuf70.asp中的第五个参数

　　prmTest.Value=30

　　cmdTest.Parameters.AppendprmTest

　　SetcmdTest.ActiveConnection=Cnn

　　‘需要返回一个记录集，故使用SetrsTest=cmdTest.Execute

　　SetrsTest=cmdTest.Execute

　　WhileNotrsTest.EOF

　　Response.WritersTest(0)&""

　　rsTest.MoveNext

　　Wend

　　Cnn.close

　　SetrsTest=Nothing:SetprmTest=Nothing

　　SetcmdTest=Nothing:SetCnn=Nothing

　　%>

　　CommandText属性既可以指定SQL命令，也可以指定为存储过程或者是表名称。

　　在本例中，创建Parameter对象与wuf70.asp略有不同，其实仔细看看，意思也是差不多的，本例还有两个属性未用：prmTest.Name、prmTest.Size，加上Type、Direction和Value，对应于wuf70.asp中的五个参数。

　　(二)使用输出参数

　　从数据库表中取得一个记录或计算一个值时，需要使用返回输出参数的存储过程。为了举例，先在SQLServer的pubs库中新建一存储过程OUTemploy，该存储过程需要输入两个日期，然后输出一个最大值。

　　CREATEPROCEDUREOUTemploy

　　(

　　@job_lvltinyintOUTPUT,

　　@hire_date1datetime,

　　@hire_date2datetime

　　)

　　AS

　　select@job_lvl=MAX(job_lvl)fromemployee

　　wherehire_date>=@hire_date1andhire_date=@hire_date2

　　有多种方法可以建立存储过程：

　　1.使用MicrosoftSQLServer的EnterpriseManager，打开后在左边的树目录中依次打开：ConsoleRoot–MicrosoftSQLServers–SQLServerGroup–ICBCZJP(WindowsNT)–databases–pubs–storedprocedure–Newstoredprocedure，输入存储过程后，还可对其进行语法检测;

　　2.使用MicrosoftSQLServer的QueryAnalyzer，先连接数据库服务器并选择pubs数据库。输入上面的存储过程并点击ExecuteQuery(或按F5);

　　3.使用VB6.0，打开菜单“视图”/“数据视图窗口”后，右键单击“数据链接”/“新建数据链接”;

　　4.使用ASP脚本创建存储过程，例wuf75.asp：

　　%@LANGUAGE=VBScript%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf75.asp

　　DimStrSQL

　　''注:&Chr(10)&Chr(13)完全可以不要,主要是为了好看

　　StrSQL="CREATEPROCEDUREOUTemploy(@job_lvltinyintOUTPUT,"&Chr(10)&Chr(13)&_

　　"@hire_date1datetime,@hire_date2datetime)AS"&Chr(10)&Chr(13)&_

　　"select@job_lvl=MAX(job_lvl)fromemployee"&_

　　"wherehire_date>=@hire_date1andhire_date=@hire_date2"

　　Cnn.ExecuteStrSQL

　　Response.Write"创建存储过程成功"

　　Cnn.close:SetCnn=Nothing

　　%>

　　存储过程创建后，除了使用菜单，你还可以使用SQL语句“DropProcedureOUTemploy”删除它。

　　例wuf72.asp–把所需要的输入参数送入存储过程并取得输出结果。

　　%@LANGUAGE=VBScript%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf72.asp

　　DimcmdTest,prmTest

　　SetcmdTest=Server.CreateObject("ADODB.Command")

　　cmdTest.ActiveConnection=Cnn

　　cmdTest.CommandText="OUTemploy"''存储过程名

　　cmdTest.CommandType=adCmdStoredProc

　　''创建Parameter对象

　　SetprmTest=cmdTest.CreateParameter("job_lvl",adTinyInt,adParamOutput)

　　cmdTest.Parameters.AppendprmTest

　　''adTinyInt-1字节带符号整型

　　''adDbDate-日期值(yyyymmdd)

　　SetprmTest=cmdTest.CreateParameter("hiredate1",adDBDate,adParamInput,,"1993-05-09")

　　cmdTest.Parameters.AppendprmTest

　　SetprmTest=cmdTest.CreateParameter("hiredate2",adDBDate,adParamInput,,"1994-02-01")

　　cmdTest.Parameters.AppendprmTest

　　cmdTest.Execute

　　‘下面三种表达方式意思一样

　　Response.Writecmdtest("job_lvl")&""

　　Response.WritecmdTest.Parameters("job_lvl")&""

　　Response.WritecmdTest.Parameters("job_lvl").Value

　　Cnn.close

　　SetprmTest=Nothing

　　SetcmdTest=Nothing:SetCnn=Nothing

　　%>

　　(三)使用返回代码参数

　　用Return语句可以从存储过程返回不同的返回代码，如下面存储过程先取得一个记录集，然后，若有叫Margaret的雇员则返回1，否则返回0。

　　CreateProcedureReturnemploy

　　AS

　　selectemp_id,fnamefromemployee

　　IfExists(SelectfnameFromemployeeWherefname=''Margaret'')

　　Return(1)

　　Else

　　Return(0)

　　例wuf73.asp

　　%@LANGUAGE=VBScript%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf73.asp

　　DimcmdTest,prmTest,rsTest

　　SetcmdTest=Server.CreateObject("ADODB.Command")

　　cmdTest.ActiveConnection=Cnn

　　cmdTest.CommandText="Returnemploy"''存储过程名

　　cmdTest.CommandType=adCmdStoredProc

　　SetprmTest=cmdTest.CreateParameter("ReturnValue",adInteger,adParamReturnValue)

　　cmdTest.Parameters.AppendprmTest

　　SetrsTest=cmdTest.Execute()

　　WhileNotrsTest.EOF

　　Response.WritersTest(0)&"]["&rsTest(1)&""

　　rsTest.MoveNext

　　Wend

　　rsTest.Close:SetrsTest=Nothing

　　''返回cmdtest("ReturnValue")之前,必须先关闭rsTest,否则结果错误

　　Ifcmdtest("ReturnValue")=1Then

　　Response.Write"有该雇员"

　　Else

　　Response.Write"无该雇员"

　　EndIf

　　Cnn.close

　　SetprmTest=Nothing

　　SetcmdTest=Nothing:SetCnn=Nothing

　　%>

　　三、如何处理大数据

　　这里的“大数据”主要是指Text(大文本)和image(图像)字段，采用前面所述的方法无法正确获取其数据。必须首先使用Size=rsTest(0).ActualSize获取字段值的实际长度，然后再使用rsTest(0).GetChunk(Size)取得数据。在实际使用过程中，由于这些字段都比较大，为了节省、合理使用服务器资源，一般均采取分段读取的方法。例wuf74.asp:

　　%@LANGUAGE=VBScript%>

　　!--#includefile="AdoSQL7.asp"-->

　　!--#includefile="adovbs.inc"-->

　　%''wuf74.asp

　　DimStrSQL,rsTest

　　‘pr_info是一个文本字段

　　StrSQL="Selectpr_info,pub_idFrompub_info"

　　SetrsTest=Cnn.Execute(StrSQL)

　　DimBasicSize,BeginSize,LText

　　DoWhileNotrsTest.EOF

　　Response.WritersTest(1)&""

　　‘每次读取1024字节

　　BasicSize=1024

　　BeginSize=0

　　WhileBeginSizersTest(0).ActualSize

　　LText=rsTest(0).GetChunk(BasicSize)

　　BeginSize=BeginSize+BasicSize

　　‘逐段输出到客户端

　　Response.WriteLText

　　Wend

　　Response.Write""

　　rsTest.MoveNext

　　Loop

　　Cnn.close

　　SetrsTest=Nothing:SetCnn=Nothing

　　%>

　　在本例中，每次最多读取1024字节，分多次读完。反之，如果将大数据写至数据库中，方法类似上面，不过不是使用GetChunk方法，而是使用AppendChunk方法：

　　rsTest(0).AppendChunkLtext

　　注意：最后介绍一个关于SQLServer数据库的小技巧，如果你遇到过这种情况：数据库的中文数据显示出来均是乱码，请不要惊慌。你只要去我的站点下载sqlsrv32.dll覆盖“C:\Windows\System”下的同名文件就可以了。问题发生的源头是SQLServer驱动程序，典型的情况发生在Windows98第二版(SQLServer驱动程序的版本号为3.70.06.23)或Windows2000中或者安装了MDAC2.5(版本号为3.70.08.20)。

　　以上就是关于ASP存储使用教程了，想必都了解了吧，更多相关内容请继续关注爱站技术频道。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有

上一篇：FSO代码详细解析

下一篇：ASP简单实现对所有文件进行批量改名

相关文章

IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设

网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源

网站联盟： 联盟新闻 联盟介绍 联盟点评 网赚技巧

行业资讯： 搜索引擎 网络游戏 电子商务 广告传媒

网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它

服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护

软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷

网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash

程序设计： Java技术 C/C++ VB delphi

网络知识： 网络协议 网络安全 网络管理 组网方案 Cisco技术

操作系统： Win2000 WinXP Win2003 Mac OS Linux FreeBSD

热门词条
最新资讯
热门关注
热门标签