|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。我们进修来看一下Response工具。实在我们后面的教程中一向都在利用这个工具的Write办法。
这里我们用Response工具设置cookie。
?
翻开vb6,新建ActivexDll工程。工程名修正为fCom,类名修正为fZ5
援用“MicrosoftActiveServerPagesObject”工具库。
创立两个组件事务:OnStartPage和OnEndPage
在事务OnStartPage中创立类ScriptingContent的一个援用。
实例化类ScriptingContent。
?
代码以下:
OptionExplicit
工具的声明
DimmyResponseAsResponse
DimmyRequestAsRequest
DimmyApplicationAsApplication
DimmyServerAsServer
DimmySessionAsSession
?
???当组件被创立的时分会触发这个事务
PublicSubOnStartPage(myScriptingContentAsScriptingContext)
????举行工具的实例化
????SetmyResponse=myScriptingContent.Response
????SetmyRequest=myScriptingContent.Request
????SetmyServer=myScriptingContent.Server
????SetmyApplication=myScriptingContent.Application
????SetmySession=myScriptingContent.Session
EndSub
?
???当组件被烧毁的时分触发这个事务
PublicSubOnEndPage()
????烧毁工具
????SetmyResponse=Nothing
????SetmyRequest=Nothing
????SetmyServer=Nothing
????SetmyApplication=Nothing
????SetmySession=Nothing
EndSub
?
从页面中设置Cookie,组件中失掉
PublicSubGetCookie()
???Dimmyitem
???全体信息
???ForEachmyitemInmyRequest.Cookies
???????myResponse.Writemyitem&":"&myRequest.Cookies.Item(myitem)
???????myResponse.Write"
"
???Next
???
???单个信息
???myResponse.Write"个中用户姓名是"&":"&myRequest.Cookies("username")
???myResponse.Write"
"
???myResponse.Write"个中用户岁数是"&":"&myRequest.Cookies("age")
???myResponse.Write"
"
EndSub
组件中设置cookie,页面中失掉
PublicSubSetCookie()
???myResponse.Cookies("com_username")="龙卷风"
???myResponse.Cookies("com_age")=26
???myResponse.Expires=#9/13/2004#
EndSub
?
编译成Dll文件,体系主动会注册。
不然利市工注册Regsvr32f: estfcom.dll
?
测试
翻开visualinterdev6.0,天生一个fz5.asp文件
?
设置好假造目次,在ie中实行fc5.asp文件,能够看到
龙卷风
26
age:26
username:龙卷风
com_age:26
com_username:龙卷风
个中用户姓名是:龙卷风
个中用户岁数是:26
未完待续
</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|