[求助]关于APPLICATION的使用方法和弊端

龍2132

文章结束


2006-12-26 15:34:05 islet

等　级：贵宾
威　望：89
帖　子：6552
专家分：0
注　册：2005-1-28
第 2 楼   得分:0  
很好用的DD，适当使用可以提高速度，过分使用会拖垮服务器

文章结束


东搞一下 西搞一下  2006-12-26 15:36:48 ehvuclz

等　级：注册会员
帖　子：65
专家分：0
注　册：2005-8-12
第 3 楼   得分: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:04 islet

等　级：贵宾
威　望：89
帖　子：6552
专家分：0
注　册：2005-1-28
第 4 楼   得分:0  
应该不会
你想做什么用

文章结束


东搞一下 西搞一下  2006-12-26 16:03:49 ehvuclz

等　级：注册会员
帖　子：65
专家分：0
注　册：2005-8-12
第 5 楼   得分:0  
我只想做基本的网站简单信息传递

文章结束


我菜。我学习  2006-12-26 16:17:06 islet

等　级：贵宾
威　望：89
帖　子：6552
专家分：0
注　册：2005-1-28
第 6 楼   得分:0  
你想用后台控制网站的基本信息
你可以用fso动态生成静态config文本
例如：
str=str&"Const webtitle="&rs("info_title")&vbcrlf
str=str&"Const webtel="&rs("info_tel")&vbcrlf
str=str&"Const webadd="&rs("info_add")&vbcrlf
……
最后把str作为内容用fso生成config.inc

每页<!--#include file="config.inc"-->就可以调用webtitle、webtel、webadd……等常量了

文章结束


东搞一下 西搞一下  2006-12-26 16:28:16 ehvuclz

等　级：注册会员
帖　子：65
专家分：0
注　册：2005-8-12
第 7 楼   得分:0

゛淡蓝ニ

很好用的DD，适当使用可以提高速度，过分使用会拖垮服务器

〢●●〢

如下使用方法会不会拖垮服务器啊
<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>

爱情海555

应该不会
你想做什么用

┗白觀喑﹖

我只想做基本的网站简单信息传递

Yaci

你想用后台控制网站的基本信息
你可以用fso动态生成静态config文本
例如：
str=str&"Const webtitle="&rs("info_title")&vbcrlf
str=str&"Const webtel="&rs("info_tel")&vbcrlf
str=str&"Const webadd="&rs("info_add")&vbcrlf
……
最后把str作为内容用fso生成config.inc

每页<!--#include file="config.inc"-->就可以调用webtitle、webtel、webadd……等常量了