ASP网页编程之asp进步首页功能的一个技能
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.技能|功能|技能|功能复杂先容:一样平常一个网站的首页会见量是最年夜的,假如您的网站的首页翻开的十分迟缓,您的客户将会连续分开你的网站.一般我们把必要经由庞大运算大概查询数据库得出的数据缓存起来大概天生静态网页来进步web使用的功能,此次我们间接把首页的输入缓存成一个字符串,然后准时更新,即照应了功能,又不影响首页的时效性.这里用到了一些VBS自界说类,Application工具,XmlHttp工具,adodb.stream工具的一些器材,相干常识人人能够查材料懂得.最好让这个页和你要缓存的页在一个目次下,要不有些绝对路径的图片就没法显现了,别的缓存有的页面会呈现乱码,我还不晓得怎样办理这个成绩呢,大概在Response的时分必要设置一下编码范例,人人能够尝尝
<%
Dimwawa,StarTime,EndTime
StarTime=Timer()
Setwawa=newCls_Cache
wawa.Reloadtime=0.5
wawa.CacheName="wawa"
wawa.Name="XmlInfoIndex"
Ifwawa.ObjIsEmpty()ThenCacheXmlInfoIndex()
Response.Writewawa.value
EndTime=Timer()
Response.Write"<br>实行工夫："&FormatNumber((Endtime-StarTime)*1000,5)&"毫秒。"
SubCacheXmlInfoIndex()
DimBodyText,xml
Setxml=Server.CreateObject("Microsoft.XMLHTTP")
把上面的地点交换成你的首页的文件地点,必定要用http://开首的相对路径,不克不及写绝对路径
xml.Open"GET","http://onlytiancai/bak/vote/InfoIndex.asp",False
xml.Send
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
wawa.Value=BodyText
Setxml=Nothing
EndSub
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
%>
<%
上面这个类能够保留在独自的文件里,然后包括到此页
ClassCls_Cache
Rem==================利用申明==============================================
Rem=本类模块是动网前锋原创，迷城荡子。如接纳本类模块，请不要往失落这个申明。这段正文不会影响实行的速率。=
Rem=感化：缓存弛缓存办理类=
Rem=私有变量：Reloadtime过时工夫（单元为分钟）缺省值为14400,=
Rem=MaxCount缓存工具的最年夜值，凌驾则主动删除利用次数少的工具。缺省值为300=
Rem=CacheName缓存组的总称号，缺省值为"Dvbbs",假如一个站点中有凌驾一个缓存组，则必要内部改动这个值。=
Rem=属性:Name界说缓存工具称号，只写属性。=
Rem=属性:value读取和写进缓存数据。=
Rem=函数：ObjIsEmpty()判别以后缓存是不是过时。=
Rem=办法：DelCahe(MyCaheName)手工删除一个缓存工具，参数是缓存工具的称号。=
Rem================================================================
PublicReloadtime,MaxCount,CacheName
PrivateLocalCacheName,CacheData,DelCount
PrivateSubClass_Initialize()
Reloadtime=14400
CacheName="Dvbbs"
EndSub
PrivateSubSetCache(SetName,NewValue)
Application.Lock
Application(SetName)=NewValue
Application.unLock
EndSub
PrivateSubmakeEmpty(SetName)
Application.Lock
Application(SetName)=Empty
Application.unLock
EndSub
PublicPropertyLetName(ByValvNewValue)
LocalCacheName=LCase(vNewValue)
EndProperty
PublicPropertyLetValue(ByValvNewValue)
IfLocalCacheName""Then
CacheData=Application(CacheName&"_"&LocalCacheName)
IfIsArray(CacheData)Then
CacheData(0)=vNewValue
CacheData(1)=Now()
Else
ReDimCacheData(2)
CacheData(0)=vNewValue
CacheData(1)=Now()
EndIf
SetCacheCacheName&"_"&LocalCacheName,CacheData
Else
Err.RaisevbObjectError+1,"DvbbsCacheServer","pleasechangetheCacheName."
EndIf
EndProperty
PublicPropertyGetValue()
IfLocalCacheName""Then
CacheData=Application(CacheName&"_"&LocalCacheName)
IfIsArray(CacheData)Then
Value=CacheData(0)
Else
Err.RaisevbObjectError+1,"DvbbsCacheServer","TheCacheDataIsEmpty."
EndIf
Else
Err.RaisevbObjectError+1,"DvbbsCacheServer","pleasechangetheCacheName."
EndIf
EndProperty
PublicFunctionObjIsEmpty()
ObjIsEmpty=True
CacheData=Application(CacheName&"_"&LocalCacheName)
IfNotIsArray(CacheData)ThenExitFunction
IfNotIsDate(CacheData(1))ThenExitFunction
IfDateDiff("</p>缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。
页:
[1]