| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 418 人关注过本帖
标题:[求助]关于APPLICATION的使用方法和弊端
取消只看楼主 加入收藏
ehvuclz
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-8-12
收藏
 问题点数:0 回复次数:3 
[求助]关于APPLICATION的使用方法和弊端
同题
2006-12-26 15:34
ehvuclz
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-8-12
收藏
得分:0 
如下使用方法会不会拖垮服务器啊
<script language=vbscript runat=server>
sub application_onstart
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("data.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
sql="select * from www_info"
set rs=conn.execute(sql)
if not(rs.eof and rs.bof) then
application("title")=rs("info_title")
application("tel")=rs("info_tel")
application("add")=rs("info_add")
application("mail")=rs("info_email")
application("net")=rs("info_net")
application("cert")=rs("info_cert")
application("fax")=rs("info_fax")
application("logo")=rs("info_logo")
end if
end sub

sub application_onEnd

application("title")=""
application("tel")=""
application("add")=""
application("mail")=""
application("net")=""
application("cert")=""
application("fax")=""
application("logo")=""
end sub

</script>

我菜。我学习
2006-12-26 15:45
ehvuclz
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-8-12
收藏
得分:0 
我只想做基本的网站简单信息传递

我菜。我学习
2006-12-26 16:17
ehvuclz
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2005-8-12
收藏
得分:0 
呵呵。谢谢啊。明白了。

我菜。我学习
2006-12-26 16:42
快速回复:[求助]关于APPLICATION的使用方法和弊端
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016850 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved