第1个:Jxc_Conn.asp
<%
Response.Buffer=True
Response.ExpiresAbsolute=Now()-1
Response.Expires=0
Response.CacheControl = \"大众no-cache\"大众
Response.AddHeader \公众Pragma\"大众, \"大众No-Cache\"大众
Server.ScriptTimeout=90
On Error Resume Next
'打开主数据库
'数据库所在目录
dbfolder=\"大众data/\"大众
'数据库名称
dbname=\"大众Jxc_PoMis.mdb\"大众
%>
1.Buffer
Buffer的优点:
Buffer从英文直译过来的意思是“缓冲区”,这里我们也可将它称为缓冲。
缓冲区是做事器端存储数据的地方,客户端所得到的数据可以从程序的实行结果直接输出,也可以从缓冲区输出。差异是两种办法在速率上的差异:
在web中,当一个asp程序被要求的次数不多时,二者基本上没有什么差异,至少我们觉得不出来。
但是当有很多人要求一个asp程序时,有没有缓冲区,速率就有明显的差异。没有缓冲区,每个要求asp程序的人的客户端所得到的结果都是asp程序实行一次的结果,有缓冲区时,做事器预先将asp程序实行结果缓冲,访问时每个客户端所得到的结果便是缓冲区内缓存的结果。
比如有10000个用户同时访问一个asp页面,若这个asp程序没有缓冲,那么程序将被实行一万次,做事器负荷的增大,直接导致客户端打开页面速率变慢;
如果这个asp程序实行结果被缓冲了,那么,每个客户端直接从缓冲区得到数据,做事器将不会由于访问增加而增加程序实行次数,因此客户端打开页面的速率也就比上一种情形要快。这便是Buffer的优点。
如何将asp程序缓冲
这个问题实在很大略,只要在asp程序的第一行加上:
<% Response.Buffer = True %>
就可以了,也可以根据须要,中途用response.clear把之前的内容清掉,或者直到所有程序实行完或者碰着
<% Response.Flush %>或<% Response.End %>语句,开释缓冲区的信息。
2.ExpiresAbsolute
ExpiresAbsolute属性指定缓存于浏览器中的页的到期日期和韶光。
Now()-1,普通地讲,它是让页面立即过期,不缓存页面,也便是说用户访问这个页面,每次是从做事器要求得来的最新数据。
以是这里指的是页面过期,重新向做事器进行HTTP要求。
3.Expires: 属性指定了在浏览器上缓冲存储的页距过期还有多少韶光。如果用户在某个页过期之前又回到此页,就会显示缓冲区中的版本。一样平常情形下,当用户要求WEB做事器时,做事器把要求回答给客户端。在客户端,浏览器把缓存作为一种加快速率的策略,便是当要求时先检讨缓存的情形,如果有就直接调缓存了,而不要求做事器了。 在WEB程序设计中,有时为了防止重复的提交或者严格的次序等,必须让用户的数据立即在利用后就过期,当用户退却撤退时就显示过期而不能连续利用。也算是为安全考虑的吧。
一样平常,response.expires写在页面的最上端,后面跟的是一个韶光,便是过期的韶光,0表示立即过期。
4.CacheControl:决定代理做事器是否能缓存 ASP 天生的输出。
5. response.addheader \公众pragma\公众,\"大众no-cache\"大众 是不要网页存于缓存之中。相称于<meta http-equiv=\公众pragma\"大众 content=\公众no-cache\"大众>,addheader 是发送给浏览器 HTTP 头信息,将该信息存在浏览器的头信息里。
5. Server.ScriptTimeout 这个属性给定Asp脚本实行的最大韶光,如果asp程序的运行韶光超过了这个属性规定的值,Asp就会报错。由于IIS默认的ScriptTimeout值是90秒,这是在IIS Metabase中设置的,以是我们可以在我们的程序中改变这个值,例如设为100,这样就把Asp程序实行最大韶光改为100秒了, 不过这里有一点须要把稳的,便是设置的ScriptTimeOut值,要比IIS默认的设定值大, 也便是说如果我们这样设定ScriptTimeOut的值:
<%Server.ScriptTimeOut=60%>
就不起浸染了, 由于默认值是90,设定的值只能比90大如果比90小的话,那么仍旧以90秒为准。
当然,IIS默认的90秒也是可以变动的,详细可以参考如何修正IIS Metabase的干系文章。
第2个:Jxc_Config.asp
<%
'打开主数据库联接
connstr=\"大众Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"大众 & Server.MapPath(dbfolder&dbname)
Set conn = Server.CreateObject(\"大众ADODB.Connection\公众)
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write \公众<p style='font-size:26pt' align=center>数据库连接出错!
</p>\公众
Response.Write \公众<p style='font-size:9pt' align=center>可能出错缘故原由:年初进行数据库的初始化,</p>\"大众
response.write \"大众<p style='font-size:20pt' align=center>待全厂物资盘点完毕后可正常利用。</p>\公众
Response.End
End If
'
%>
这个文件相对大略,是定式,绝大多数连接Access数据都这么用,干系于一个程序块,拿过来用就可以。
写出来的过程,也是学习的过程,这中间不可避免地会涌现这样那样的缺点,在这里诚恳地希望大家多多批评示正,我也好及时改进,感激。
下一节先容什么呢,大家可以在评论区谈论。