Asp深度揭密(2) - 中国站长下载,源码下载,站长工具下载

效果：
 G:\asp_www\test\course\server_mappath.asp

 思考：如何获取站点根目录的实际路径？如何获取某个目录的实际路径？


 server_urlencode.asp
 <%
 'url encode
 response.write server.urlencode("a\time_now")
 %>

 效果：
 a%5Ctime%5Fnow

 4． Application

 定义：用来存储、读取用户共享的应用程序信息，如可以用此对象在网站的用户间传送信息，当服务器重启后信息丢失。

 方法：
 Lock：防止其它用户访问Application集
 Unlock：使其它用户可以访问Application集

 事件：
 OnEnd：由终止网络服务器、改变Global.asa文件触发
 OnStart：由应用程序中对网页的第一次申请触发

 例子：

 application_counter.asp
 <%
 '一个使用Application制作的简单计数器
 Application.lock
 Application("clicks")=Application("clicks")+1
 Application.unlock

 response.write "您是本站第 "&Application("clicks")&" 位访客！"
 response.write " 您来自 "&request.servervariables("remote_addr")
 %>

 效果：
 您是本站第 1 位访客！

 您来自 10.1.43.238

 思考：本例中lock和unlock有何作用？

 5． Session

 定义：存储、读取特定用户对话信息，如可存储用户对网站的访问信息，当服务器重启后信息丢失。

 方法：
 Abandon：处理完当前页面后，结束一个用户会话

 属性：
 Timeout：用户会话持续时间（分钟数）

 事件：
 OnEnd：在Session Timeout时间以外，用户不再申请页面触发该事件
 OnStart：由用户对网页的第一次申请时触发

 例子：

 session_counter.asp
 <%
 '一个使用Session制作的简单计数器
 session("clicks")=session("clicks")+1

 response.write "您是本站第 "&session("clicks")&" 位访客！"
 response.write " 您来自 "&request.servervariables("remote_addr")
 %>

 效果：
 您是本站第 1 位访客！

 您来自 10.1.43.238

 思考：既然session和application都能做到计数，那它们之间有什么区别？如果要做到满100重新开始计数如何实现？

 三、使用Asp操作数据库：

 1．通过ODBC或者OLE方式连接的区别？

 现在有两种连接数据库的方法。一方面，可以用ODBC产生一个连接，这种连接与任何有ODBC驱动器的数据库（即基本上是市场上所有的数据库）兼容；另一方面，可以用原始OLE DB提供商产生一个连接。

 该用哪个提供商？尽可能用原始OLE DB提供商，因为它提供了对数据更有效的访问。Microsoft正逐步用OLE DB取代ODBC标准，应该仅仅在没有原始OLE DB提供商时使用ODBC。

 ⑴．用ODBC方式连接SQL Server：
 ①．配置ODBC
 ②．连接代码：
 conn_odbc.asp
 <%
 Set Conn = Server.CreateObject("ADODB.Connection")
 'Conn.Open "DSN=course_dsn;UID=course_user;PWD=course_password;DATABASE=course"
 Conn.Open "course_dsn","course_user","course_password"
 %>
 注意：在配置MyDSN时若指定默认数据库为course则上述代码作用想同，否则第二行的连接方式更有灵活性，可以指定连接某个数据库（当然，前提是course_user对这个数据库有操作权限）。

 ⑵．用OLE方式连接SQL Server：
 conn_ole.asp
 <%
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=10.1.43.238,2433; UID=course_user;PWD=course_password;DATABASE=course"
 %>

 2．操作数据库：Connection和Recordset

 联合使用connection和recordset操作数据库，或者只使用connection操作数据库。

 例子：

 ⑴．联合使用connection和recordset操作数据库

 use_db_1.asp
 <%
 Set conn=Server.CreateObject("ADODB.Connection") '创建连接数据库的对象
 conn.Open "course_dsn","course_user","course_password" '使用该对象连接数据库
 Set rs=Server.CreateObject("ADODB.RecordSet") '创建记录集对象
 rs.Open "select * from user_info",conn,1,1 '使用记录集对象打开数据库
 if rs.recordcount>0 then '如果有记录
 response.write "User_id User_name "
 for i=1 to rs.recordcount '循环读取所有纪录
 response.write rs("id")&" "&rs("user_name")&" "
 '向浏览器输出纪录的字段
 rs.movenext '指针下移一行
 if rs.eof then exit for '如果到达记录集底部则退出循环
 next
 end if
 %>

 效果：
 User_id User_name
 1 ahyi
 3 test


 ⑵．只使用connection操作数据库：

 use_db_2.asp
 <%
 Set conn=Server.CreateObject("ADODB.Connection") '创建连接数据库的对象
 conn.Open "course_dsn","course_user","course_password" '使用该对象连接数据库
 conn.execute "delete from user_info"
 %>

 效果：
 user_info表中所有数据被删除

 思考：两种方式有和区别？各应用于什么场合？

 3．如何使用事务处理、存储过程和视图？

 ⑴．使用存储过程

 ①．定义好存储过程

 CREATE PROCEDURE [output_1]
 @sid int output
 AS
 set @sid=2

 CREATE PROCEDURE [return_1]
 (@user_name varchar(40),@password varchar(20))
 AS
 if exists(select id from user_info where user_name=@user_name and password=@password)
 return 1
 else
 return 0

 CREATE PROCEDURE [user_info_1]
 (@user_name varchar(40),@password varchar(20))
 AS
 select id from user_info where user_name=@user_name and password=@password

 CREATE PROCEDURE [user_info_2]
 (@user_name varchar(40),@password varchar(20))
 AS
 SET XACT_ABORT ON
 BEGIN TRANSACTION
 delete from user_info where user_name=@user_name and password=@password
 COMMIT TRANSACTION
 SET XACT_ABORT OFF

 CREATE PROCEDURE [user_info_3] AS
 select * from user_info

 ②．在Asp中调用

 use_proc.asp
 
 <%
 Set conn=Server.CreateObject("ADODB.Connection")
 conn.Open "course_dsn","course_user","course_password"

 '使用recordset调用带两个输入参数和返回纪录集的存储过程
 'CREATE PROCEDURE [user_info_1]
 '(@user_name varchar(40),@password varchar(20))
 'AS
 'select id from user_info where user_name=@user_name and password=@password
 response.write "普通的调用方法： "
 set rs=server.createobject("adodb.recordset")
 sql="user_info_1 '"&request.querystring("user_name")&"','"&request.querystring("password")&"'"
 rs.open sql,conn,1,1
 response.write rs("id")&" "
 rs.close

 '使用recordset调用无输入参数，返回纪录集的存储过程，可以使用recordcount等属性
 'CREATE PROCEDURE [user_info_3] AS
 'select * from user_info
 response.write " 返回纪录集，可以使用recordcount等属性："
 sql="exec user_info_3"
 rs.open sql,conn,1,1
 for i=1 to rs.recordcount
 response.write " "&rs("user_name")
 rs.movenext
 next
 rs.close
 set rs=nothing

 '使用command调用带输出参数的存储过程
 'CREATE PROCEDURE [output_1]
 '@sid int output
 'AS
 'set @sid=2
 response.write " 调用带输出参数的存储过程： "
 set cmd=server.createobject("adodb.command")
 cmd.activeconnection=conn
 cmd.commandtext = "output_1"
 cmd.parameters.append cmd.createparameter("@sid",adinteger,adparamoutput)
 cmd("@sid")=10
 cmd.execute()
 bbb=cmd("@sid")
 response.write bbb&" "
 set cmd=nothing

 做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。

软件：	ASP 源码 \| .NET源码 \| PHP 源码 \| JSP 源码 \| CGI 源码 \| 网页模板 \| 网页素材 \| 字体下载 \| 工具软件 \| 服务器类 \| 书籍教程
文章：	网页编程 \| 网页制作 \| 数据库区 \| 服务器区 \| 网络安全 \| 网站运营 \| 图形图象




中国站长下载	本页只接受PR>=4 IT类站点连接,申请连接,谢谢您们的支持!希望我们的下载站能够真正帮到中国的站长们！
	关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 Copyright © 2005-2006 ChinaZhan.Net. All Rights Reserved .